[add] Added CSS transform functions.

1 files changed, 154 insertions, 0 deletions

diff --git a/src/css-abbrev.el b/src/css-abbrev.el
index 5f05035..8530aa8 100644
--- a/src/css-abbrev.el
+++ b/src/css-abbrev.el
@@ -1,3 +1,157 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;;; CSS abbrev:
+
+(defun zencoding-css-split-args (exp)
+  (zencoding-aif
+   (string-match "[#0-9$-]" exp)
+   (cons (substring exp 0 it) (substring exp it))
+   (list exp)))
+
+(defun zencoding-css-arg-number (input)
+  (zencoding-parse
+   "\\(\\(?:-\\|\\)[0-9.]+\\)\\(\\(?:-\\|e\\|p\\|x\\)\\|\\)" 3 "css number arguments"
+   (cons (list (elt it 1)
+               (let ((unit (string-to-char (elt it 2))))
+                 (cond ((= unit ?-) "px")
+                       ((= unit ?e) "em")
+                       ((= unit ?p) "%")
+                       ((= unit ?x) "ex")
+                       (t "px"))))
+         input)))
+
+(defun zencoding-css-arg-color (input)
+  (zencoding-parse
+   "#\\([0-9a-fA-F]\\{1,6\\}\\)" 2 "css color argument"
+   (cons (let* ((n (elt it 1))
+                (l (length n)))
+           (concat
+            "#"
+            (substring
+             (cond ((= l 1) (concat (make-list 6 (string-to-char n))))
+                   ((= l 2) (concat n n n))
+                   ((= l 3) (concat
+                             (loop for c in (string-to-list n)
+                                   append (list c c))))
+                   (t (concat n n)))
+             0 6)))
+         input)))
+
+(defun zencoding-css-parse-arg (input)
+  (zencoding-run zencoding-css-arg-number it
+                 (zencoding-run zencoding-css-arg-color it
+                                (if (equal input "")
+                                    it
+                                  (cons input "")))))
+
+(defun zencoding-css-parse-args (args)
+  (let ((rt nil))
+    (loop
+     (zencoding-pif (zencoding-css-parse-arg args)
+                    (progn (push (car it) rt)
+                           (setf args (cdr it)))
+                    (return (nreverse rt))))))
+
+(defun zencoding-css-subexpr (exp)
+  (let* ((exp (zencoding-css-split-args exp))
+         (args (cdr exp)))
+    (when args (setf (cdr exp) (zencoding-css-parse-args args)))
+    exp))
+
+(defun zencoding-css-toknize (str)
+  (let* ((i (split-string str "+"))
+         (rt nil))
+    (loop
+     (let ((f (first i))
+           (s (second i)))
+       (if f
+           (if (and s (or (eql s "") (string-match "^[#0-9$-]" s)))
+               (progn
+                 (setf rt (cons (concat f "+" s) rt))
+                 (setf i (cddr i)))
+             (progn
+               (setf rt (cons f rt))
+               (setf i (cdr i))))
+         (return (nreverse rt)))))))
+
+(defun zencoding-css-expr (input)
+  (mapcar #'zencoding-css-subexpr
+          (zencoding-css-toknize input)))
+
+(zencoding-defparameter
+ zencoding-css-snippets
+ (gethash "snippets" (gethash "css" zencoding-snippets)))
+
+(zencoding-defparameter
+ zencoding-css-unitless-properties
+ '("z-index" "line-height" "opacity" "font-weight" "zoom"))
+
+(zencoding-defparameter
+ zencoding-css-unitless-properties-regex
+ (concat "^\\(:?" (zencoding-join-string
+                   zencoding-css-unitless-properties "\\|")
+         "\\):.*$"))
+
+(defun zencoding-css-instantiate-lambda (str)
+  (flet ((split-string-to-body
+          (str args-sym)
+          (let ((rt '(concat)) (idx-max 0))
+            (loop for i from 0 to 255 do
+                  (zencoding-aif
+                   (string-match "\\(?:|\\|${\\([0-9]\\)\\(?::\\(.+?\\)\\|\\)}\\)" str)
+                   (destructuring-bind (mat idx def)
+                       (mapcar (lambda (ref) (match-string ref str)) '(0 1 2))
+                     (setf rt
+                           `((or
+                              (nth ,(let ((cur-idx (if idx (1- (string-to-int idx)) i)))
+                                      (setf idx-max (max cur-idx idx-max)))
+                                   ,args-sym)
+                              ,(or def ""))
+                             ,(substring str 0 it) ;; ordered to reverse
+                             ,@rt))
+                     (setf str (substring str (+ it (length mat)))))
+                   ;; don't use nreverse. cause bug in emacs-lisp.
+                   (return (cons idx-max (reverse (cons str rt)))))))))
+    (let ((args (gensym)))
+      (destructuring-bind (idx-max . body) (split-string-to-body str args)
+        (eval
+         `(lambda (&rest ,args)
+            (progn
+              (when (nthcdr ,idx-max ,args)
+                (setf (nthcdr ,idx-max ,args)
+                      (list (zencoding-join-string
+                             (nthcdr ,idx-max ,args) " "))))
+              ,body)))))))
+
+(defun zencoding-css-transform (exprs)
+  (zencoding-join-string
+   (mapcar
+    #'(lambda (expr)
+        (zencoding-aif
+         (gethash (car expr) zencoding-css-snippets)
+         (let ((set it) (fn nil) (unitlessp nil))
+           (if (stringp set)
+               (progn
+                 (setf fn (zencoding-css-instantiate-lambda set))
+                 (setf unitlessp
+                       (not (null (string-match
+                                   zencoding-css-unitless-properties-regex set))))
+                 (puthash (car expr) (cons fn unitlessp) zencoding-css-snippets))
+             (progn (setf fn (car set))
+                    (setf unitlessp (cdr set))))
+           (apply fn
+                  (mapcar #'(lambda (arg)
+                              (if (listp arg)
+                                  (if unitlessp (car arg)
+                                    (apply #'concat arg))
+                                arg))
+                          (cdr expr))))
+
+         (concat (car expr) ":"
+                 (zencoding-join-string
+                  (mapcar #'(lambda (arg)
+                              (if (listp arg) (apply #'concat arg) arg))
+                          (cdr expr)) " ")
+                 ";")))
+    exprs)
+   "\n"))
\ No newline at end of file