diff options
Diffstat (limited to 'src/css-abbrev.el')
| -rw-r--r-- | src/css-abbrev.el | 162 |
1 files changed, 81 insertions, 81 deletions
diff --git a/src/css-abbrev.el b/src/css-abbrev.el index 4c357d6..7f2e909 100644 --- a/src/css-abbrev.el +++ b/src/css-abbrev.el @@ -2,33 +2,33 @@ ;; ;;; CSS abbrev: -(zencoding-defparameter - zencoding-css-unit-aliases - (gethash "unitAliases" (gethash "css" zencoding-preferences))) -(defun zencoding-css-arg-number (input) - (zencoding-parse +(emmet-defparameter + emmet-css-unit-aliases + (gethash "unitAliases" (gethash "css" emmet-preferences))) +(defun emmet-css-arg-number (input) + (emmet-parse " *\\(\\(?:-\\|\\)[0-9.]+\\)\\(-\\|[A-Za-z]*\\)" 3 "css number arguments" (cons (list (elt it 1) (let ((unit (elt it 2))) (if (= (length unit) 0) (if (find ?. (elt it 1)) "em" "px") - (gethash unit zencoding-css-unit-aliases unit)))) + (gethash unit emmet-css-unit-aliases unit)))) input))) -(zencoding-defparameter - zencoding-css-color-shorten-if-possible - (gethash "shortenIfPossible" (gethash "color" (gethash "css" zencoding-preferences)))) -(zencoding-defparameter - zencoding-css-color-case - (gethash "case" (gethash "color" (gethash "css" zencoding-preferences)))) -(zencoding-defparameter - zencoding-css-color-trailing-aliases - (gethash "trailingAliases" (gethash "color" (gethash "css" zencoding-preferences)))) -(defun zencoding-css-arg-color (input) - (zencoding-parse +(emmet-defparameter + emmet-css-color-shorten-if-possible + (gethash "shortenIfPossible" (gethash "color" (gethash "css" emmet-preferences)))) +(emmet-defparameter + emmet-css-color-case + (gethash "case" (gethash "color" (gethash "css" emmet-preferences)))) +(emmet-defparameter + emmet-css-color-trailing-aliases + (gethash "trailingAliases" (gethash "color" (gethash "css" emmet-preferences)))) +(defun emmet-css-arg-color (input) + (emmet-parse (concat " *#\\([0-9a-fA-F]\\{1,6\\}\\)\\(rgb\\|\\)\\([" - (zencoding-join-string - (zencoding-get-keys-of-hash zencoding-css-color-trailing-aliases) "") + (emmet-join-string + (emmet-get-keys-of-hash emmet-css-color-trailing-aliases) "") "]\\|\\)") 4 "css color argument" (let ((color @@ -51,58 +51,58 @@ (string-to-int (substring color 4 6) 16)) (concat "#" - (let ((filter (cond ((string= zencoding-css-color-case "auto") #'identity) - ((string= zencoding-css-color-case "up") #'upcase) + (let ((filter (cond ((string= emmet-css-color-case "auto") #'identity) + ((string= emmet-css-color-case "up") #'upcase) (t #'downcase)))) (funcall filter - (if (and zencoding-css-color-shorten-if-possible + (if (and emmet-css-color-shorten-if-possible (eql (aref color 0) (aref color 1)) (eql (aref color 2) (aref color 3)) (eql (aref color 4) (aref color 5))) (concat (mapcar #'(lambda (i) (aref color i)) '(0 2 4))) color)))))) (if (< 0 (length (elt it 3))) - (cons (gethash (elt it 3) zencoding-css-color-trailing-aliases) input) + (cons (gethash (elt it 3) emmet-css-color-trailing-aliases) input) input))))) -(defun zencoding-css-arg-something (input) - (zencoding-parse +(defun emmet-css-arg-something (input) + (emmet-parse " *\\([^ ]+\\)" 2 "css argument" (cons (elt it 1) input))) -(defun zencoding-css-parse-arg (input) - (zencoding-run zencoding-css-arg-number it - (zencoding-run zencoding-css-arg-color it - (zencoding-run zencoding-css-arg-something it +(defun emmet-css-parse-arg (input) + (emmet-run emmet-css-arg-number it + (emmet-run emmet-css-arg-color it + (emmet-run emmet-css-arg-something it (if (equal input "") it (cons input "")))))) -(defun zencoding-css-important-p (input) +(defun emmet-css-important-p (input) (let ((len (length input))) (and (< 0 len) (char-equal (aref input (1- len)) ?!)))) -(defun zencoding-css-parse-args (args) +(defun emmet-css-parse-args (args) (when args (let ((rt nil)) (loop - (zencoding-pif - (zencoding-css-parse-arg args) + (emmet-pif + (emmet-css-parse-arg args) (loop for i on it do (push (car i) rt) while (consp (cdr i)) finally (setq args (cdr i))) (return (nreverse rt))))))) -(defun zencoding-css-split-args (exp) - (zencoding-aif +(defun emmet-css-split-args (exp) + (emmet-aif (string-match "\\(?:[ #0-9$]\\|-[0-9]\\)" exp) (list (substring exp 0 it) (substring exp it)) (list exp nil))) -(defun zencoding-css-split-vendor-prefixes (input) - (zencoding-parse +(defun emmet-css-split-vendor-prefixes (input) + (emmet-parse "\\(-[wmso]+-\\|-\\|\\)\\(.*\\)" 3 "css vendor prefixes" (list (elt it 2) (let ((vp (elt it 1))) @@ -110,17 +110,17 @@ (if (string= vp "-") 'auto (string-to-list (subseq vp 1 -1)))))))) -(defun zencoding-css-subexpr (exp) - (let* ((importantp (zencoding-css-important-p exp))) +(defun emmet-css-subexpr (exp) + (let* ((importantp (emmet-css-important-p exp))) (destructuring-bind (exp vp) - (zencoding-css-split-vendor-prefixes exp) + (emmet-css-split-vendor-prefixes exp) (destructuring-bind (key args) - (zencoding-css-split-args (if importantp (subseq exp 0 -1) exp)) + (emmet-css-split-args (if importantp (subseq exp 0 -1) exp)) `(,key ,vp ,importantp - ,@(zencoding-css-parse-args args)))))) + ,@(emmet-css-parse-args args)))))) -(defun zencoding-css-toknize (str) +(defun emmet-css-toknize (str) (let* ((i (split-string str "+")) (rt nil)) (loop @@ -137,36 +137,36 @@ (setf i (cdr i)))) (return (nreverse rt))))))) -(defun zencoding-css-expr (input) - (mapcar #'zencoding-css-subexpr - (zencoding-css-toknize input))) +(defun emmet-css-expr (input) + (mapcar #'emmet-css-subexpr + (emmet-css-toknize input))) -(zencoding-defparameter - zencoding-css-snippets - (gethash "snippets" (gethash "css" zencoding-snippets))) +(emmet-defparameter + emmet-css-snippets + (gethash "snippets" (gethash "css" emmet-snippets))) -(zencoding-defparameter - zencoding-css-unitless-properties - (gethash "unitlessProperties" (gethash "css" zencoding-preferences))) +(emmet-defparameter + emmet-css-unitless-properties + (gethash "unitlessProperties" (gethash "css" emmet-preferences))) -(zencoding-defparameter - zencoding-css-unitless-properties-regex - (concat "^\\(:?" (zencoding-join-string - zencoding-css-unitless-properties "\\|") +(emmet-defparameter + emmet-css-unitless-properties-regex + (concat "^\\(:?" (emmet-join-string + emmet-css-unitless-properties "\\|") "\\):.*$")) -(defun zencoding-css-instantiate-lambda (str) +(defun emmet-css-instantiate-lambda (str) (flet ((insert-space-between-name-and-body (str) (if (string-match "^\\([a-z-]+:\\)\\(.+\\)$" str) - (zencoding-join-string + (emmet-join-string (mapcar (lambda (ref) (match-string ref str)) '(1 2)) " ") str)) (split-string-to-body (str args-sym) (let ((rt '(concat)) (idx-max 0)) (loop for i from 0 to 255 do - (zencoding-aif + (emmet-aif (string-match "\\(?:|\\|${\\(?:\\([0-9]\\)\\|\\)\\(?::\\(.+?\\)\\|\\)}\\)" str) (destructuring-bind (mat idx def) (mapcar (lambda (ref) (match-string ref str)) '(0 1 2)) @@ -189,52 +189,52 @@ (progn (when (nthcdr ,idx-max ,args) (setf (nthcdr ,idx-max ,args) - (list (zencoding-join-string + (list (emmet-join-string (nthcdr ,idx-max ,args) " ")))) ,body))))))) -(zencoding-defparameter - zencoding-vendor-prefixes-properties - (gethash "vendorPrefixesProperties" (gethash "css" zencoding-preferences))) -(zencoding-defparameter - zencoding-vendor-prefixes-default +(emmet-defparameter + emmet-vendor-prefixes-properties + (gethash "vendorPrefixesProperties" (gethash "css" emmet-preferences))) +(emmet-defparameter + emmet-vendor-prefixes-default (list "webkit" "moz" "ms" "o")) -(defun zencoding-css-transform-vendor-prefixes (line vp) +(defun emmet-css-transform-vendor-prefixes (line vp) (let ((key (subseq line 0 (or (position ?: line) (length line))))) (let ((vps (if (eql vp 'auto) (gethash key - zencoding-vendor-prefixes-properties - zencoding-vendor-prefixes-default) + emmet-vendor-prefixes-properties + emmet-vendor-prefixes-default) (mapcar (lambda (v) (cond ((= v ?w) "webkit") ((= v ?m) "moz") ((= v ?s) "ms") ((= v ?o) "o"))) vp)))) - (zencoding-join-string + (emmet-join-string (append (mapcar (lambda (v) (concat "-" v "-" line)) vps) (list line)) "\n")))) -(defun zencoding-css-transform-exprs (exprs) - (zencoding-join-string +(defun emmet-css-transform-exprs (exprs) + (emmet-join-string (mapcar #'(lambda (expr) (let ((basement - (zencoding-aif - (gethash (car expr) zencoding-css-snippets) + (emmet-aif + (gethash (car expr) emmet-css-snippets) (let ((set it) (fn nil) (unitlessp nil)) (if (stringp set) (progn ;; new pattern ;; creating print function - (setf fn (zencoding-css-instantiate-lambda set)) + (setf fn (emmet-css-instantiate-lambda set)) ;; get unitless or no (setf unitlessp (not (null (string-match - zencoding-css-unitless-properties-regex set)))) + emmet-css-unitless-properties-regex set)))) ;; caching - (puthash (car expr) (cons fn unitlessp) zencoding-css-snippets)) + (puthash (car expr) (cons fn unitlessp) emmet-css-snippets)) (progn ;; cache hit. (setf fn (car set)) @@ -248,7 +248,7 @@ arg)) (cdddr expr)))) (concat (car expr) ": " - (zencoding-join-string + (emmet-join-string (mapcar #'(lambda (arg) (if (listp arg) (apply #'concat arg) arg)) (cdddr expr)) " ") @@ -257,12 +257,12 @@ (if (caddr expr) (concat (subseq basement 0 -1) " !important;") basement))) - (zencoding-aif + (emmet-aif (cadr expr) - (zencoding-css-transform-vendor-prefixes line it) + (emmet-css-transform-vendor-prefixes line it) line)))) exprs) "\n")) -(defun zencoding-css-transform (input) - (zencoding-css-transform-exprs (zencoding-css-expr input)))
\ No newline at end of file +(defun emmet-css-transform (input) + (emmet-css-transform-exprs (emmet-css-expr input))) |