From 918e5420388bded0dd6b3656cc2fe9f4ba9c0649 Mon Sep 17 00:00:00 2001 From: smihica Date: Thu, 21 Mar 2013 11:41:55 +0900 Subject: [add] Added CSS transform functions. --- zencoding-mode.el | 982 +++++++++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 979 insertions(+), 3 deletions(-) (limited to 'zencoding-mode.el') diff --git a/zencoding-mode.el b/zencoding-mode.el index 370d570..197147a 100644 --- a/zencoding-mode.el +++ b/zencoding-mode.el @@ -1,4 +1,3 @@ - ;;; zencoding-mode.el --- Unfold CSS-selector-like expressions to markup ;; Copyright (C) 2009, Chris Done @@ -59,6 +58,8 @@ ;; ;; Modified by Lennart Borgman. ;; +;; + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;; Code: @@ -70,6 +71,14 @@ (require 'cl) +(defmacro zencoding-defparameter (symbol &optional initvalue docstring) + `(progn + (defvar ,symbol nil ,docstring) + (setq ,symbol ,initvalue))) + +(defun zencoding-join-string (lis joiner) + (mapconcat 'identity lis joiner)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Generic parsing macros and utilities @@ -117,6 +126,820 @@ (mapcar (lambda (ref) (match-string ref string)) (if (sequencep refs) refs (list refs))) nil)) +;; src/snippets.el +;; This file is generated from conf/snippets.json +;; Don't edit. +(zencoding-defparameter zencoding-snippets +(let ((tbl (make-hash-table :test 'equal))) +(puthash "xml" (let ((tbl (make-hash-table :test 'equal))) +(puthash "profile" "xml" tbl) +(puthash "extends" "html" tbl) +(puthash "filters" "html" tbl) +tbl) tbl) +(puthash "scss" (let ((tbl (make-hash-table :test 'equal))) +(puthash "extends" "css" tbl) +tbl) tbl) +(puthash "sass" (let ((tbl (make-hash-table :test 'equal))) +(puthash "extends" "css" tbl) +tbl) tbl) +(puthash "less" (let ((tbl (make-hash-table :test 'equal))) +(puthash "extends" "css" tbl) +tbl) tbl) +(puthash "variables" (let ((tbl (make-hash-table :test 'equal))) +(puthash "lang" "en" tbl) +(puthash "locale" "en-US" tbl) +(puthash "charset" "UTF-8" tbl) +(puthash "indentation" "\t" tbl) +(puthash "newline" "\n" tbl) +tbl) tbl) +(puthash "stylus" (let ((tbl (make-hash-table :test 'equal))) +(puthash "extends" "css" tbl) +tbl) tbl) +(puthash "html" (let ((tbl (make-hash-table :test 'equal))) +(puthash "profile" "html" tbl) +(puthash "abbreviations" (let ((tbl (make-hash-table :test 'equal))) +(puthash "a:link" "" tbl) +(puthash "doc4" "html>(head>meta[http-equiv=\"Content-Type\" content=\"text/html;charset=${charset}\"]+title{${1:Document}})" tbl) +(puthash "input:datetime-local" "inp[type=datetime-local]" tbl) +(puthash "input:reset" "input:button[type=reset]" tbl) +(puthash "meta:vp" "" tbl) +(puthash "colg" "colgroup" tbl) +(puthash "figc" "figcaption" tbl) +(puthash "btn:s" "button[type=submit]" tbl) +(puthash "btn:r" "button[type=reset]" tbl) +(puthash "style" "