4174 lines
143 KiB
EmacsLisp
4174 lines
143 KiB
EmacsLisp
;;; emmet-mode.el --- Unofficial Emmet's support for emacs
|
|
|
|
;; Copyright (C) 2014- Dmitry Mukhutdinov (@flyingleafe https://github.com/flyingleafe)
|
|
;; Copyright (C) 2014- William David Mayo (@pbocks https://github.com/pobocks)
|
|
;; Copyright (C) 2013- Shin Aoyama (@smihica https://github.com/smihica)
|
|
;; Copyright (C) 2009-2012 Chris Done
|
|
|
|
;; Version: 1.0.10
|
|
;; Package-Version: 20180613.341
|
|
;; Package-Commit: 1acb821e0142136344ccf40c1e5fb664d7db2e70
|
|
;; Author: Shin Aoyama <smihica@gmail.com>
|
|
;; URL: https://github.com/smihica/emmet-mode
|
|
;; Last-Updated: 2014-08-11 Mon
|
|
;; Keywords: convenience
|
|
|
|
;; This file is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 3, or (at your option)
|
|
;; any later version.
|
|
;;
|
|
;; This file is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
;; Boston, MA 02110-1301, USA.
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; Unfold CSS-selector-like expressions to markup. Intended to be used
|
|
;; with sgml-like languages; xml, html, xhtml, xsl, etc.
|
|
;;
|
|
;; See `emmet-mode' for more information.
|
|
;;
|
|
;; Copy emmet-mode.el to your load-path and add to your .emacs:
|
|
;;
|
|
;; (require 'emmet-mode)
|
|
;;
|
|
;; Example setup:
|
|
;;
|
|
;; (add-to-list 'load-path "~/Emacs/emmet/")
|
|
;; (require 'emmet-mode)
|
|
;; (add-hook 'sgml-mode-hook 'emmet-mode) ;; Auto-start on any markup modes
|
|
;; (add-hook 'html-mode-hook 'emmet-mode)
|
|
;; (add-hook 'css-mode-hook 'emmet-mode)
|
|
;;
|
|
;; Enable the minor mode with M-x emmet-mode.
|
|
;;
|
|
;; See ``Test cases'' section for a complete set of expression types.
|
|
;;
|
|
;; If you are hacking on this project, eval (emmet-test-cases) to
|
|
;; ensure that your changes have not broken anything. Feel free to add
|
|
;; new test cases if you add new features.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; History:
|
|
;;
|
|
;; This is a fork of zencoding-mode to support Emmet's feature.
|
|
;; zencoding-mode (https://github.com/rooney/zencoding)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Code:
|
|
|
|
(defconst emmet-mode:version "1.0.10")
|
|
|
|
(with-no-warnings
|
|
(require 'cl))
|
|
|
|
;; for portability with < 24.3 EMACS
|
|
(unless (fboundp 'cl-labels) (fset 'cl-labels 'labels))
|
|
(unless (fboundp 'cl-flet) (fset 'cl-flet 'flet))
|
|
;; < 22.1
|
|
(unless (fboundp 'string-to-number) (fset 'string-to-number 'string-to-int))
|
|
|
|
(defmacro emmet-defparameter (symbol &optional initvalue docstring)
|
|
`(progn
|
|
(defvar ,symbol nil ,docstring)
|
|
(setq ,symbol ,initvalue)))
|
|
|
|
(defun emmet-join-string (lis joiner)
|
|
(mapconcat 'identity lis joiner))
|
|
|
|
(defun emmet-get-keys-of-hash (hash)
|
|
(let ((ks nil))
|
|
(maphash #'(lambda (k v) (setq ks (cons k ks))) hash)
|
|
ks))
|
|
|
|
(defun emmet-get-vals-of-hash (hash)
|
|
(let ((vs nil))
|
|
(maphash #'(lambda (k v) (setq vs (cons v vs))) hash)
|
|
vs))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Generic parsing macros and utilities
|
|
|
|
(defmacro emmet-aif (test-form then-form &rest else-forms)
|
|
"Anaphoric if. Temporary variable `it' is the result of test-form."
|
|
`(let ((it ,test-form))
|
|
(if it ,then-form ,@(or else-forms '(it)))))
|
|
|
|
(defmacro emmet-pif (test-form then-form &rest else-forms)
|
|
"Parser anaphoric if. Temporary variable `it' is the result of test-form."
|
|
`(let ((it ,test-form))
|
|
(if (not (eq 'error (car it))) ,then-form ,@(or else-forms '(it)))))
|
|
|
|
(defmacro emmet-parse (regex nums label &rest body)
|
|
"Parse according to a regex and update the `input' variable."
|
|
`(emmet-aif (emmet-regex ,regex input ',(number-sequence 0 nums))
|
|
(let ((input (elt it ,nums)))
|
|
,@body)
|
|
`,`(error ,(concat "expected " ,label))))
|
|
|
|
(defmacro emmet-run (parser then-form &rest else-forms)
|
|
"Run a parser and update the input properly, extract the parsed
|
|
expression."
|
|
`(emmet-pif (,parser input)
|
|
(let ((input (cdr it))
|
|
(expr (car it)))
|
|
,then-form)
|
|
,@(or else-forms '(it))))
|
|
|
|
(defmacro emmet-por (parser1 parser2 then-form &rest else-forms)
|
|
"OR two parsers. Try one parser, if it fails try the next."
|
|
`(emmet-pif (,parser1 input)
|
|
(let ((input (cdr it))
|
|
(expr (car it)))
|
|
,then-form)
|
|
(emmet-pif (,parser2 input)
|
|
(let ((input (cdr it))
|
|
(expr (car it)))
|
|
,then-form)
|
|
,@else-forms)))
|
|
|
|
(defmacro emmet-find (direction regexp &optional limit-of-search repeat-count)
|
|
"Regexp-search in given direction, returning the position (or nil)
|
|
and leaving the point in place."
|
|
`(save-excursion
|
|
(if (,(intern (concat "re-search-" direction))
|
|
,regexp ,limit-of-search t ,repeat-count)
|
|
(match-beginning 0))))
|
|
|
|
(defun emmet-regex (regexp string refs)
|
|
"Return a list of (`ref') matches for a `regex' on a `string' or nil."
|
|
(if (string-match (concat "^" regexp "\\([^\n]*\\)$") string)
|
|
(mapcar (lambda (ref) (match-string ref string))
|
|
(if (sequencep refs) refs (list refs)))
|
|
nil))
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Emmet minor mode
|
|
|
|
(defgroup emmet nil
|
|
"Customization group for emmet-mode."
|
|
:group 'convenience)
|
|
|
|
(defun emmet-expr-on-line ()
|
|
"Extract a emmet expression and the corresponding bounds
|
|
for the current line."
|
|
(let* ((end (point))
|
|
(start (emmet-find-left-bound))
|
|
(line (buffer-substring-no-properties start end))
|
|
(expr (emmet-regex "\\([ \t]*\\)\\([^\n]+\\)" line 2)))
|
|
(if (first expr)
|
|
(list (first expr) start end))))
|
|
|
|
(defun emmet-find-left-bound ()
|
|
"Find the left bound of an emmet expr"
|
|
(save-excursion (save-match-data
|
|
(let ((char (char-before))
|
|
(in-style-attr (looking-back "style=[\"'][^\"']*" nil))
|
|
(syn-tab (make-syntax-table)))
|
|
(modify-syntax-entry ?\\ "\\")
|
|
(while char
|
|
(cond ((and in-style-attr (member char '(?\" ?\')))
|
|
(setq char nil))
|
|
((member char '(?\} ?\] ?\)))
|
|
(with-syntax-table syn-tab
|
|
(backward-sexp) (setq char (char-before))))
|
|
((eq char ?\>)
|
|
(if (looking-back "<[^>]+>" (line-beginning-position))
|
|
(setq char nil)
|
|
(progn (backward-char) (setq char (char-before)))))
|
|
((not (string-match-p "[[:space:]\n;]" (string char)))
|
|
(backward-char) (setq char (char-before)))
|
|
(t
|
|
(setq char nil))))
|
|
(point)))))
|
|
|
|
(defcustom emmet-indentation 4
|
|
"Number of spaces used for indentation."
|
|
:type '(number :tag "Spaces")
|
|
:group 'emmet)
|
|
|
|
(defcustom emmet-indent-after-insert t
|
|
"Indent region after insert?"
|
|
:type 'boolean
|
|
:group 'emmet)
|
|
|
|
(defcustom emmet-use-style-tag-and-attr-detection t
|
|
"When true, enables detection of style tags and attributes in HTML
|
|
to provide proper CSS abbreviations completion."
|
|
:type 'boolean
|
|
:group 'emmet)
|
|
|
|
(defcustom emmet-self-closing-tag-style "/"
|
|
"Self-closing tags style.
|
|
|
|
This determines how Emmet expands self-closing tags.
|
|
|
|
E.g., FOO is a self-closing tag. When expanding \"FOO\":
|
|
|
|
When \" /\", the expansion is \"<FOO />\".
|
|
When \"/\", the expansion is \"<FOO/>\".
|
|
When \"\", the expansion is \"<FOO>\".
|
|
|
|
Default value is \"/\".
|
|
|
|
NOTE: only \" /\", \"/\" and \"\" are valid."
|
|
:type '(choice (const :tag " />" " /")
|
|
(const :tag "/>" "/")
|
|
(const :tag ">" ""))
|
|
:group 'emmet)
|
|
|
|
(defvar emmet-use-css-transform nil
|
|
"When true, transform Emmet snippets into CSS, instead of the usual HTML.")
|
|
(make-variable-buffer-local 'emmet-use-css-transform)
|
|
|
|
(defvar emmet-use-sass-syntax nil
|
|
"When true, uses Sass syntax for CSS abbreviations expanding,
|
|
e. g. without semicolons")
|
|
(make-variable-buffer-local 'emmet-use-sass-syntax)
|
|
|
|
|
|
(defvar emmet-css-major-modes
|
|
'(css-mode
|
|
scss-mode
|
|
sass-mode
|
|
less-mode
|
|
less-css-mode)
|
|
"Major modes that use emmet for CSS, rather than HTML.")
|
|
|
|
(defvar emmet-fallback-filter '("html")
|
|
"Fallback filter for `emmet-default-filter', if none is found.")
|
|
|
|
(defvar emmet-file-filter nil
|
|
"File local filter used by `emmet-default-filter'.")
|
|
(make-variable-buffer-local 'emmet-file-filter)
|
|
|
|
(defun emmet-transform (input)
|
|
(if (or (emmet-detect-style-tag-and-attr) emmet-use-css-transform)
|
|
(emmet-css-transform input)
|
|
(emmet-html-transform input)))
|
|
|
|
(defun emmet-detect-style-tag-and-attr ()
|
|
(let* ((style-attr-end "[^=][\"']")
|
|
(style-attr-begin "style=[\"']")
|
|
(style-tag-end "</style>")
|
|
(style-tag-begin "<style>"))
|
|
(and emmet-use-style-tag-and-attr-detection
|
|
(or
|
|
(emmet-check-if-between style-attr-begin style-attr-end) ; style attr
|
|
(emmet-check-if-between style-tag-begin style-tag-end))))) ; style tag
|
|
|
|
(defun emmet-check-if-between (begin end)
|
|
(let ((begin-back (emmet-find "backward" begin))
|
|
(end-back (emmet-find "backward" end))
|
|
(begin-front (emmet-find "forward" begin))
|
|
(end-front (emmet-find "forward" end)))
|
|
(and begin-back end-front
|
|
(or (not end-back) (> begin-back end-back))
|
|
(or (not begin-front) (< end-front begin-front)))))
|
|
|
|
(defcustom emmet-preview-default nil
|
|
"If non-nil then preview is the default action.
|
|
This determines how `emmet-expand-line' works by default."
|
|
:type 'boolean
|
|
:group 'emmet)
|
|
|
|
;;;###autoload
|
|
(defun emmet-expand-line (arg)
|
|
"Replace the current line's emmet expression with the corresponding expansion.
|
|
If prefix ARG is given or region is visible call `emmet-preview' to start an
|
|
interactive preview.
|
|
|
|
Otherwise expand line directly.
|
|
|
|
For more information see `emmet-mode'."
|
|
(interactive "P")
|
|
(let* ((here (point))
|
|
(preview (if emmet-preview-default (not arg) arg))
|
|
(beg (if preview
|
|
(emmet-find-left-bound)
|
|
(when (use-region-p) (region-beginning))))
|
|
(end (if preview
|
|
here
|
|
(when (use-region-p) (region-end)))))
|
|
(if (and preview beg)
|
|
(progn
|
|
(goto-char here)
|
|
(emmet-preview beg end))
|
|
(let ((expr (emmet-expr-on-line)))
|
|
(if expr
|
|
(let ((markup (emmet-transform (first expr))))
|
|
(when markup
|
|
(delete-region (second expr) (third expr))
|
|
(emmet-insert-and-flash markup)
|
|
(emmet-reposition-cursor expr))))))))
|
|
|
|
(defvar emmet-mode-keymap
|
|
(let
|
|
((map (make-sparse-keymap)))
|
|
(define-key map (kbd "C-j") 'emmet-expand-line)
|
|
(define-key map (kbd "<C-return>") 'emmet-expand-line)
|
|
(define-key map (kbd "<C-M-right>") 'emmet-next-edit-point)
|
|
(define-key map (kbd "<C-M-left>") 'emmet-prev-edit-point)
|
|
(define-key map (kbd "C-c C-c w") 'emmet-wrap-with-markup)
|
|
map)
|
|
"Keymap for emmet minor mode.")
|
|
|
|
(defun emmet-after-hook ()
|
|
"Initialize Emmet's buffer-local variables."
|
|
(if (memq major-mode emmet-css-major-modes)
|
|
(setq emmet-use-css-transform t))
|
|
(if (eq major-mode 'sass-mode)
|
|
(setq emmet-use-sass-syntax t)))
|
|
|
|
;;;###autoload
|
|
(define-minor-mode emmet-mode
|
|
"Minor mode for writing HTML and CSS markup.
|
|
With emmet for HTML and CSS you can write a line like
|
|
|
|
ul#name>li.item*2
|
|
|
|
and have it expanded to
|
|
|
|
<ul id=\"name\">
|
|
<li class=\"item\"></li>
|
|
<li class=\"item\"></li>
|
|
</ul>
|
|
|
|
This minor mode defines keys for quick access:
|
|
|
|
\\{emmet-mode-keymap}
|
|
|
|
Home page URL `http://www.emacswiki.org/emacs/Emmet'.
|
|
|
|
See also `emmet-expand-line'."
|
|
:lighter (" Emmet" (:eval (if emmet-preview-mode "[P]" "")))
|
|
:keymap emmet-mode-keymap
|
|
:after-hook (emmet-after-hook))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Emmet yasnippet integration
|
|
|
|
(defun emmet-transform-yas (input)
|
|
(let* ((leaf-count 0)
|
|
(emmet-leaf-function
|
|
(lambda ()
|
|
(format "$%d" (incf leaf-count)))))
|
|
(emmet-transform input)))
|
|
|
|
;;;###autoload
|
|
(defun emmet-expand-yas ()
|
|
(interactive)
|
|
(let ((expr (emmet-expr-on-line)))
|
|
(if expr
|
|
(let* ((markup (emmet-transform-yas (first expr)))
|
|
(filled (replace-regexp-in-string "><" ">\n<" markup)))
|
|
(delete-region (second expr) (third expr))
|
|
(insert filled)
|
|
(indent-region (second expr) (point))
|
|
(if (fboundp 'yas/expand-snippet)
|
|
(yas/expand-snippet
|
|
(buffer-substring (second expr) (point))
|
|
(second expr) (point)))))))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; Real-time preview
|
|
;;
|
|
|
|
;;;;;;;;;;
|
|
;; Lennart's version
|
|
|
|
(defvar emmet-preview-input nil)
|
|
(make-local-variable 'emmet-preview-input)
|
|
(defvar emmet-preview-output nil)
|
|
(make-local-variable 'emmet-preview-output)
|
|
(defvar emmet-old-show-paren nil)
|
|
(make-local-variable 'emmet-old-show-paren)
|
|
|
|
(defface emmet-preview-input
|
|
'((default :box t :inherit secondary-selection))
|
|
"Face for preview input field."
|
|
:group 'emmet)
|
|
|
|
(defface emmet-preview-output
|
|
'((default :inherit highlight))
|
|
"Face for preview output field."
|
|
:group 'emmet)
|
|
|
|
(defvar emmet-preview-keymap
|
|
(let ((map (make-sparse-keymap)))
|
|
(define-key map (kbd "RET") 'emmet-preview-accept)
|
|
(define-key map (kbd "<return>") 'emmet-preview-accept)
|
|
(define-key map [(control ?g)] 'emmet-preview-abort)
|
|
map))
|
|
|
|
(defun emmet-html-text-p (markup)
|
|
(string-match "^[\s|\t|\n|\r]*<.*$" markup))
|
|
|
|
(defun emmet-preview-accept ()
|
|
(interactive)
|
|
(let ((ovli emmet-preview-input)
|
|
(expr (emmet-expr-on-line)))
|
|
(if (not (and (overlayp ovli)
|
|
(bufferp (overlay-buffer ovli))))
|
|
(message "Preview is not active")
|
|
(let* ((indent (current-indentation))
|
|
(markup (emmet-preview-transformed indent)))
|
|
(when markup
|
|
(delete-region (overlay-start ovli) (overlay-end ovli))
|
|
(emmet-insert-and-flash markup)
|
|
(emmet-reposition-cursor expr)))))
|
|
(emmet-preview-abort))
|
|
|
|
(defun emmet-html-next-insert-point (str)
|
|
(with-temp-buffer
|
|
(insert str)
|
|
(goto-char (point-min))
|
|
(or
|
|
(emmet-aif (emmet-go-to-edit-point 1 t) (- it 1)) ; try to find an edit point
|
|
(emmet-aif (re-search-forward ".+</" nil t) (- it 3)) ; try to place cursor after tag contents
|
|
(length str)))) ; ok, just go to the end
|
|
|
|
(defun emmet-css-next-insert-point (str)
|
|
(let ((regexp (if emmet-use-sass-syntax ": *\\($\\)" ": *\\(;\\)$")))
|
|
(save-match-data
|
|
(set-match-data nil t)
|
|
(string-match regexp str)
|
|
(or (match-beginning 1) (length str)))))
|
|
|
|
(defvar emmet-flash-ovl nil)
|
|
(make-variable-buffer-local 'emmet-flash-ovl)
|
|
|
|
(defun emmet-remove-flash-ovl (buf)
|
|
(with-current-buffer buf
|
|
(when (overlayp emmet-flash-ovl)
|
|
(delete-overlay emmet-flash-ovl))
|
|
(setq emmet-flash-ovl nil)))
|
|
|
|
(defcustom emmet-insert-flash-time 0.5
|
|
"Time to flash insertion.
|
|
Set this to a negative number if you do not want flashing the
|
|
expansion after insertion."
|
|
:type '(number :tag "Seconds")
|
|
:group 'emmet)
|
|
|
|
(defcustom emmet-move-cursor-after-expanding t
|
|
"If non-nil the the cursor position is
|
|
moved to before the first closing tag when the exp was expanded."
|
|
:type 'boolean
|
|
:group 'emmet)
|
|
|
|
(defcustom emmet-move-cursor-between-quotes nil
|
|
"If emmet-move-cursor-after-expands is non-nil and this is non-nil then
|
|
cursor position will be moved to after the first quote."
|
|
:type 'boolean
|
|
:group 'emmet)
|
|
|
|
(defun emmet-reposition-cursor (expr)
|
|
(let ((output-markup (buffer-substring-no-properties (second expr) (point))))
|
|
(when emmet-move-cursor-after-expanding
|
|
(let ((p (point))
|
|
(new-pos (if (emmet-html-text-p output-markup)
|
|
(emmet-html-next-insert-point output-markup)
|
|
(emmet-css-next-insert-point output-markup))))
|
|
(goto-char
|
|
(+ (- p (length output-markup))
|
|
new-pos))))))
|
|
|
|
(defun emmet-insert-and-flash (markup)
|
|
(emmet-remove-flash-ovl (current-buffer))
|
|
(let ((here (point)))
|
|
(insert markup)
|
|
(when emmet-indent-after-insert
|
|
(indent-region here (point))
|
|
(setq here
|
|
(save-excursion
|
|
(goto-char here)
|
|
(skip-chars-forward "[:space:]")
|
|
(point))))
|
|
(setq emmet-flash-ovl (make-overlay here (point)))
|
|
(overlay-put emmet-flash-ovl 'face 'emmet-preview-output)
|
|
(when (< 0 emmet-insert-flash-time)
|
|
(run-with-idle-timer emmet-insert-flash-time
|
|
nil 'emmet-remove-flash-ovl (current-buffer)))))
|
|
|
|
;;;###autoload
|
|
(defun emmet-preview (beg end)
|
|
"Expand emmet between BEG and END interactively.
|
|
This will show a preview of the expanded emmet code and you can
|
|
accept it or skip it."
|
|
(interactive (if (use-region-p)
|
|
(list (region-beginning) (region-end))
|
|
(list nil nil)))
|
|
(emmet-preview-abort)
|
|
(if (not beg)
|
|
(message "Region not active")
|
|
(setq emmet-old-show-paren show-paren-mode)
|
|
(show-paren-mode -1)
|
|
(let ((here (point)))
|
|
(goto-char beg)
|
|
(forward-line 1)
|
|
(unless (= 0 (current-column))
|
|
(insert "\n"))
|
|
(let* ((opos (point))
|
|
(ovli (make-overlay beg end nil nil t))
|
|
(ovlo (make-overlay opos opos))
|
|
(info (propertize " Emmet preview. Choose with RET. Cancel by stepping out. \n"
|
|
'face 'tooltip)))
|
|
(overlay-put ovli 'face 'emmet-preview-input)
|
|
(overlay-put ovli 'keymap emmet-preview-keymap)
|
|
(overlay-put ovlo 'face 'emmet-preview-output)
|
|
(overlay-put ovlo 'before-string info)
|
|
(setq emmet-preview-input ovli)
|
|
(setq emmet-preview-output ovlo)
|
|
(add-hook 'before-change-functions 'emmet-preview-before-change t t)
|
|
(goto-char here)
|
|
(add-hook 'post-command-hook 'emmet-preview-post-command t t)))))
|
|
|
|
(defun emmet-preview-online ()
|
|
"Display `emmet-preview' on the fly as the user types.
|
|
|
|
To use this, add the function as a local hook:
|
|
|
|
(add-hook 'post-self-insert-hook 'emmet-preview-online t t)
|
|
|
|
or enable `emmet-preview-mode'."
|
|
(ignore-errors
|
|
(let* ((expr (emmet-expr-on-line))
|
|
(text (nth 0 expr))
|
|
(beg (nth 1 expr))
|
|
(end (nth 2 expr)))
|
|
(let ((wap (word-at-point)))
|
|
(when (and (not (equal wap text))
|
|
(emmet-transform text))
|
|
(emmet-preview beg end))))))
|
|
|
|
(define-minor-mode emmet-preview-mode
|
|
"When enabled, automatically show `emmet-preview' as the user types.
|
|
|
|
See `emmet-preview-online'."
|
|
:init-value nil
|
|
:group 'emmet
|
|
(if emmet-preview-mode
|
|
(add-hook 'post-self-insert-hook 'emmet-preview-online :append :local)
|
|
(remove-hook 'post-self-insert-hook 'emmet-preview-online :local)))
|
|
|
|
(defvar emmet-preview-pending-abort nil)
|
|
(make-variable-buffer-local 'emmet-preview-pending-abort)
|
|
|
|
(defun emmet-preview-before-change (beg end)
|
|
(when
|
|
(or (> beg (overlay-end emmet-preview-input))
|
|
(< beg (overlay-start emmet-preview-input))
|
|
(> end (overlay-end emmet-preview-input))
|
|
(< end (overlay-start emmet-preview-input)))
|
|
(setq emmet-preview-pending-abort t)))
|
|
|
|
(defun emmet-preview-abort ()
|
|
"Abort emmet code preview."
|
|
(interactive)
|
|
(setq emmet-preview-pending-abort nil)
|
|
(remove-hook 'before-change-functions 'emmet-preview-before-change t)
|
|
(when (overlayp emmet-preview-input)
|
|
(delete-overlay emmet-preview-input))
|
|
(setq emmet-preview-input nil)
|
|
(when (overlayp emmet-preview-output)
|
|
(delete-overlay emmet-preview-output))
|
|
(setq emmet-preview-output nil)
|
|
(remove-hook 'post-command-hook 'emmet-preview-post-command t)
|
|
(when emmet-old-show-paren (show-paren-mode 1)))
|
|
|
|
(defun emmet-preview-post-command ()
|
|
(condition-case err
|
|
(emmet-preview-post-command-1)
|
|
(error (message "emmet-preview-post: %s" err))))
|
|
|
|
(defun emmet-preview-post-command-1 ()
|
|
(if (and (not emmet-preview-pending-abort)
|
|
(<= (point) (overlay-end emmet-preview-input))
|
|
(>= (point) (overlay-start emmet-preview-input)))
|
|
(emmet-update-preview (current-indentation))
|
|
(emmet-preview-abort)))
|
|
|
|
(defun emmet-preview-transformed (indent)
|
|
(let* ((string (buffer-substring-no-properties
|
|
(overlay-start emmet-preview-input)
|
|
(overlay-end emmet-preview-input))))
|
|
(let ((output (emmet-transform string)))
|
|
(when output
|
|
output))))
|
|
|
|
(defun emmet-update-preview (indent)
|
|
(let* ((pretty (emmet-preview-transformed indent))
|
|
(show (when pretty
|
|
(propertize pretty 'face 'highlight))))
|
|
(when show
|
|
(overlay-put emmet-preview-output 'after-string
|
|
(concat show "\n")))))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Implementation of "Go to Edit Point" functionality ;;
|
|
;; http://docs.emmet.io/actions/go-to-edit-point/ ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun emmet-go-to-edit-point (count &optional only-before-closed-tag)
|
|
(let*
|
|
((between-tags
|
|
(if only-before-closed-tag "\\(><\\)/" "\\(><\\)"))
|
|
(indented-line "\\(^[[:blank:]]+$\\)")
|
|
(between-quotes
|
|
(if emmet-move-cursor-between-quotes "\\(=\\(\"\\|'\\)\\{2\\}\\)" nil))
|
|
(whole-regex
|
|
(mapconcat 'identity
|
|
(delq nil
|
|
(list between-tags indented-line between-quotes))
|
|
"\\|"))
|
|
(edit-point (format "\\(%s\\)" whole-regex)))
|
|
(if (> count 0)
|
|
(progn
|
|
(forward-char)
|
|
(let
|
|
((search-result (re-search-forward edit-point nil t count)))
|
|
(if search-result
|
|
(progn
|
|
(cond
|
|
((match-string 2) (goto-char (- (match-end 2) 1)))
|
|
((match-string 3) (end-of-line))
|
|
((match-string 4) (backward-char)))
|
|
(point))
|
|
(backward-char))))
|
|
(progn
|
|
(backward-char)
|
|
(let
|
|
((search-result (re-search-backward edit-point nil t (- count))))
|
|
(if search-result
|
|
(progn
|
|
(cond
|
|
((match-string 2) (goto-char (- (match-end 2) 1)))
|
|
((match-string 3) (end-of-line))
|
|
((match-string 4) (forward-char 2)))
|
|
(point))
|
|
(forward-char)))))))
|
|
|
|
(defcustom emmet-postwrap-goto-edit-point nil
|
|
"Goto first edit point after wrapping markup?"
|
|
:type 'boolean
|
|
:group 'emmet)
|
|
|
|
;;;###autoload
|
|
(defun emmet-wrap-with-markup (wrap-with)
|
|
"Wrap region with markup."
|
|
(interactive "sExpression to wrap with: ")
|
|
(let* ((multi (string-match "\\*$" wrap-with))
|
|
(txt (buffer-substring-no-properties (region-beginning) (region-end)))
|
|
(to-wrap (if multi
|
|
(split-string txt "\n")
|
|
(list txt)))
|
|
(initial-elements (replace-regexp-in-string
|
|
"\\(.*\\(\\+\\|>\\)\\)?[^>*]+\\*?[[:digit:]]*$"
|
|
"\\1" wrap-with t))
|
|
(terminal-element (replace-regexp-in-string
|
|
"\\(.*>\\)?\\([^>*]+\\)\\(\\*[[:digit:]]+$\\)?\\*?$"
|
|
"\\2" wrap-with t))
|
|
(multiplier-expr (replace-regexp-in-string
|
|
"\\(.*>\\)?\\([^>*]+\\)\\(\\*[[:digit:]]+$\\)?\\*?$"
|
|
"\\3" wrap-with t))
|
|
(expr (concat
|
|
initial-elements
|
|
(mapconcat (lambda (el)
|
|
(concat terminal-element
|
|
"{!!!"
|
|
(secure-hash 'sha1 el)
|
|
"!!!}"
|
|
multiplier-expr))
|
|
to-wrap
|
|
"+")))
|
|
(markup
|
|
(reduce
|
|
(lambda (result text)
|
|
(replace-regexp-in-string
|
|
(concat "!!!" (secure-hash 'sha1 text) "!!!")
|
|
text
|
|
result t t))
|
|
to-wrap
|
|
:initial-value (emmet-transform expr))))
|
|
(when markup
|
|
(delete-region (region-beginning) (region-end))
|
|
(insert markup)
|
|
(indent-region (region-beginning) (region-end))
|
|
(if emmet-postwrap-goto-edit-point
|
|
(let ((end (region-end)))
|
|
(goto-char (region-beginning))
|
|
(unless (ignore-errors (progn (emmet-next-edit-point 1) t))
|
|
(goto-char end)))
|
|
))))
|
|
|
|
;;;###autoload
|
|
(defun emmet-next-edit-point (count)
|
|
(interactive "^p")
|
|
(unless (or emmet-use-css-transform (emmet-go-to-edit-point count))
|
|
(error "Last edit point reached.")))
|
|
|
|
;;;###autoload
|
|
(defun emmet-prev-edit-point (count)
|
|
(interactive "^p")
|
|
(unless (or emmet-use-css-transform (emmet-go-to-edit-point (- count)))
|
|
(error "First edit point reached.")))
|
|
|
|
(provide 'emmet-mode)
|
|
;; src/snippets.el
|
|
;; This file is generated from conf/snippets.json
|
|
;; Don't edit.
|
|
(emmet-defparameter emmet-snippets
|
|
(let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "css" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "snippets" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "!" "!important" tbl)
|
|
(puthash "@f" "@font-face {\n\tfont-family:|;\n\tsrc:url(|);\n}" tbl)
|
|
(puthash "@f+" "@font-face {\n\tfont-family: '${1:FontName}';\n\tsrc: url('${2:FileName}.eot');\n\tsrc: url('${2:FileName}.eot?#iefix') format('embedded-opentype'),\n\t\t url('${2:FileName}.woff') format('woff'),\n\t\t url('${2:FileName}.ttf') format('truetype'),\n\t\t url('${2:FileName}.svg#${1:FontName}') format('svg');\n\tfont-style: ${3:normal};\n\tfont-weight: ${4:normal};\n}" tbl)
|
|
(puthash "@i" "@import url(|);" tbl)
|
|
(puthash "@import" "@import url(|);" tbl)
|
|
(puthash "@kf" "@-webkit-keyframes ${1:identifier} {\n\t${2:from} { ${3} }${6}\n\t${4:to} { ${5} }\n}\n@-o-keyframes ${1:identifier} {\n\t${2:from} { ${3} }${6}\n\t${4:to} { ${5} }\n}\n@-moz-keyframes ${1:identifier} {\n\t${2:from} { ${3} }${6}\n\t${4:to} { ${5} }\n}\n@keyframes ${1:identifier} {\n\t${2:from} { ${3} }${6}\n\t${4:to} { ${5} }\n}" tbl)
|
|
(puthash "@m" "@media ${1:screen} {\n\t|\n}" tbl)
|
|
(puthash "@media" "@media ${1:screen} {\n\t|\n}" tbl)
|
|
(puthash "ac" "align-content:|;" tbl)
|
|
(puthash "ac:c" "align-content:center;" tbl)
|
|
(puthash "ac:fe" "align-content:flex-end;" tbl)
|
|
(puthash "ac:fs" "align-content:flex-start;" tbl)
|
|
(puthash "ac:s" "align-content:stretch;" tbl)
|
|
(puthash "ac:sa" "align-content:space-around;" tbl)
|
|
(puthash "ac:sb" "align-content:space-between;" tbl)
|
|
(puthash "ai" "align-items:|;" tbl)
|
|
(puthash "ai:b" "align-items:baseline;" tbl)
|
|
(puthash "ai:c" "align-items:center;" tbl)
|
|
(puthash "ai:fe" "align-items:flex-end;" tbl)
|
|
(puthash "ai:fs" "align-items:flex-start;" tbl)
|
|
(puthash "ai:s" "align-items:stretch;" tbl)
|
|
(puthash "anim" "animation:|;" tbl)
|
|
(puthash "anim-" "animation:${1:name} ${2:duration} ${3:timing-function} ${4:delay} ${5:iteration-count} ${6:direction} ${7:fill-mode};" tbl)
|
|
(puthash "animdel" "animation-delay:${1:time};" tbl)
|
|
(puthash "animdir" "animation-direction:${1:normal};" tbl)
|
|
(puthash "animdir:a" "animation-direction:alternate;" tbl)
|
|
(puthash "animdir:ar" "animation-direction:alternate-reverse;" tbl)
|
|
(puthash "animdir:n" "animation-direction:normal;" tbl)
|
|
(puthash "animdir:r" "animation-direction:reverse;" tbl)
|
|
(puthash "animdur" "animation-duration:${1:0}s;" tbl)
|
|
(puthash "animfm" "animation-fill-mode:${1:both};" tbl)
|
|
(puthash "animfm:b" "animation-fill-mode:backwards;" tbl)
|
|
(puthash "animfm:bh" "animation-fill-mode:both;" tbl)
|
|
(puthash "animfm:bt" "animation-fill-mode:both;" tbl)
|
|
(puthash "animfm:f" "animation-fill-mode:forwards;" tbl)
|
|
(puthash "animic" "animation-iteration-count:${1:1};" tbl)
|
|
(puthash "animic:i" "animation-iteration-count:infinite;" tbl)
|
|
(puthash "animn" "animation-name:${1:none};" tbl)
|
|
(puthash "animps" "animation-play-state:${1:running};" tbl)
|
|
(puthash "animps:p" "animation-play-state:paused;" tbl)
|
|
(puthash "animps:r" "animation-play-state:running;" tbl)
|
|
(puthash "animtf" "animation-timing-function:${1:linear};" tbl)
|
|
(puthash "animtf:cb" "animation-timing-function:cubic-bezier(${1:0.1}, ${2:0.7}, ${3:1.0}, ${3:0.1});" tbl)
|
|
(puthash "animtf:e" "animation-timing-function:ease;" tbl)
|
|
(puthash "animtf:ei" "animation-timing-function:ease-in;" tbl)
|
|
(puthash "animtf:eio" "animation-timing-function:ease-in-out;" tbl)
|
|
(puthash "animtf:eo" "animation-timing-function:ease-out;" tbl)
|
|
(puthash "animtf:l" "animation-timing-function:linear;" tbl)
|
|
(puthash "ap" "appearance:${none};" tbl)
|
|
(puthash "as" "align-self:|;" tbl)
|
|
(puthash "as:a" "align-self:auto;" tbl)
|
|
(puthash "as:b" "align-self:baseline;" tbl)
|
|
(puthash "as:c" "align-self:center;" tbl)
|
|
(puthash "as:fe" "align-self:flex-end;" tbl)
|
|
(puthash "as:fs" "align-self:flex-start;" tbl)
|
|
(puthash "as:s" "align-self:stretch;" tbl)
|
|
(puthash "b" "bottom:|;" tbl)
|
|
(puthash "b:a" "bottom:auto;" tbl)
|
|
(puthash "bb" "border-bottom:|;" tbl)
|
|
(puthash "bd" "border:|;" tbl)
|
|
(puthash "bd+" "border:${1:1px} ${2:solid} ${3:#000};" tbl)
|
|
(puthash "bd:n" "border:none;" tbl)
|
|
(puthash "bdb" "border-bottom:|;" tbl)
|
|
(puthash "bdb+" "border-bottom:${1:1px} ${2:solid} ${3:#000};" tbl)
|
|
(puthash "bdb:n" "border-bottom:none;" tbl)
|
|
(puthash "bdbc" "border-bottom-color:#${1:000};" tbl)
|
|
(puthash "bdbc:t" "border-bottom-color:transparent;" tbl)
|
|
(puthash "bdbi" "border-bottom-image:url(|);" tbl)
|
|
(puthash "bdbi:n" "border-bottom-image:none;" tbl)
|
|
(puthash "bdbk" "border-break:${1:close};" tbl)
|
|
(puthash "bdbk:c" "border-break:close;" tbl)
|
|
(puthash "bdbli" "border-bottom-left-image:url(|);" tbl)
|
|
(puthash "bdbli:c" "border-bottom-left-image:continue;" tbl)
|
|
(puthash "bdbli:n" "border-bottom-left-image:none;" tbl)
|
|
(puthash "bdblrs" "border-bottom-left-radius:|;" tbl)
|
|
(puthash "bdbri" "border-bottom-right-image:url(|);" tbl)
|
|
(puthash "bdbri:c" "border-bottom-right-image:continue;" tbl)
|
|
(puthash "bdbri:n" "border-bottom-right-image:none;" tbl)
|
|
(puthash "bdbrrs" "border-bottom-right-radius:|;" tbl)
|
|
(puthash "bdbs" "border-bottom-style:|;" tbl)
|
|
(puthash "bdbs:n" "border-bottom-style:none;" tbl)
|
|
(puthash "bdbw" "border-bottom-width:|;" tbl)
|
|
(puthash "bdc" "border-color:#${1:000};" tbl)
|
|
(puthash "bdc:t" "border-color:transparent;" tbl)
|
|
(puthash "bdci" "border-corner-image:url(|);" tbl)
|
|
(puthash "bdci:c" "border-corner-image:continue;" tbl)
|
|
(puthash "bdci:n" "border-corner-image:none;" tbl)
|
|
(puthash "bdcl" "border-collapse:|;" tbl)
|
|
(puthash "bdcl:c" "border-collapse:collapse;" tbl)
|
|
(puthash "bdcl:s" "border-collapse:separate;" tbl)
|
|
(puthash "bdf" "border-fit:${1:repeat};" tbl)
|
|
(puthash "bdf:c" "border-fit:clip;" tbl)
|
|
(puthash "bdf:of" "border-fit:overflow;" tbl)
|
|
(puthash "bdf:ow" "border-fit:overwrite;" tbl)
|
|
(puthash "bdf:r" "border-fit:repeat;" tbl)
|
|
(puthash "bdf:sc" "border-fit:scale;" tbl)
|
|
(puthash "bdf:sp" "border-fit:space;" tbl)
|
|
(puthash "bdf:st" "border-fit:stretch;" tbl)
|
|
(puthash "bdi" "border-image:url(|);" tbl)
|
|
(puthash "bdi:n" "border-image:none;" tbl)
|
|
(puthash "bdl" "border-left:|;" tbl)
|
|
(puthash "bdl+" "border-left:${1:1px} ${2:solid} ${3:#000};" tbl)
|
|
(puthash "bdl:n" "border-left:none;" tbl)
|
|
(puthash "bdlc" "border-left-color:#${1:000};" tbl)
|
|
(puthash "bdlc:t" "border-left-color:transparent;" tbl)
|
|
(puthash "bdlen" "border-length:|;" tbl)
|
|
(puthash "bdlen:a" "border-length:auto;" tbl)
|
|
(puthash "bdli" "border-left-image:url(|);" tbl)
|
|
(puthash "bdli:n" "border-left-image:none;" tbl)
|
|
(puthash "bdls" "border-left-style:|;" tbl)
|
|
(puthash "bdls:n" "border-left-style:none;" tbl)
|
|
(puthash "bdlw" "border-left-width:|;" tbl)
|
|
(puthash "bdr" "border-right:|;" tbl)
|
|
(puthash "bdr+" "border-right:${1:1px} ${2:solid} ${3:#000};" tbl)
|
|
(puthash "bdr:n" "border-right:none;" tbl)
|
|
(puthash "bdrc" "border-right-color:#${1:000};" tbl)
|
|
(puthash "bdrc:t" "border-right-color:transparent;" tbl)
|
|
(puthash "bdri" "border-right-image:url(|);" tbl)
|
|
(puthash "bdri:n" "border-right-image:none;" tbl)
|
|
(puthash "bdrs" "border-radius:|;" tbl)
|
|
(puthash "bdrst" "border-right-style:|;" tbl)
|
|
(puthash "bdrst:n" "border-right-style:none;" tbl)
|
|
(puthash "bdrw" "border-right-width:|;" tbl)
|
|
(puthash "bds" "border-style:|;" tbl)
|
|
(puthash "bds:db" "border-style:double;" tbl)
|
|
(puthash "bds:ds" "border-style:dashed;" tbl)
|
|
(puthash "bds:dt" "border-style:dotted;" tbl)
|
|
(puthash "bds:dtds" "border-style:dot-dash;" tbl)
|
|
(puthash "bds:dtdtds" "border-style:dot-dot-dash;" tbl)
|
|
(puthash "bds:g" "border-style:groove;" tbl)
|
|
(puthash "bds:h" "border-style:hidden;" tbl)
|
|
(puthash "bds:i" "border-style:inset;" tbl)
|
|
(puthash "bds:n" "border-style:none;" tbl)
|
|
(puthash "bds:o" "border-style:outset;" tbl)
|
|
(puthash "bds:r" "border-style:ridge;" tbl)
|
|
(puthash "bds:s" "border-style:solid;" tbl)
|
|
(puthash "bds:w" "border-style:wave;" tbl)
|
|
(puthash "bdsp" "border-spacing:|;" tbl)
|
|
(puthash "bdt" "border-top:|;" tbl)
|
|
(puthash "bdt+" "border-top:${1:1px} ${2:solid} ${3:#000};" tbl)
|
|
(puthash "bdt:n" "border-top:none;" tbl)
|
|
(puthash "bdtc" "border-top-color:#${1:000};" tbl)
|
|
(puthash "bdtc:t" "border-top-color:transparent;" tbl)
|
|
(puthash "bdti" "border-top-image:url(|);" tbl)
|
|
(puthash "bdti:n" "border-top-image:none;" tbl)
|
|
(puthash "bdtli" "border-top-left-image:url(|);" tbl)
|
|
(puthash "bdtli:c" "border-top-left-image:continue;" tbl)
|
|
(puthash "bdtli:n" "border-top-left-image:none;" tbl)
|
|
(puthash "bdtlrs" "border-top-left-radius:|;" tbl)
|
|
(puthash "bdtri" "border-top-right-image:url(|);" tbl)
|
|
(puthash "bdtri:c" "border-top-right-image:continue;" tbl)
|
|
(puthash "bdtri:n" "border-top-right-image:none;" tbl)
|
|
(puthash "bdtrrs" "border-top-right-radius:|;" tbl)
|
|
(puthash "bdts" "border-top-style:|;" tbl)
|
|
(puthash "bdts:n" "border-top-style:none;" tbl)
|
|
(puthash "bdtw" "border-top-width:|;" tbl)
|
|
(puthash "bdw" "border-width:|;" tbl)
|
|
(puthash "bfv" "backface-visibility:|;" tbl)
|
|
(puthash "bfv:h" "backface-visibility:hidden;" tbl)
|
|
(puthash "bfv:v" "backface-visibility:visible;" tbl)
|
|
(puthash "bg" "background:#${1:000};" tbl)
|
|
(puthash "bg+" "background:${1:#fff} url(${2}) ${3:0} ${4:0} ${5:no-repeat};" tbl)
|
|
(puthash "bg:ie" "filter:progid:DXImageTransform.Microsoft.AlphaImageLoader(src='${1:x}.png',sizingMethod='${2:crop}');" tbl)
|
|
(puthash "bg:n" "background:none;" tbl)
|
|
(puthash "bga" "background-attachment:|;" tbl)
|
|
(puthash "bga:f" "background-attachment:fixed;" tbl)
|
|
(puthash "bga:s" "background-attachment:scroll;" tbl)
|
|
(puthash "bgbk" "background-break:|;" tbl)
|
|
(puthash "bgbk:bb" "background-break:bounding-box;" tbl)
|
|
(puthash "bgbk:c" "background-break:continuous;" tbl)
|
|
(puthash "bgbk:eb" "background-break:each-box;" tbl)
|
|
(puthash "bgc" "background-color:#${1:fff};" tbl)
|
|
(puthash "bgc:t" "background-color:transparent;" tbl)
|
|
(puthash "bgcp" "background-clip:${1:padding-box};" tbl)
|
|
(puthash "bgcp:bb" "background-clip:border-box;" tbl)
|
|
(puthash "bgcp:cb" "background-clip:content-box;" tbl)
|
|
(puthash "bgcp:nc" "background-clip:no-clip;" tbl)
|
|
(puthash "bgcp:pb" "background-clip:padding-box;" tbl)
|
|
(puthash "bgi" "background-image:url(|);" tbl)
|
|
(puthash "bgi:n" "background-image:none;" tbl)
|
|
(puthash "bgo" "background-origin:|;" tbl)
|
|
(puthash "bgo:bb" "background-origin:border-box;" tbl)
|
|
(puthash "bgo:cb" "background-origin:content-box;" tbl)
|
|
(puthash "bgo:pb" "background-origin:padding-box;" tbl)
|
|
(puthash "bgp" "background-position:${1:0} ${2:0};" tbl)
|
|
(puthash "bgpx" "background-position-x:|;" tbl)
|
|
(puthash "bgpy" "background-position-y:|;" tbl)
|
|
(puthash "bgr" "background-repeat:|;" tbl)
|
|
(puthash "bgr:n" "background-repeat:no-repeat;" tbl)
|
|
(puthash "bgr:rd" "background-repeat:round;" tbl)
|
|
(puthash "bgr:sp" "background-repeat:space;" tbl)
|
|
(puthash "bgr:x" "background-repeat:repeat-x;" tbl)
|
|
(puthash "bgr:y" "background-repeat:repeat-y;" tbl)
|
|
(puthash "bgsz" "background-size:|;" tbl)
|
|
(puthash "bgsz:a" "background-size:auto;" tbl)
|
|
(puthash "bgsz:ct" "background-size:contain;" tbl)
|
|
(puthash "bgsz:cv" "background-size:cover;" tbl)
|
|
(puthash "bl" "border-left:|;" tbl)
|
|
(puthash "br" "border-right:|;" tbl)
|
|
(puthash "bt" "border-top:|;" tbl)
|
|
(puthash "bxsh" "box-shadow:${1:inset }${2:hoff} ${3:voff} ${4:blur} ${5:color};" tbl)
|
|
(puthash "bxsh:n" "box-shadow:none;" tbl)
|
|
(puthash "bxsh:r" "box-shadow:${1:inset }${2:hoff} ${3:voff} ${4:blur} ${5:spread }rgb(${6:0}, ${7:0}, ${8:0});" tbl)
|
|
(puthash "bxsh:ra" "box-shadow:${1:inset }${2:h} ${3:v} ${4:blur} ${5:spread }rgba(${6:0}, ${7:0}, ${8:0}, .${9:5});" tbl)
|
|
(puthash "bxz" "box-sizing:${1:border-box};" tbl)
|
|
(puthash "bxz:bb" "box-sizing:border-box;" tbl)
|
|
(puthash "bxz:cb" "box-sizing:content-box;" tbl)
|
|
(puthash "c" "color:#${1:000};" tbl)
|
|
(puthash "c:r" "color:rgb(${1:0}, ${2:0}, ${3:0});" tbl)
|
|
(puthash "c:ra" "color:rgba(${1:0}, ${2:0}, ${3:0}, .${4:5});" tbl)
|
|
(puthash "cl" "clear:${1:both};" tbl)
|
|
(puthash "cl:b" "clear:both;" tbl)
|
|
(puthash "cl:l" "clear:left;" tbl)
|
|
(puthash "cl:n" "clear:none;" tbl)
|
|
(puthash "cl:r" "clear:right;" tbl)
|
|
(puthash "cm" "/* |${child} */" tbl)
|
|
(puthash "cnt" "content:'|';" tbl)
|
|
(puthash "cnt:a" "content:attr(|);" tbl)
|
|
(puthash "cnt:c" "content:counter(|);" tbl)
|
|
(puthash "cnt:cq" "content:close-quote;" tbl)
|
|
(puthash "cnt:cs" "content:counters(|);" tbl)
|
|
(puthash "cnt:n" "content:normal;" tbl)
|
|
(puthash "cnt:ncq" "content:no-close-quote;" tbl)
|
|
(puthash "cnt:noq" "content:no-open-quote;" tbl)
|
|
(puthash "cnt:oq" "content:open-quote;" tbl)
|
|
(puthash "coi" "counter-increment:|;" tbl)
|
|
(puthash "colm" "columns:|;" tbl)
|
|
(puthash "colmc" "column-count:|;" tbl)
|
|
(puthash "colmf" "column-fill:|;" tbl)
|
|
(puthash "colmg" "column-gap:|;" tbl)
|
|
(puthash "colmr" "column-rule:|;" tbl)
|
|
(puthash "colmrc" "column-rule-color:|;" tbl)
|
|
(puthash "colmrs" "column-rule-style:|;" tbl)
|
|
(puthash "colmrw" "column-rule-width:|;" tbl)
|
|
(puthash "colms" "column-span:|;" tbl)
|
|
(puthash "colmw" "column-width:|;" tbl)
|
|
(puthash "cor" "counter-reset:|;" tbl)
|
|
(puthash "cp" "clip:|;" tbl)
|
|
(puthash "cp:a" "clip:auto;" tbl)
|
|
(puthash "cp:r" "clip:rect(${1:top} ${2:right} ${3:bottom} ${4:left});" tbl)
|
|
(puthash "cps" "caption-side:|;" tbl)
|
|
(puthash "cps:b" "caption-side:bottom;" tbl)
|
|
(puthash "cps:t" "caption-side:top;" tbl)
|
|
(puthash "ct" "content:|;" tbl)
|
|
(puthash "ct:a" "content:attr(|);" tbl)
|
|
(puthash "ct:c" "content:counter(|);" tbl)
|
|
(puthash "ct:cq" "content:close-quote;" tbl)
|
|
(puthash "ct:cs" "content:counters(|);" tbl)
|
|
(puthash "ct:n" "content:normal;" tbl)
|
|
(puthash "ct:ncq" "content:no-close-quote;" tbl)
|
|
(puthash "ct:noq" "content:no-open-quote;" tbl)
|
|
(puthash "ct:oq" "content:open-quote;" tbl)
|
|
(puthash "cur" "cursor:${pointer};" tbl)
|
|
(puthash "cur:a" "cursor:auto;" tbl)
|
|
(puthash "cur:c" "cursor:crosshair;" tbl)
|
|
(puthash "cur:d" "cursor:default;" tbl)
|
|
(puthash "cur:ha" "cursor:hand;" tbl)
|
|
(puthash "cur:he" "cursor:help;" tbl)
|
|
(puthash "cur:m" "cursor:move;" tbl)
|
|
(puthash "cur:p" "cursor:pointer;" tbl)
|
|
(puthash "cur:t" "cursor:text;" tbl)
|
|
(puthash "d" "display:${1:block};" tbl)
|
|
(puthash "d:b" "display:block;" tbl)
|
|
(puthash "d:cp" "display:compact;" tbl)
|
|
(puthash "d:f" "display:flex;" tbl)
|
|
(puthash "d:i" "display:inline;" tbl)
|
|
(puthash "d:ib" "display:inline-block;" tbl)
|
|
(puthash "d:ib+" "display: inline-block;\n*display: inline;\n*zoom: 1;" tbl)
|
|
(puthash "d:if" "display:inline-flex;" tbl)
|
|
(puthash "d:itb" "display:inline-table;" tbl)
|
|
(puthash "d:li" "display:list-item;" tbl)
|
|
(puthash "d:n" "display:none;" tbl)
|
|
(puthash "d:rb" "display:ruby;" tbl)
|
|
(puthash "d:rbb" "display:ruby-base;" tbl)
|
|
(puthash "d:rbbg" "display:ruby-base-group;" tbl)
|
|
(puthash "d:rbt" "display:ruby-text;" tbl)
|
|
(puthash "d:rbtg" "display:ruby-text-group;" tbl)
|
|
(puthash "d:ri" "display:run-in;" tbl)
|
|
(puthash "d:tb" "display:table;" tbl)
|
|
(puthash "d:tbc" "display:table-cell;" tbl)
|
|
(puthash "d:tbcl" "display:table-column;" tbl)
|
|
(puthash "d:tbclg" "display:table-column-group;" tbl)
|
|
(puthash "d:tbcp" "display:table-caption;" tbl)
|
|
(puthash "d:tbfg" "display:table-footer-group;" tbl)
|
|
(puthash "d:tbhg" "display:table-header-group;" tbl)
|
|
(puthash "d:tbr" "display:table-row;" tbl)
|
|
(puthash "d:tbrg" "display:table-row-group;" tbl)
|
|
(puthash "ec" "empty-cells:|;" tbl)
|
|
(puthash "ec:h" "empty-cells:hide;" tbl)
|
|
(puthash "ec:s" "empty-cells:show;" tbl)
|
|
(puthash "f" "font:|;" tbl)
|
|
(puthash "f+" "font:${1:1em} ${2:Arial,sans-serif};" tbl)
|
|
(puthash "fef" "font-effect:|;" tbl)
|
|
(puthash "fef:eb" "font-effect:emboss;" tbl)
|
|
(puthash "fef:eg" "font-effect:engrave;" tbl)
|
|
(puthash "fef:n" "font-effect:none;" tbl)
|
|
(puthash "fef:o" "font-effect:outline;" tbl)
|
|
(puthash "fem" "font-emphasize:|;" tbl)
|
|
(puthash "femp" "font-emphasize-position:|;" tbl)
|
|
(puthash "femp:a" "font-emphasize-position:after;" tbl)
|
|
(puthash "femp:b" "font-emphasize-position:before;" tbl)
|
|
(puthash "fems" "font-emphasize-style:|;" tbl)
|
|
(puthash "fems:ac" "font-emphasize-style:accent;" tbl)
|
|
(puthash "fems:c" "font-emphasize-style:circle;" tbl)
|
|
(puthash "fems:ds" "font-emphasize-style:disc;" tbl)
|
|
(puthash "fems:dt" "font-emphasize-style:dot;" tbl)
|
|
(puthash "fems:n" "font-emphasize-style:none;" tbl)
|
|
(puthash "ff" "font-family:|;" tbl)
|
|
(puthash "ff:a" "font-family: Arial, \"Helvetica Neue\", Helvetica, sans-serif;" tbl)
|
|
(puthash "ff:c" "font-family:cursive;" tbl)
|
|
(puthash "ff:f" "font-family:fantasy;" tbl)
|
|
(puthash "ff:m" "font-family:monospace;" tbl)
|
|
(puthash "ff:s" "font-family:serif;" tbl)
|
|
(puthash "ff:ss" "font-family:sans-serif;" tbl)
|
|
(puthash "ff:t" "font-family: \"Times New Roman\", Times, Baskerville, Georgia, serif;" tbl)
|
|
(puthash "ff:v" "font-family: Verdana, Geneva, sans-serif;" tbl)
|
|
(puthash "fl" "float:${1:left};" tbl)
|
|
(puthash "fl:l" "float:left;" tbl)
|
|
(puthash "fl:n" "float:none;" tbl)
|
|
(puthash "fl:r" "float:right;" tbl)
|
|
(puthash "fs" "font-style:${italic};" tbl)
|
|
(puthash "fs:i" "font-style:italic;" tbl)
|
|
(puthash "fs:n" "font-style:normal;" tbl)
|
|
(puthash "fs:o" "font-style:oblique;" tbl)
|
|
(puthash "fsm" "font-smooth:|;" tbl)
|
|
(puthash "fsm:a" "font-smooth:auto;" tbl)
|
|
(puthash "fsm:aw" "font-smooth:always;" tbl)
|
|
(puthash "fsm:n" "font-smooth:never;" tbl)
|
|
(puthash "fst" "font-stretch:|;" tbl)
|
|
(puthash "fst:c" "font-stretch:condensed;" tbl)
|
|
(puthash "fst:e" "font-stretch:expanded;" tbl)
|
|
(puthash "fst:ec" "font-stretch:extra-condensed;" tbl)
|
|
(puthash "fst:ee" "font-stretch:extra-expanded;" tbl)
|
|
(puthash "fst:n" "font-stretch:normal;" tbl)
|
|
(puthash "fst:sc" "font-stretch:semi-condensed;" tbl)
|
|
(puthash "fst:se" "font-stretch:semi-expanded;" tbl)
|
|
(puthash "fst:uc" "font-stretch:ultra-condensed;" tbl)
|
|
(puthash "fst:ue" "font-stretch:ultra-expanded;" tbl)
|
|
(puthash "fv" "font-variant:|;" tbl)
|
|
(puthash "fv:n" "font-variant:normal;" tbl)
|
|
(puthash "fv:sc" "font-variant:small-caps;" tbl)
|
|
(puthash "fw" "font-weight:|;" tbl)
|
|
(puthash "fw:b" "font-weight:bold;" tbl)
|
|
(puthash "fw:br" "font-weight:bolder;" tbl)
|
|
(puthash "fw:lr" "font-weight:lighter;" tbl)
|
|
(puthash "fw:n" "font-weight:normal;" tbl)
|
|
(puthash "fx" "flex:|;" tbl)
|
|
(puthash "fxb" "flex-basis:|;" tbl)
|
|
(puthash "fxd" "flex-direction:|;" tbl)
|
|
(puthash "fxd:c" "flex-direction:column;" tbl)
|
|
(puthash "fxd:cr" "flex-direction:column-reverse;" tbl)
|
|
(puthash "fxd:r" "flex-direction:row;" tbl)
|
|
(puthash "fxd:rr" "flex-direction:row-reverse;" tbl)
|
|
(puthash "fxf" "flex-flow:|;" tbl)
|
|
(puthash "fxg" "flex-grow:|;" tbl)
|
|
(puthash "fxsh" "flex-shrink:|;" tbl)
|
|
(puthash "fxw" "flex-wrap: |;" tbl)
|
|
(puthash "fxw:n" "flex-wrap:nowrap;" tbl)
|
|
(puthash "fxw:w" "flex-wrap:wrap;" tbl)
|
|
(puthash "fxw:wr" "flex-wrap:wrap-reverse;" tbl)
|
|
(puthash "fz" "font-size:|;" tbl)
|
|
(puthash "fza" "font-size-adjust:|;" tbl)
|
|
(puthash "fza:n" "font-size-adjust:none;" tbl)
|
|
(puthash "h" "height:|;" tbl)
|
|
(puthash "h:a" "height:auto;" tbl)
|
|
(puthash "jc" "justify-content:|;" tbl)
|
|
(puthash "jc:c" "justify-content:center;" tbl)
|
|
(puthash "jc:fe" "justify-content:flex-end;" tbl)
|
|
(puthash "jc:fs" "justify-content:flex-start;" tbl)
|
|
(puthash "jc:sa" "justify-content:space-around;" tbl)
|
|
(puthash "jc:sb" "justify-content:space-between;" tbl)
|
|
(puthash "l" "left:|;" tbl)
|
|
(puthash "l:a" "left:auto;" tbl)
|
|
(puthash "lh" "line-height:|;" tbl)
|
|
(puthash "lis" "list-style:|;" tbl)
|
|
(puthash "lis:n" "list-style:none;" tbl)
|
|
(puthash "lisi" "list-style-image:|;" tbl)
|
|
(puthash "lisi:n" "list-style-image:none;" tbl)
|
|
(puthash "lisp" "list-style-position:|;" tbl)
|
|
(puthash "lisp:i" "list-style-position:inside;" tbl)
|
|
(puthash "lisp:o" "list-style-position:outside;" tbl)
|
|
(puthash "list" "list-style-type:|;" tbl)
|
|
(puthash "list:c" "list-style-type:circle;" tbl)
|
|
(puthash "list:d" "list-style-type:disc;" tbl)
|
|
(puthash "list:dc" "list-style-type:decimal;" tbl)
|
|
(puthash "list:dclz" "list-style-type:decimal-leading-zero;" tbl)
|
|
(puthash "list:lr" "list-style-type:lower-roman;" tbl)
|
|
(puthash "list:n" "list-style-type:none;" tbl)
|
|
(puthash "list:s" "list-style-type:square;" tbl)
|
|
(puthash "list:ur" "list-style-type:upper-roman;" tbl)
|
|
(puthash "lts" "letter-spacing:|;" tbl)
|
|
(puthash "lts-n" "letter-spacing:normal;" tbl)
|
|
(puthash "m" "margin:|;" tbl)
|
|
(puthash "m:a" "margin:auto;" tbl)
|
|
(puthash "mah" "max-height:|;" tbl)
|
|
(puthash "mah:n" "max-height:none;" tbl)
|
|
(puthash "mar" "max-resolution:${1:res};" tbl)
|
|
(puthash "maw" "max-width:|;" tbl)
|
|
(puthash "maw:n" "max-width:none;" tbl)
|
|
(puthash "mb" "margin-bottom:|;" tbl)
|
|
(puthash "mb:a" "margin-bottom:auto;" tbl)
|
|
(puthash "mih" "min-height:|;" tbl)
|
|
(puthash "mir" "min-resolution:${1:res};" tbl)
|
|
(puthash "miw" "min-width:|;" tbl)
|
|
(puthash "ml" "margin-left:|;" tbl)
|
|
(puthash "ml:a" "margin-left:auto;" tbl)
|
|
(puthash "mr" "margin-right:|;" tbl)
|
|
(puthash "mr:a" "margin-right:auto;" tbl)
|
|
(puthash "mt" "margin-top:|;" tbl)
|
|
(puthash "mt:a" "margin-top:auto;" tbl)
|
|
(puthash "ol" "outline:|;" tbl)
|
|
(puthash "ol:n" "outline:none;" tbl)
|
|
(puthash "olc" "outline-color:#${1:000};" tbl)
|
|
(puthash "olc:i" "outline-color:invert;" tbl)
|
|
(puthash "olo" "outline-offset:|;" tbl)
|
|
(puthash "ols" "outline-style:|;" tbl)
|
|
(puthash "ols:db" "outline-style:double;" tbl)
|
|
(puthash "ols:ds" "outline-style:dashed;" tbl)
|
|
(puthash "ols:dt" "outline-style:dotted;" tbl)
|
|
(puthash "ols:g" "outline-style:groove;" tbl)
|
|
(puthash "ols:i" "outline-style:inset;" tbl)
|
|
(puthash "ols:n" "outline-style:none;" tbl)
|
|
(puthash "ols:o" "outline-style:outset;" tbl)
|
|
(puthash "ols:r" "outline-style:ridge;" tbl)
|
|
(puthash "ols:s" "outline-style:solid;" tbl)
|
|
(puthash "olw" "outline-width:|;" tbl)
|
|
(puthash "olw:m" "outline-width:medium;" tbl)
|
|
(puthash "olw:tc" "outline-width:thick;" tbl)
|
|
(puthash "olw:tn" "outline-width:thin;" tbl)
|
|
(puthash "op" "opacity:|;" tbl)
|
|
(puthash "op+" "opacity: $1;\nfilter: alpha(opacity=$2);" tbl)
|
|
(puthash "op:ie" "filter:progid:DXImageTransform.Microsoft.Alpha(Opacity=100);" tbl)
|
|
(puthash "op:ms" "-ms-filter:'progid:DXImageTransform.Microsoft.Alpha(Opacity=100)';" tbl)
|
|
(puthash "ord" "order:|;" tbl)
|
|
(puthash "ori" "orientation:|;" tbl)
|
|
(puthash "ori:l" "orientation:landscape;" tbl)
|
|
(puthash "ori:p" "orientation:portrait;" tbl)
|
|
(puthash "orp" "orphans:|;" tbl)
|
|
(puthash "ov" "overflow:${1:hidden};" tbl)
|
|
(puthash "ov:a" "overflow:auto;" tbl)
|
|
(puthash "ov:h" "overflow:hidden;" tbl)
|
|
(puthash "ov:s" "overflow:scroll;" tbl)
|
|
(puthash "ov:v" "overflow:visible;" tbl)
|
|
(puthash "ovs" "overflow-style:${1:scrollbar};" tbl)
|
|
(puthash "ovs:a" "overflow-style:auto;" tbl)
|
|
(puthash "ovs:m" "overflow-style:move;" tbl)
|
|
(puthash "ovs:mq" "overflow-style:marquee;" tbl)
|
|
(puthash "ovs:p" "overflow-style:panner;" tbl)
|
|
(puthash "ovs:s" "overflow-style:scrollbar;" tbl)
|
|
(puthash "ovx" "overflow-x:${1:hidden};" tbl)
|
|
(puthash "ovx:a" "overflow-x:auto;" tbl)
|
|
(puthash "ovx:h" "overflow-x:hidden;" tbl)
|
|
(puthash "ovx:s" "overflow-x:scroll;" tbl)
|
|
(puthash "ovx:v" "overflow-x:visible;" tbl)
|
|
(puthash "ovy" "overflow-y:${1:hidden};" tbl)
|
|
(puthash "ovy:a" "overflow-y:auto;" tbl)
|
|
(puthash "ovy:h" "overflow-y:hidden;" tbl)
|
|
(puthash "ovy:s" "overflow-y:scroll;" tbl)
|
|
(puthash "ovy:v" "overflow-y:visible;" tbl)
|
|
(puthash "p" "padding:|;" tbl)
|
|
(puthash "pb" "padding-bottom:|;" tbl)
|
|
(puthash "pgba" "page-break-after:|;" tbl)
|
|
(puthash "pgba:al" "page-break-after:always;" tbl)
|
|
(puthash "pgba:au" "page-break-after:auto;" tbl)
|
|
(puthash "pgba:l" "page-break-after:left;" tbl)
|
|
(puthash "pgba:r" "page-break-after:right;" tbl)
|
|
(puthash "pgbb" "page-break-before:|;" tbl)
|
|
(puthash "pgbb:al" "page-break-before:always;" tbl)
|
|
(puthash "pgbb:au" "page-break-before:auto;" tbl)
|
|
(puthash "pgbb:l" "page-break-before:left;" tbl)
|
|
(puthash "pgbb:r" "page-break-before:right;" tbl)
|
|
(puthash "pgbi" "page-break-inside:|;" tbl)
|
|
(puthash "pgbi:au" "page-break-inside:auto;" tbl)
|
|
(puthash "pgbi:av" "page-break-inside:avoid;" tbl)
|
|
(puthash "pl" "padding-left:|;" tbl)
|
|
(puthash "pos" "position:${1:relative};" tbl)
|
|
(puthash "pos:a" "position:absolute;" tbl)
|
|
(puthash "pos:f" "position:fixed;" tbl)
|
|
(puthash "pos:r" "position:relative;" tbl)
|
|
(puthash "pos:s" "position:static;" tbl)
|
|
(puthash "pr" "padding-right:|;" tbl)
|
|
(puthash "pt" "padding-top:|;" tbl)
|
|
(puthash "q" "quotes:|;" tbl)
|
|
(puthash "q:en" "quotes:'\\201C' '\\201D' '\\2018' '\\2019';" tbl)
|
|
(puthash "q:n" "quotes:none;" tbl)
|
|
(puthash "q:ru" "quotes:'\\00AB' '\\00BB' '\\201E' '\\201C';" tbl)
|
|
(puthash "r" "right:|;" tbl)
|
|
(puthash "r:a" "right:auto;" tbl)
|
|
(puthash "rsz" "resize:|;" tbl)
|
|
(puthash "rsz:b" "resize:both;" tbl)
|
|
(puthash "rsz:h" "resize:horizontal;" tbl)
|
|
(puthash "rsz:n" "resize:none;" tbl)
|
|
(puthash "rsz:v" "resize:vertical;" tbl)
|
|
(puthash "t" "top:|;" tbl)
|
|
(puthash "t:a" "top:auto;" tbl)
|
|
(puthash "ta" "text-align:${1:left};" tbl)
|
|
(puthash "ta-lst" "text-align-last:|;" tbl)
|
|
(puthash "ta:c" "text-align:center;" tbl)
|
|
(puthash "ta:j" "text-align:justify;" tbl)
|
|
(puthash "ta:l" "text-align:left;" tbl)
|
|
(puthash "ta:r" "text-align:right;" tbl)
|
|
(puthash "tal:a" "text-align-last:auto;" tbl)
|
|
(puthash "tal:c" "text-align-last:center;" tbl)
|
|
(puthash "tal:l" "text-align-last:left;" tbl)
|
|
(puthash "tal:r" "text-align-last:right;" tbl)
|
|
(puthash "tbl" "table-layout:|;" tbl)
|
|
(puthash "tbl:a" "table-layout:auto;" tbl)
|
|
(puthash "tbl:f" "table-layout:fixed;" tbl)
|
|
(puthash "td" "text-decoration:${1:none};" tbl)
|
|
(puthash "td:l" "text-decoration:line-through;" tbl)
|
|
(puthash "td:n" "text-decoration:none;" tbl)
|
|
(puthash "td:o" "text-decoration:overline;" tbl)
|
|
(puthash "td:u" "text-decoration:underline;" tbl)
|
|
(puthash "te" "text-emphasis:|;" tbl)
|
|
(puthash "te:a" "text-emphasis:after;" tbl)
|
|
(puthash "te:ac" "text-emphasis:accent;" tbl)
|
|
(puthash "te:b" "text-emphasis:before;" tbl)
|
|
(puthash "te:c" "text-emphasis:circle;" tbl)
|
|
(puthash "te:ds" "text-emphasis:disc;" tbl)
|
|
(puthash "te:dt" "text-emphasis:dot;" tbl)
|
|
(puthash "te:n" "text-emphasis:none;" tbl)
|
|
(puthash "th" "text-height:|;" tbl)
|
|
(puthash "th:a" "text-height:auto;" tbl)
|
|
(puthash "th:f" "text-height:font-size;" tbl)
|
|
(puthash "th:m" "text-height:max-size;" tbl)
|
|
(puthash "th:t" "text-height:text-size;" tbl)
|
|
(puthash "ti" "text-indent:|;" tbl)
|
|
(puthash "ti:-" "text-indent:-9999px;" tbl)
|
|
(puthash "tj" "text-justify:|;" tbl)
|
|
(puthash "tj:a" "text-justify:auto;" tbl)
|
|
(puthash "tj:d" "text-justify:distribute;" tbl)
|
|
(puthash "tj:ic" "text-justify:inter-cluster;" tbl)
|
|
(puthash "tj:ii" "text-justify:inter-ideograph;" tbl)
|
|
(puthash "tj:iw" "text-justify:inter-word;" tbl)
|
|
(puthash "tj:k" "text-justify:kashida;" tbl)
|
|
(puthash "tj:t" "text-justify:tibetan;" tbl)
|
|
(puthash "to" "text-outline:|;" tbl)
|
|
(puthash "to+" "text-outline:${1:0} ${2:0} ${3:#000};" tbl)
|
|
(puthash "to:n" "text-outline:none;" tbl)
|
|
(puthash "tov" "text-overflow:${ellipsis};" tbl)
|
|
(puthash "tov:c" "text-overflow:clip;" tbl)
|
|
(puthash "tov:e" "text-overflow:ellipsis;" tbl)
|
|
(puthash "tr" "text-replace:|;" tbl)
|
|
(puthash "tr:n" "text-replace:none;" tbl)
|
|
(puthash "trf" "transform:|;" tbl)
|
|
(puthash "trf:r" "transform: rotate(${1:angle});" tbl)
|
|
(puthash "trf:rx" "transform: rotateX(${1:angle});" tbl)
|
|
(puthash "trf:ry" "transform: rotateY(${1:angle});" tbl)
|
|
(puthash "trf:rz" "transform: rotateZ(${1:angle});" tbl)
|
|
(puthash "trf:sc" "transform: scale(${1:x}, ${2:y});" tbl)
|
|
(puthash "trf:sc3" "transform: scale3d(${1:x}, ${2:y}, ${3:z});" tbl)
|
|
(puthash "trf:scx" "transform: scaleX(${1:x});" tbl)
|
|
(puthash "trf:scy" "transform: scaleY(${1:y});" tbl)
|
|
(puthash "trf:scz" "transform: scaleZ(${1:z});" tbl)
|
|
(puthash "trf:skx" "transform: skewX(${1:angle});" tbl)
|
|
(puthash "trf:sky" "transform: skewY(${1:angle});" tbl)
|
|
(puthash "trf:t" "transform: translate(${1:x}, ${2:y});" tbl)
|
|
(puthash "trf:t3" "transform: translate3d(${1:tx}, ${2:ty}, ${3:tz});" tbl)
|
|
(puthash "trf:tx" "transform: translateX(${1:x});" tbl)
|
|
(puthash "trf:ty" "transform: translateY(${1:y});" tbl)
|
|
(puthash "trf:tz" "transform: translateZ(${1:z});" tbl)
|
|
(puthash "trfo" "transform-origin:|;" tbl)
|
|
(puthash "trfs" "transform-style:${1:preserve-3d};" tbl)
|
|
(puthash "trs" "transition:${1:prop} ${2:time};" tbl)
|
|
(puthash "trsde" "transition-delay:${1:time};" tbl)
|
|
(puthash "trsdu" "transition-duration:${1:time};" tbl)
|
|
(puthash "trsp" "transition-property:${1:prop};" tbl)
|
|
(puthash "trstf" "transition-timing-function:${1:tfunc};" tbl)
|
|
(puthash "tsh" "text-shadow:${1:hoff} ${2:voff} ${3:blur} ${4:#000};" tbl)
|
|
(puthash "tsh+" "text-shadow:${1:0} ${2:0} ${3:0} ${4:#000};" tbl)
|
|
(puthash "tsh:n" "text-shadow:none;" tbl)
|
|
(puthash "tsh:r" "text-shadow:${1:h} ${2:v} ${3:blur} rgb(${4:0}, ${5:0}, ${6:0});" tbl)
|
|
(puthash "tsh:ra" "text-shadow:${1:h} ${2:v} ${3:blur} rgba(${4:0}, ${5:0}, ${6:0}, .${7:5});" tbl)
|
|
(puthash "tt" "text-transform:${1:uppercase};" tbl)
|
|
(puthash "tt:c" "text-transform:capitalize;" tbl)
|
|
(puthash "tt:l" "text-transform:lowercase;" tbl)
|
|
(puthash "tt:n" "text-transform:none;" tbl)
|
|
(puthash "tt:u" "text-transform:uppercase;" tbl)
|
|
(puthash "tw" "text-wrap:|;" tbl)
|
|
(puthash "tw:n" "text-wrap:normal;" tbl)
|
|
(puthash "tw:no" "text-wrap:none;" tbl)
|
|
(puthash "tw:s" "text-wrap:suppress;" tbl)
|
|
(puthash "tw:u" "text-wrap:unrestricted;" tbl)
|
|
(puthash "us" "user-select:${none};" tbl)
|
|
(puthash "v" "visibility:${1:hidden};" tbl)
|
|
(puthash "v:c" "visibility:collapse;" tbl)
|
|
(puthash "v:h" "visibility:hidden;" tbl)
|
|
(puthash "v:v" "visibility:visible;" tbl)
|
|
(puthash "va" "vertical-align:${1:top};" tbl)
|
|
(puthash "va:b" "vertical-align:bottom;" tbl)
|
|
(puthash "va:bl" "vertical-align:baseline;" tbl)
|
|
(puthash "va:m" "vertical-align:middle;" tbl)
|
|
(puthash "va:sub" "vertical-align:sub;" tbl)
|
|
(puthash "va:sup" "vertical-align:super;" tbl)
|
|
(puthash "va:t" "vertical-align:top;" tbl)
|
|
(puthash "va:tb" "vertical-align:text-bottom;" tbl)
|
|
(puthash "va:tt" "vertical-align:text-top;" tbl)
|
|
(puthash "w" "width:|;" tbl)
|
|
(puthash "w:a" "width:auto;" tbl)
|
|
(puthash "wfsm" "-webkit-font-smoothing:${antialiased};" tbl)
|
|
(puthash "wfsm:a" "-webkit-font-smoothing:antialiased;" tbl)
|
|
(puthash "wfsm:n" "-webkit-font-smoothing:none;" tbl)
|
|
(puthash "wfsm:s" "-webkit-font-smoothing:subpixel-antialiased;" tbl)
|
|
(puthash "wfsm:sa" "-webkit-font-smoothing:subpixel-antialiased;" tbl)
|
|
(puthash "whs" "white-space:|;" tbl)
|
|
(puthash "whs:n" "white-space:normal;" tbl)
|
|
(puthash "whs:nw" "white-space:nowrap;" tbl)
|
|
(puthash "whs:p" "white-space:pre;" tbl)
|
|
(puthash "whs:pl" "white-space:pre-line;" tbl)
|
|
(puthash "whs:pw" "white-space:pre-wrap;" tbl)
|
|
(puthash "whsc" "white-space-collapse:|;" tbl)
|
|
(puthash "whsc:ba" "white-space-collapse:break-all;" tbl)
|
|
(puthash "whsc:bs" "white-space-collapse:break-strict;" tbl)
|
|
(puthash "whsc:k" "white-space-collapse:keep-all;" tbl)
|
|
(puthash "whsc:l" "white-space-collapse:loose;" tbl)
|
|
(puthash "whsc:n" "white-space-collapse:normal;" tbl)
|
|
(puthash "wid" "widows:|;" tbl)
|
|
(puthash "wm" "writing-mode:${1:lr-tb};" tbl)
|
|
(puthash "wm:btl" "writing-mode:bt-lr;" tbl)
|
|
(puthash "wm:btr" "writing-mode:bt-rl;" tbl)
|
|
(puthash "wm:lrb" "writing-mode:lr-bt;" tbl)
|
|
(puthash "wm:lrt" "writing-mode:lr-tb;" tbl)
|
|
(puthash "wm:rlb" "writing-mode:rl-bt;" tbl)
|
|
(puthash "wm:rlt" "writing-mode:rl-tb;" tbl)
|
|
(puthash "wm:tbl" "writing-mode:tb-lr;" tbl)
|
|
(puthash "wm:tbr" "writing-mode:tb-rl;" tbl)
|
|
(puthash "wob" "word-break:|;" tbl)
|
|
(puthash "wob:ba" "word-break:break-all;" tbl)
|
|
(puthash "wob:k" "word-break:keep-all;" tbl)
|
|
(puthash "wob:n" "word-break:normal;" tbl)
|
|
(puthash "wos" "word-spacing:|;" tbl)
|
|
(puthash "wow" "word-wrap:|;" tbl)
|
|
(puthash "wow:b" "word-wrap:break-word;" tbl)
|
|
(puthash "wow:n" "word-wrap:none;" tbl)
|
|
(puthash "wow:nm" "word-wrap:normal;" tbl)
|
|
(puthash "wow:s" "word-wrap:suppress;" tbl)
|
|
(puthash "wow:u" "word-wrap:unrestricted;" tbl)
|
|
(puthash "z" "z-index:|;" tbl)
|
|
(puthash "z:a" "z-index:auto;" tbl)
|
|
(puthash "zm" "zoom:1;" tbl)
|
|
(puthash "zoo" "zoom:1;" tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
(puthash "html" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "aliases" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "!" "html:5" tbl)
|
|
(puthash "a:link" "a[href=http://]" tbl)
|
|
(puthash "a:mail" "a[href=mailto:]" tbl)
|
|
(puthash "acr" "acronym" tbl)
|
|
(puthash "adr" "address" tbl)
|
|
(puthash "area:c" "area[shape=circle coords href alt]" tbl)
|
|
(puthash "area:d" "area[shape=default href alt]" tbl)
|
|
(puthash "area:p" "area[shape=poly coords href alt]" tbl)
|
|
(puthash "area:r" "area[shape=rect coords href alt]" tbl)
|
|
(puthash "art" "article" tbl)
|
|
(puthash "bdo:l" "bdo[dir=ltr]" tbl)
|
|
(puthash "bdo:r" "bdo[dir=rtl]" tbl)
|
|
(puthash "bq" "blockquote" tbl)
|
|
(puthash "btn" "button" tbl)
|
|
(puthash "btn:b" "button[type=button]" tbl)
|
|
(puthash "btn:r" "button[type=reset]" tbl)
|
|
(puthash "btn:s" "button[type=submit]" tbl)
|
|
(puthash "cap" "caption" tbl)
|
|
(puthash "cmd" "command" tbl)
|
|
(puthash "colg" "colgroup" tbl)
|
|
(puthash "colg+" "colgroup>col" tbl)
|
|
(puthash "colgroup+" "colgroup>col" tbl)
|
|
(puthash "datag" "datagrid" tbl)
|
|
(puthash "datal" "datalist" tbl)
|
|
(puthash "det" "details" tbl)
|
|
(puthash "dl+" "dl>dt+dd" tbl)
|
|
(puthash "dlg" "dialog" tbl)
|
|
(puthash "doc" "html>(head>meta[charset=UTF-8]+title{Document})+body" tbl)
|
|
(puthash "doc4" "html>(head>meta[http-equiv=\"Content-Type\" content=\"text/html;charset=UTF-8\"]+title{Document})" tbl)
|
|
(puthash "emb" "embed" tbl)
|
|
(puthash "fig" "figure" tbl)
|
|
(puthash "figc" "figcaption" tbl)
|
|
(puthash "form:get" "form[action method=get]" tbl)
|
|
(puthash "form:post" "form[action method=post]" tbl)
|
|
(puthash "fset" "fieldset" tbl)
|
|
(puthash "fst" "fieldset" tbl)
|
|
(puthash "ftr" "footer" tbl)
|
|
(puthash "hdr" "header" tbl)
|
|
(puthash "html:4s" "!!!4s+doc4[lang=en]" tbl)
|
|
(puthash "html:4t" "!!!4t+doc4[lang=en]" tbl)
|
|
(puthash "html:5" "!!!+doc[lang=en]" tbl)
|
|
(puthash "html:xml" "html[xmlns=http://www.w3.org/1999/xhtml]" tbl)
|
|
(puthash "html:xs" "!!!xs+doc4[xmlns=http://www.w3.org/1999/xhtml xml:lang=en]" tbl)
|
|
(puthash "html:xt" "!!!xt+doc4[xmlns=http://www.w3.org/1999/xhtml xml:lang=en]" tbl)
|
|
(puthash "html:xxs" "!!!xxs+doc4[xmlns=http://www.w3.org/1999/xhtml xml:lang=en]" tbl)
|
|
(puthash "ifr" "iframe" tbl)
|
|
(puthash "input:b" "input:button" tbl)
|
|
(puthash "input:button" "input[type=button]" tbl)
|
|
(puthash "input:c" "input:checkbox" tbl)
|
|
(puthash "input:checkbox" "input[type=checkbox]" tbl)
|
|
(puthash "input:color" "input[type=color]" tbl)
|
|
(puthash "input:date" "input[type=date]" tbl)
|
|
(puthash "input:datetime" "input[type=datetime]" tbl)
|
|
(puthash "input:datetime-local" "input[type=datetime-local]" tbl)
|
|
(puthash "input:email" "input[type=email]" tbl)
|
|
(puthash "input:f" "input:file" tbl)
|
|
(puthash "input:file" "input[type=file]" tbl)
|
|
(puthash "input:h" "input:hidden" tbl)
|
|
(puthash "input:hidden" "input[type=hidden]" tbl)
|
|
(puthash "input:i" "input:image" tbl)
|
|
(puthash "input:image" "input[type=image src alt]" tbl)
|
|
(puthash "input:month" "input[type=month]" tbl)
|
|
(puthash "input:number" "input[type=number]" tbl)
|
|
(puthash "input:p" "input:password" tbl)
|
|
(puthash "input:password" "input[type=password]" tbl)
|
|
(puthash "input:r" "input:radio" tbl)
|
|
(puthash "input:radio" "input[type=radio]" tbl)
|
|
(puthash "input:range" "input[type=range]" tbl)
|
|
(puthash "input:reset" "input[type=reset]" tbl)
|
|
(puthash "input:s" "input:submit" tbl)
|
|
(puthash "input:search" "input[type=search]" tbl)
|
|
(puthash "input:submit" "input[type=submit]" tbl)
|
|
(puthash "input:t" "input" tbl)
|
|
(puthash "input:text" "input" tbl)
|
|
(puthash "input:time" "input[type=time]" tbl)
|
|
(puthash "input:url" "input[type=url]" tbl)
|
|
(puthash "input:week" "input[type=week]" tbl)
|
|
(puthash "kg" "keygen" tbl)
|
|
(puthash "leg" "legend" tbl)
|
|
(puthash "link:atom" "link[rel=alternate type=\"application/atom+xml\" title=Atom href=atom.xml]" tbl)
|
|
(puthash "link:css" "link[rel=stylesheet href=style.css]" tbl)
|
|
(puthash "link:favicon" "link[icon rel=shortcut type=image/x-icon href=favicon.ico]" tbl)
|
|
(puthash "link:print" "link[rel=stylesheet href=print.css media=print]" tbl)
|
|
(puthash "link:rss" "link[rel=alternate type=application/rss+xml title=RSS href=rss.xml]" tbl)
|
|
(puthash "link:touch" "link[rel=apple-touch-icon href=favicon.png]" tbl)
|
|
(puthash "map+" "map>area" tbl)
|
|
(puthash "menu:c" "menu:context" tbl)
|
|
(puthash "menu:context" "menu[type=context]" tbl)
|
|
(puthash "menu:t" "menu:toolbar" tbl)
|
|
(puthash "menu:toolbar" "menu[type=toolbar]" tbl)
|
|
(puthash "meta:compat" "meta[http-equiv=X-UA-Compatible content=\"IE=edge,chrome=1\"]" tbl)
|
|
(puthash "meta:utf" "meta[http-equiv=Content-Type content=\"text/html;charset=UTF-8\"]" tbl)
|
|
(puthash "meta:vp" "meta[name=viewport content=\"width=device-width, user-scalable=no, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0\"]" tbl)
|
|
(puthash "meta:win" "meta[http-equiv=Content-Type content=\"text/html;charset=windows-1251\"]" tbl)
|
|
(puthash "obj" "object" tbl)
|
|
(puthash "ol+" "ol>li" tbl)
|
|
(puthash "opt" "option" tbl)
|
|
(puthash "optg" "optgroup" tbl)
|
|
(puthash "optg+" "optgroup>option" tbl)
|
|
(puthash "optgroup+" "optgroup>option" tbl)
|
|
(puthash "out" "output" tbl)
|
|
(puthash "prog" "progress" tbl)
|
|
(puthash "script:src" "script[src]" tbl)
|
|
(puthash "sect" "section" tbl)
|
|
(puthash "select+" "select>option" tbl)
|
|
(puthash "src" "source" tbl)
|
|
(puthash "str" "strong" tbl)
|
|
(puthash "table+" "table>tr>td" tbl)
|
|
(puthash "tarea" "textarea" tbl)
|
|
(puthash "tr+" "tr>td" tbl)
|
|
(puthash "ul+" "ul>li" tbl)
|
|
tbl) tbl)
|
|
(puthash "snippets" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "!!!" "<!doctype html>" tbl)
|
|
(puthash "!!!4s" "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">" tbl)
|
|
(puthash "!!!4t" "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">" tbl)
|
|
(puthash "!!!xs" "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">" tbl)
|
|
(puthash "!!!xt" "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">" tbl)
|
|
(puthash "!!!xxs" "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">" tbl)
|
|
(puthash "cc:ie" "<!--[if IE]>\n\t${child}\n<![endif]-->" tbl)
|
|
(puthash "cc:ie6" "<!--[if lte IE 6]>\n\t${child}\n<![endif]-->" tbl)
|
|
(puthash "cc:noie" "<!--[if !IE]><!-->\n\t${child}\n<!--<![endif]-->" tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
(puthash "sass" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "snippets" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "@f" "@font-face\n\tfont-family:|\n\tsrc:url(|)\n" tbl)
|
|
(puthash "@f+" "@font-face\n\tfont-family: '${1:FontName}'\n\tsrc: url('${2:FileName}.eot')\n\tsrc: url('${2:FileName}.eot?#iefix') format('embedded-opentype'), url('${2:FileName}.woff') format('woff'), url('${2:FileName}.ttf') format('truetype'), url('${2:FileName}.svg#${1:FontName}') format('svg')\n\tfont-style: ${3:normal}\n\tfont-weight: ${4:normal}\n" tbl)
|
|
(puthash "@kf" "@-webkit-keyframes ${1:identifier}\n\t${2:from}\n\t\t${3}${6}\n\t${4:to}\n\t\t${5}\n\n@-o-keyframes ${1:identifier}\n\t${2:from}\n\t\t${3}${6}\n\t${4:to}\n\t\t${5}\n\n@-moz-keyframes ${1:identifier}\n\t${2:from}\n\t\t${3}${6}\n\t${4:to}\n\t\t${5}\n\n@keyframes ${1:identifier}\n\t${2:from}\n\t\t${3}${6}\n\t${4:to}\n\t\t${5}\n" tbl)
|
|
(puthash "@m" "@media ${1:screen}\n\t|\n" tbl)
|
|
(puthash "@media" "@media ${1:screen}\n\t|\n" tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
tbl))
|
|
;; src/preferences.el
|
|
;; This file is generated from conf/preferences.json
|
|
;; Don't edit.
|
|
(emmet-defparameter emmet-preferences
|
|
(let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "css" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "color" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "case" "auto" tbl)
|
|
(puthash "shortenIfPossible" t tbl)
|
|
(puthash "trailingAliases" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "h" "hidden" tbl)
|
|
(puthash "n" "none" tbl)
|
|
(puthash "s" "solid" tbl)
|
|
(puthash "t" "dotted" tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
(puthash "floatUnit" "em" tbl)
|
|
(puthash "intUnit" "px" tbl)
|
|
(puthash "keywordAliases" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "a" "auto" tbl)
|
|
(puthash "da" "dashed" tbl)
|
|
(puthash "do" "dotted" tbl)
|
|
(puthash "i" "inherit" tbl)
|
|
(puthash "s" "solid" tbl)
|
|
(puthash "t" "transparent" tbl)
|
|
tbl) tbl)
|
|
(puthash "keywords" (vector
|
|
"auto"
|
|
"inherit"
|
|
)
|
|
tbl)
|
|
(puthash "unitAliases" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "-" "px" tbl)
|
|
(puthash "e" "em" tbl)
|
|
(puthash "p" "%" tbl)
|
|
(puthash "r" "rem" tbl)
|
|
(puthash "x" "ex" tbl)
|
|
tbl) tbl)
|
|
(puthash "unitlessProperties" (vector
|
|
"z-index"
|
|
"line-height"
|
|
"opacity"
|
|
"font-weight"
|
|
"zoom"
|
|
)
|
|
tbl)
|
|
(puthash "vendorPrefixesProperties" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "accelerator" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "accesskey" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation" (vector
|
|
"webkit"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-delay" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-direction" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-duration" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-fill-mode" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-iteration-count" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-name" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-play-state" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "animation-timing-function" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "appearance" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "backface-visibility" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "background-clip" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "background-composite" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "background-inline-policy" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "background-origin" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "background-position-x" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "background-position-y" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "background-size" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "behavior" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "binding" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "block-progression" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "border-bottom-colors" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "border-fit" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "border-horizontal-spacing" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "border-image" (vector
|
|
"webkit"
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "border-left-colors" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "border-radius" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "border-right-colors" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "border-top-colors" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "border-vertical-spacing" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "box-align" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-direction" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-flex" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-flex-group" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "box-line-progression" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-lines" (vector
|
|
"webkit"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-ordinal-group" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-orient" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-pack" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "box-reflect" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "box-shadow" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "box-sizing" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "color-correction" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "column-break-after" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "column-break-before" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "column-break-inside" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "column-count" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "column-gap" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "column-rule-color" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "column-rule-style" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "column-rule-width" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "column-span" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "column-width" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-boundary" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-boundary-max" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-boundary-min" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-chaining" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-snap" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-snap-points" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zoom-snap-type" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "content-zooming" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "dashboard-region" (vector
|
|
"webkit"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "filter" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "float-edge" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "flow-from" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "flow-into" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "font-feature-settings" (vector
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "font-language-override" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "font-smoothing" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "force-broken-image-icon" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "grid-column" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-column-align" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-column-span" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-columns" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-layer" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-row" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-row-align" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-row-span" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "grid-rows" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "high-contrast-adjust" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "highlight" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "hyphenate-character" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "hyphenate-limit-after" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "hyphenate-limit-before" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "hyphenate-limit-chars" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "hyphenate-limit-lines" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "hyphenate-limit-zone" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "hyphens" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "image-region" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "ime-mode" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "input-format" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "input-required" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "interpolation-mode" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "layout-flow" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "layout-grid" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "layout-grid-char" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "layout-grid-line" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "layout-grid-mode" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "layout-grid-type" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "line-box-contain" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "line-break" (vector
|
|
"webkit"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "line-clamp" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "link" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "link-source" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "locale" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "margin-after-collapse" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "margin-before-collapse" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-dir" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-direction" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-increment" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-loop" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-repetition" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-speed" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "marquee-style" (vector
|
|
"webkit"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "mask-attachment" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-box-image" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-box-image-outset" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-box-image-repeat" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-box-image-slice" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-box-image-source" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-box-image-width" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-clip" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-composite" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-image" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-origin" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-position" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-repeat" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "mask-size" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "nbsp-mode" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "object-fit" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "object-position" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "orient" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "outline-radius-bottomleft" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "outline-radius-bottomright" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "outline-radius-topleft" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "outline-radius-topright" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "overflow-style" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "perspective" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "perspective-origin" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "perspective-origin-x" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "perspective-origin-y" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "rtl-ordering" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-boundary" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-boundary-bottom" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-boundary-left" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-boundary-right" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-boundary-top" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-chaining" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-rails" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-snap-points-x" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-snap-points-y" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-snap-type" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-snap-x" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scroll-snap-y" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-arrow-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-base-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-darkshadow-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-face-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-highlight-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-shadow-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "scrollbar-track-color" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "stack-sizing" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "svg-shadow" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "tab-size" (vector
|
|
"moz"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "table-baseline" (vector
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "text-align-last" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "text-autospace" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "text-blink" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "text-combine" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-decoration-color" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "text-decoration-line" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "text-decoration-style" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "text-decorations-in-effect" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-emphasis-color" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-emphasis-position" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-emphasis-style" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-fill-color" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-justify" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "text-kashida-space" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "text-orientation" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-overflow" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "text-security" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-size-adjust" (vector
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "text-stroke-color" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-stroke-width" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "text-underline-position" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "touch-action" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "transform" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "transform-origin" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "transform-origin-x" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "transform-origin-y" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "transform-origin-z" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "transform-style" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "transition" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "transition-delay" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "transition-duration" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "transition-property" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "transition-timing-function" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
"o"
|
|
)
|
|
tbl)
|
|
(puthash "user-drag" (vector
|
|
"webkit"
|
|
)
|
|
tbl)
|
|
(puthash "user-focus" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "user-input" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "user-modify" (vector
|
|
"webkit"
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "user-select" (vector
|
|
"webkit"
|
|
"moz"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "window-shadow" (vector
|
|
"moz"
|
|
)
|
|
tbl)
|
|
(puthash "word-break" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "word-wrap" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "wrap-flow" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "wrap-margin" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "wrap-through" (vector
|
|
"ms"
|
|
)
|
|
tbl)
|
|
(puthash "writing-mode" (vector
|
|
"webkit"
|
|
"ms"
|
|
)
|
|
tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
(puthash "html" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "tags" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "a" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "href" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "abbr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "title" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "acronym" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "title" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "address" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "applet" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "area" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "alt" "" tbl)
|
|
(puthash "coords" "" tbl)
|
|
(puthash "href" "" tbl)
|
|
(puthash "shape" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "article" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "aside" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "audio" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "src" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "b" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "base" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "href" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "basefont" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "bdi" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "bdo" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "dir" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "big" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "blockquote" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "body" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "br" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "button" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "canvas" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "caption" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "center" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "cite" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "code" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "col" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "colgroup" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "command" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "datalist" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "dd" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "del" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "details" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "dfn" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "dialog" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "dir" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "div" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "dl" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "dt" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "em" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "embed" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "src" "" tbl)
|
|
(puthash "type" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "fieldset" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "figcaption" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "figure" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "font" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "footer" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "form" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "action" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "frame" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "frameset" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "h1" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "h2" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "h3" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "h4" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "h5" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "h6" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "head" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "header" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "hgroup" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "hr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "html" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "i" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "iframe" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "frameborder" "0" tbl)
|
|
(puthash "src" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "img" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "alt" "" tbl)
|
|
(puthash "src" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "input" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "name" "" tbl)
|
|
(puthash "type" "text" tbl)
|
|
(puthash "value" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "ins" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "kbd" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "keygen" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "label" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "for" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "legend" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "li" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "link" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "href" "" tbl)
|
|
(puthash "rel" "stylesheet" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "map" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "name" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "mark" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "menu" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "meta" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "meter" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "nav" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "noframes" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "noscript" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "object" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "data" "" tbl)
|
|
(puthash "type" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "ol" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "optgroup" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "option" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "value" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "output" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "p" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "param" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "name" "" tbl)
|
|
(puthash "value" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "pre" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "progress" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "q" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "rp" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "rt" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "ruby" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "s" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "samp" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "script" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "section" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "select" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "id" "" tbl)
|
|
(puthash "name" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "small" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "source" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "span" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "strike" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "strong" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "style" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "sub" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "summary" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "sup" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "table" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "tbody" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "td" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "textarea" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "cols" "30" tbl)
|
|
(puthash "id" "" tbl)
|
|
(puthash "name" "" tbl)
|
|
(puthash "rows" "10" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "tfoot" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "th" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "thead" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "time" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "title" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "tr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "track" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" t tbl)
|
|
tbl) tbl)
|
|
(puthash "tt" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "u" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "ul" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "var" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "video" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" t tbl)
|
|
(puthash "defaultAttr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "src" "" tbl)
|
|
tbl) tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
(puthash "wbr" (let ((tbl (make-hash-table :test 'equal)))
|
|
(puthash "block" nil tbl)
|
|
(puthash "selfClosing" nil tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
tbl) tbl)
|
|
tbl))
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; XML abbrev
|
|
|
|
(emmet-defparameter
|
|
emmet-tag-aliases-table
|
|
(gethash "aliases" (gethash "html" emmet-snippets)))
|
|
|
|
(defun emmet-expr (input)
|
|
"Parse a zen coding expression with optional filters."
|
|
(emmet-pif (emmet-parse "\\(.*?\\)|" 2 "expr|filter" it)
|
|
(let ((input (elt it 1))
|
|
(filters (elt it 2)))
|
|
(emmet-pif (emmet-extract-filters filters)
|
|
(emmet-filter input it)
|
|
it))
|
|
(emmet-filter input (emmet-default-filter))))
|
|
|
|
(defun emmet-subexpr (input)
|
|
"Parse a zen coding expression with no filter. This pretty much defines precedence."
|
|
(emmet-run emmet-siblings
|
|
it
|
|
(emmet-run emmet-parent-child
|
|
it
|
|
(emmet-run emmet-multiplier
|
|
it
|
|
(emmet-run emmet-pexpr
|
|
it
|
|
(emmet-run emmet-text
|
|
it
|
|
(emmet-run emmet-tag
|
|
it
|
|
'(error "no match, expecting ( or a-zA-Z0-9"))))))))
|
|
|
|
(defun emmet-extract-filters (input)
|
|
"Extract filters from expression."
|
|
(emmet-pif (emmet-parse "\\([^\\|]+?\\)|" 2 "" it)
|
|
(let ((filter-name (elt it 1))
|
|
(more-filters (elt it 2)))
|
|
(emmet-pif (emmet-extract-filters more-filters)
|
|
(cons filter-name it)
|
|
it))
|
|
(emmet-parse "\\([^\\|]+\\)" 1 "filter name" `(,(elt it 1)))))
|
|
|
|
(defun emmet-filter (input filters)
|
|
"Construct AST with specified filters."
|
|
(emmet-pif (emmet-subexpr input)
|
|
(let ((result (car it))
|
|
(rest (cdr it)))
|
|
`((filter ,filters ,result) . ,rest))
|
|
it))
|
|
|
|
(defun emmet-default-filter ()
|
|
"Default filter(s) to be used if none is specified."
|
|
(or emmet-file-filter
|
|
(let* ((file-ext (car (emmet-regex ".*\\(\\..*\\)" (or (buffer-file-name) "") 1)))
|
|
(defaults '(".html" ("html")
|
|
".htm" ("html")
|
|
".haml" ("haml")
|
|
".clj" ("hic")
|
|
".cljs" ("hic")))
|
|
(default-else emmet-fallback-filter)
|
|
(selected-default (member file-ext defaults)))
|
|
(if selected-default
|
|
(cadr selected-default)
|
|
default-else))))
|
|
|
|
(defun emmet-numbering (input)
|
|
(emmet-parse
|
|
"\\(\\$+\\)" 2 "numbering, $"
|
|
(let ((doller (elt it 1)))
|
|
(emmet-pif (emmet-parse
|
|
"@\\([0-9-][0-9]*\\)" 2 "numbering args"
|
|
(let* ((args (read (elt it 1)))
|
|
(direction (not (or (eq '- args) (minusp args))))
|
|
(base (if (eq '- args) 1 (abs args))))
|
|
`((n ,(length doller) ,direction ,base) . ,input)))
|
|
it
|
|
`((n ,(length doller) t 1) . ,input)))))
|
|
|
|
(defun emmet-split-numbering-expressions (input)
|
|
(cl-labels
|
|
((iter (input)
|
|
(emmet-aif (emmet-regex "\\([^$]*\\)\\(\\$.*\\)" input '(1 2))
|
|
(let ((prefix (car it))
|
|
(input (cadr it)))
|
|
(if (and (< 0 (length prefix)) ; check if ..\\$... or ...$...
|
|
(string-equal (substring prefix -1) "\\"))
|
|
`(,(store-substring prefix (- (length prefix) 1) ?$)
|
|
,@(iter (substring input 1)))
|
|
(let ((res (emmet-numbering input)))
|
|
`(,prefix ,(car res) ,@(iter (cdr res))))))
|
|
(list input))))
|
|
(let ((res (iter input)))
|
|
(if (every #'stringp res)
|
|
(apply #'concat res)
|
|
`(numberings ,@res)))))
|
|
|
|
(defun emmet-instantiate-numbering-expression (i lim exp)
|
|
(cl-labels ((instantiate
|
|
(i lim exps)
|
|
(apply #'concat
|
|
(mapcar
|
|
(lambda (exp)
|
|
(if (listp exp)
|
|
(let ((digits (second exp))
|
|
(direction (third exp))
|
|
(base (fourth exp)))
|
|
(let ((num (if direction (+ base i)
|
|
(- (+ lim (- base 1)) i))))
|
|
(format (concat "%0" (format "%d" digits) "d") num)))
|
|
exp)) exps)))
|
|
(search
|
|
(i lim exp)
|
|
(if (listp exp)
|
|
(if (eql (car exp) 'numberings)
|
|
(instantiate i lim (cdr exp))
|
|
;; Should do like this for real searching.
|
|
;; But stack overflow occurs.
|
|
;; (cons (search-numberings i lim (car exp))
|
|
;; (search-numberings i lim (cdr exp)))
|
|
(mapcar (lambda (exp) (search i lim exp)) exp))
|
|
exp)))
|
|
(search i lim exp)))
|
|
|
|
(defun emmet-multiply-expression (multiplicand exp)
|
|
(loop for i to (- multiplicand 1) collect
|
|
(emmet-instantiate-numbering-expression i multiplicand exp)))
|
|
|
|
(defun emmet-multiplier (input)
|
|
(emmet-pif (emmet-run emmet-pexpr
|
|
it
|
|
(emmet-run emmet-tag
|
|
it
|
|
(emmet-run emmet-text
|
|
it
|
|
'(error "expected *n multiplier"))))
|
|
(let* ((expr (car it)) (input (cdr it))
|
|
(multiplier expr))
|
|
(emmet-parse "\\*\\([0-9]+\\)" 2 "*n where n is a number"
|
|
(let ((multiplicand (read (elt it 1))))
|
|
`((list ,(emmet-multiply-expression
|
|
multiplicand
|
|
multiplier)) . ,input))))))
|
|
|
|
(defun emmet-tag (input)
|
|
"Parse a tag."
|
|
(emmet-run
|
|
emmet-tagname
|
|
(let ((tagname (cadr expr))
|
|
(has-body? (cddr expr)))
|
|
(emmet-pif
|
|
(emmet-run emmet-identifier
|
|
(emmet-tag-classes
|
|
`(tag (,tagname ,has-body? ,(cddr expr))) input)
|
|
(emmet-tag-classes
|
|
`(tag (,tagname ,has-body? nil)) input))
|
|
(let ((tag-data (cadar it)) (input (cdr it)))
|
|
(emmet-pif (emmet-run
|
|
emmet-properties
|
|
(let ((props (cdr expr)))
|
|
`((tag ,(append tag-data (list props))) . ,input))
|
|
`((tag ,(append tag-data '(nil))) . ,input))
|
|
(let ((expr (car it)) (input (cdr it)))
|
|
(destructuring-bind (expr . input)
|
|
(emmet-tag-text expr input)
|
|
(or
|
|
(emmet-expand-lorem expr input)
|
|
(emmet-expand-tag-alias expr input))))))))
|
|
(emmet-default-tag input)))
|
|
|
|
(defun emmet-get-first-tag (expr)
|
|
(if (listp expr)
|
|
(if (listp (car expr))
|
|
(emmet-get-first-tag (car expr))
|
|
(if (eql (car expr) 'tag)
|
|
expr
|
|
(emmet-get-first-tag (cdr expr))))
|
|
nil))
|
|
|
|
(defun emmet-lorem (input)
|
|
(emmet-aif
|
|
(and (stringp input) (emmet-regex "\\(?:lorem\\|ipsum\\)\\([0-9]*\\)" input '(0 1)))
|
|
(let ((w (elt it 1)))
|
|
(let ((word-num (if (string-equal w "") 30 (read w))))
|
|
word-num))))
|
|
|
|
(defun emmet-expand-lorem (tag input)
|
|
(let ((tag-data (cadr tag)))
|
|
(let ((tag-name (car tag-data)))
|
|
(emmet-aif (emmet-lorem tag-name)
|
|
(if (equalp (cdr tag-data) '(t nil nil nil nil))
|
|
`((text (lorem ,it)) . ,input)
|
|
`((tag ("div" ,@(subseq tag-data 1 -1) (lorem ,it))) . ,input))))))
|
|
|
|
(defun emmet-expand-tag-alias (tag input)
|
|
(let ((tag-data (cadr tag)))
|
|
(let ((tag-name (car tag-data)))
|
|
(emmet-aif
|
|
(gethash tag-name emmet-tag-aliases-table)
|
|
(let ((expr (if (stringp it)
|
|
(emmet-subexpr it)
|
|
it)))
|
|
(prog1
|
|
(let ((rt (copy-tree expr)))
|
|
(let ((first-tag-data (cadr (emmet-get-first-tag rt))))
|
|
(setf (second first-tag-data) (second tag-data))
|
|
(setf (third first-tag-data) (third tag-data))
|
|
(setf (fourth first-tag-data)
|
|
(remove-duplicates
|
|
(append (fourth first-tag-data)
|
|
(fourth tag-data)) :test #'string=))
|
|
(setf (fifth first-tag-data)
|
|
(remove-duplicates
|
|
(append (fifth first-tag-data)
|
|
(fifth tag-data))
|
|
:test #'(lambda (p1 p2)
|
|
(eql (car p1) (car p2)))))
|
|
(setf (sixth first-tag-data) (sixth tag-data))
|
|
(setf (cdr rt) (concat (cdr rt) input))
|
|
rt))
|
|
(puthash tag-name expr emmet-tag-aliases-table)))
|
|
`(,tag . ,input)))))
|
|
|
|
(defun emmet-default-tag (input)
|
|
"Parse a #id or .class"
|
|
(emmet-parse "\\([#|\\.]\\)" 1 "tagname"
|
|
(emmet-tag (concat "div" (elt it 0)))))
|
|
|
|
(defun emmet-tag-text (tag input)
|
|
(let ((tag-data (cadr tag)))
|
|
(emmet-run emmet-text
|
|
(let ((txt (cadr expr)))
|
|
`((tag ,(append tag-data (list txt))) . ,input))
|
|
`((tag ,(append tag-data '(nil))) . ,input))))
|
|
|
|
(defun emmet-tag-props (tag input)
|
|
(let ((tag-data (cadr tag)))
|
|
(emmet-run emmet-properties
|
|
(let ((props (cdr expr)))
|
|
`((tag ,(append tag-data (list props))) . ,input))
|
|
`((tag ,(append tag-data '(nil))) . ,input))))
|
|
|
|
(defun emmet-props (input)
|
|
"Parse many props."
|
|
(emmet-run emmet-prop
|
|
(emmet-pif (emmet-props input)
|
|
`((props . ,(cons expr (cdar it))) . ,(cdr it))
|
|
`((props . ,(list expr)) . ,input))))
|
|
|
|
(defun emmet-prop (input)
|
|
(emmet-parse
|
|
" *" 1 "space"
|
|
(emmet-run
|
|
emmet-name
|
|
(let ((name (cdr expr)))
|
|
(emmet-pif (emmet-prop-value name input)
|
|
it
|
|
`((,(read name) "") . ,input))))))
|
|
|
|
(defun emmet-prop-value (name input)
|
|
(emmet-pif (emmet-parse "=\"\\(.*?\\)\"" 2
|
|
"=\"property value\""
|
|
(let ((value (elt it 1))
|
|
(input (elt it 2)))
|
|
`((,(read name) ,(emmet-split-numbering-expressions value)) . ,input)))
|
|
it
|
|
(emmet-parse "=\\([^\\,\\+\\>\\{\\}\\ )]*\\)" 2
|
|
"=property value"
|
|
(let ((value (elt it 1))
|
|
(input (elt it 2)))
|
|
`((,(read name) ,(emmet-split-numbering-expressions value)) . ,input)))))
|
|
|
|
(defun emmet-tag-classes (tag input)
|
|
(let ((tag-data (cadr tag)))
|
|
(emmet-run emmet-classes
|
|
(let ((classes (mapcar (lambda (cls) (cdadr cls))
|
|
(cdr expr))))
|
|
`((tag ,(append tag-data (list classes))) . ,input))
|
|
`((tag ,(append tag-data '(nil))) . ,input))))
|
|
|
|
(defun emmet-tagname (input)
|
|
"Parse a tagname a-zA-Z0-9 tagname (e.g. html/head/xsl:if/br)."
|
|
(emmet-parse "\\([a-zA-Z!][a-zA-Z0-9:!$@-]*\/?\\)" 2 "tagname, a-zA-Z0-9"
|
|
(let* ((tag-spec (elt it 1))
|
|
(empty-tag (emmet-regex "\\([^\/]*\\)\/" tag-spec 1))
|
|
(tag (emmet-split-numbering-expressions
|
|
(if empty-tag (car empty-tag) tag-spec))))
|
|
`((tagname . (,tag . ,(not empty-tag))) . ,input))))
|
|
|
|
(defun emmet-text (input)
|
|
"A zen coding expression innertext."
|
|
(emmet-parse "{\\(\\(?:\\\\.\\|[^\\\\}]\\)*?\\)}" 2 "inner text"
|
|
(let ((txt (emmet-split-numbering-expressions (elt it 1))))
|
|
(if (listp txt)
|
|
(setq txt (cons (car txt) (cons (replace-regexp-in-string "\\\\\\(.\\)" "\\1" (cadr txt)) (cddr txt))))
|
|
(setq txt (replace-regexp-in-string "\\\\\\(.\\)" "\\1" txt)))
|
|
`((text ,txt) . ,input))))
|
|
|
|
(defun emmet-properties (input)
|
|
"A bracketed emmet property expression."
|
|
(emmet-parse "\\[\\(.*?\\)\\]" 2 "properties"
|
|
`(,(car (emmet-props (elt it 1))) . ,input)))
|
|
|
|
|
|
(defun emmet-pexpr (input)
|
|
"A zen coding expression with parentheses around it."
|
|
(emmet-parse "(" 1 "("
|
|
(emmet-run emmet-subexpr
|
|
(emmet-aif (emmet-regex ")" input '(0 1))
|
|
`(,expr . ,(elt it 1))
|
|
'(error "expecting `)'")))))
|
|
|
|
(defun emmet-parent-child (input)
|
|
"Parse an tag>e expression, where `n' is an tag and `e' is any
|
|
expression."
|
|
(cl-labels
|
|
((listing (parents child input)
|
|
(let ((len (length parents)))
|
|
`((list ,(map 'list
|
|
(lambda (parent i)
|
|
`(parent-child ,parent
|
|
,(emmet-instantiate-numbering-expression i len child)))
|
|
parents
|
|
(loop for i to (- len 1) collect i))) . ,input))))
|
|
(emmet-run
|
|
emmet-multiplier
|
|
(let* ((items (cadr expr))
|
|
(rest (emmet-child-sans expr input)))
|
|
(if (not (eq (car rest) 'error))
|
|
(let ((child (car rest))
|
|
(input (cdr rest)))
|
|
|
|
(emmet-aif (emmet-regex "^" input '(0 1))
|
|
(let ((input (elt it 1)))
|
|
(emmet-run
|
|
emmet-subexpr
|
|
`((sibling ,(car (listing items child "")) ,expr) . ,input)
|
|
(listing items child input)))
|
|
(listing items child input)))
|
|
'(error "expected child")))
|
|
(emmet-run emmet-tag
|
|
(emmet-child expr input)
|
|
'(error "expected parent")))))
|
|
|
|
(defun emmet-child-sans (parent input)
|
|
(emmet-parse ">" 1 ">"
|
|
(emmet-run emmet-subexpr
|
|
it
|
|
'(error "expected child"))))
|
|
|
|
(defun emmet-child (parent input)
|
|
(emmet-parse ">" 1 ">"
|
|
(emmet-run emmet-subexpr
|
|
(let ((child expr))
|
|
(emmet-aif (emmet-regex "^" input '(0 1))
|
|
(let ((input (elt it 1)))
|
|
(emmet-run emmet-subexpr
|
|
`((sibling (parent-child ,parent ,child) ,expr) . ,input)
|
|
`((parent-child ,parent ,child) . ,input)))
|
|
`((parent-child ,parent ,child) . ,input)))
|
|
'(error "expected child"))))
|
|
|
|
(defun emmet-sibling (input)
|
|
(emmet-por emmet-pexpr emmet-multiplier
|
|
it
|
|
(emmet-run emmet-tag
|
|
it
|
|
(emmet-run emmet-text
|
|
it
|
|
'(error "expected sibling")))))
|
|
|
|
(defun emmet-siblings (input)
|
|
"Parse an e+e expression, where e is an tag or a pexpr."
|
|
(emmet-run emmet-sibling
|
|
(let ((parent expr))
|
|
(emmet-parse
|
|
"\\+" 1 "+"
|
|
(emmet-run
|
|
emmet-subexpr
|
|
(let ((child expr))
|
|
`((sibling ,parent ,child) . ,input))
|
|
(emmet-expand parent input))))
|
|
'(error "expected first sibling")))
|
|
|
|
(defun emmet-expand (parent input)
|
|
"Parse an e+ expression, where e is an expandable tag"
|
|
(let* ((parent-tag (car (cadr parent))))
|
|
(setf (caadr parent) (concat parent-tag "+"))
|
|
(destructuring-bind (parent . input)
|
|
(emmet-expand-tag-alias parent input)
|
|
(emmet-pif (emmet-parse "+\\(.*\\)" 1 "+expr"
|
|
(emmet-subexpr (elt it 1)))
|
|
`((sibling ,parent ,@it))
|
|
`(,parent . ,input)))))
|
|
|
|
(defun emmet-name (input)
|
|
"Parse a class or identifier name, e.g. news, footer, mainimage"
|
|
(emmet-parse "\\([a-zA-Z$@][a-zA-Z0-9$@_:-]*\\)" 2 "class or identifer name"
|
|
`((name . ,(emmet-split-numbering-expressions
|
|
(elt it 1))) . ,input)))
|
|
|
|
(defun emmet-class (input)
|
|
"Parse a classname expression, e.g. .foo"
|
|
(emmet-parse "\\." 1 "."
|
|
(emmet-run emmet-name
|
|
`((class ,expr) . ,input)
|
|
'(error "expected class name"))))
|
|
(defun emmet-identifier (input)
|
|
"Parse an identifier expression, e.g. #foo"
|
|
(emmet-parse "#" 1 "#"
|
|
(emmet-run emmet-name
|
|
`((identifier . ,expr) . ,input))))
|
|
|
|
(defun emmet-classes (input)
|
|
"Parse many classes."
|
|
(emmet-run emmet-class
|
|
(emmet-pif (emmet-classes input)
|
|
`((classes . ,(cons expr (cdar it))) . ,(cdr it))
|
|
`((classes . ,(list expr)) . ,input))
|
|
'(error "expected class")))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Zen coding transformer from AST to string
|
|
|
|
(defvar emmet-leaf-function nil
|
|
"Function to execute when expanding a leaf node in the
|
|
Emmet AST.")
|
|
|
|
(defvar emmet-expand-jsx-className? nil
|
|
"Wether to use `className' when expanding `.classes'")
|
|
|
|
(emmet-defparameter
|
|
emmet-tag-settings-table
|
|
(gethash "tags" (gethash "html" emmet-preferences)))
|
|
|
|
(emmet-defparameter
|
|
emmet-tag-snippets-table
|
|
(gethash "snippets" (gethash "html" emmet-snippets)))
|
|
|
|
(defvar emmet-filters
|
|
'("html" (emmet-primary-filter emmet-make-html-tag)
|
|
"c" (emmet-primary-filter emmet-make-commented-html-tag)
|
|
"haml" (emmet-primary-filter emmet-make-haml-tag)
|
|
"hic" (emmet-primary-filter emmet-make-hiccup-tag)
|
|
"e" (emmet-escape-xml)))
|
|
|
|
(defun emmet-instantiate-lorem-expression (input)
|
|
(if input
|
|
(if (consp input)
|
|
(if (and (eql (car input) 'lorem) (numberp (cadr input)))
|
|
(emmet-lorem-generate (cadr input))
|
|
(cons (emmet-instantiate-lorem-expression (car input))
|
|
(emmet-instantiate-lorem-expression (cdr input))))
|
|
input)))
|
|
|
|
(defun emmet-primary-filter (input proc)
|
|
"Process filter that needs to be executed first, ie. not given output from other filter."
|
|
(if (listp input)
|
|
(let ((tag-maker (cadr proc)))
|
|
(emmet-transform-ast
|
|
(emmet-instantiate-lorem-expression input)
|
|
tag-maker))
|
|
nil))
|
|
|
|
(defun emmet-process-filter (filters input)
|
|
"Process filters, chain one filter output as the input of the next filter."
|
|
(let ((filter-data (member (car filters) emmet-filters))
|
|
(more-filters (cdr filters)))
|
|
(if filter-data
|
|
(let* ((proc (cadr filter-data))
|
|
(fun (car proc))
|
|
(filter-output (funcall fun input proc)))
|
|
(if more-filters
|
|
(emmet-process-filter more-filters filter-output)
|
|
filter-output))
|
|
nil)))
|
|
|
|
(defun emmet-make-tag (tag-maker tag-info &optional content)
|
|
"Extract tag info and pass them to tag-maker."
|
|
(let* ((name (pop tag-info))
|
|
(has-body? (pop tag-info))
|
|
(id (pop tag-info))
|
|
(classes (pop tag-info))
|
|
(props (pop tag-info))
|
|
(txt (pop tag-info))
|
|
(settings (gethash name emmet-tag-settings-table))
|
|
(self-closing?
|
|
(and (not (or txt content))
|
|
(or (not has-body?)
|
|
(and settings (gethash "selfClosing" settings))))))
|
|
(funcall tag-maker name has-body? id classes props txt settings
|
|
(if content content
|
|
(if (and emmet-leaf-function (not self-closing?))
|
|
(funcall emmet-leaf-function))))))
|
|
|
|
(defun emmet-hash-to-list (hash &optional proc)
|
|
(unless proc (setq proc #'cons))
|
|
(loop for key being the hash-keys of hash using (hash-values val)
|
|
collect (funcall proc key val)))
|
|
|
|
(defun emmet-merge-tag-props (default-table tag-props)
|
|
(if default-table
|
|
(let ((tbl (copy-hash-table default-table)))
|
|
(loop for prop in tag-props do
|
|
(puthash (symbol-name (car prop)) (cadr prop) tbl))
|
|
(emmet-hash-to-list tbl 'list))
|
|
tag-props))
|
|
|
|
(defun emmet-html-snippets-instantiate-lambda (src)
|
|
(let ((lines (mapcar
|
|
#'(lambda (src)
|
|
(if (string-match "^\\(.*\\)${child}\\(.*\\)$" src)
|
|
(mapcar (lambda (i)
|
|
(match-string i src))
|
|
'(1 2))
|
|
(list src)))
|
|
(split-string src "\n"))))
|
|
(cl-labels
|
|
((iter
|
|
(l m a b)
|
|
(if l
|
|
(if (< 1 (length (car l)))
|
|
(iter (cdr l)
|
|
'b
|
|
(cons (caar l) a)
|
|
(cons (cadar l) b))
|
|
(if (eql m 'a)
|
|
(iter (cdr l) m (cons (caar l) a) b)
|
|
(iter (cdr l) m a (cons (caar l) b))))
|
|
(if b
|
|
`(lambda (contents)
|
|
(concat
|
|
,(emmet-join-string (reverse a) "\n")
|
|
contents
|
|
,(emmet-join-string (reverse b) "\n")))
|
|
`(lambda (contents)
|
|
(concat
|
|
,(emmet-join-string (reverse a) "\n")
|
|
contents))))))
|
|
(eval (iter lines 'a nil nil)))))
|
|
|
|
(defun emmet-make-html-tag (tag-name tag-has-body? tag-id tag-classes tag-props tag-txt settings content)
|
|
"Create HTML markup string"
|
|
(emmet-aif
|
|
(gethash tag-name emmet-tag-snippets-table)
|
|
|
|
(let ((fn (if (stringp it)
|
|
(emmet-html-snippets-instantiate-lambda it)
|
|
it)))
|
|
(prog1
|
|
(funcall fn content)
|
|
(puthash tag-name fn emmet-tag-snippets-table)))
|
|
|
|
(let* ((id (emmet-concat-or-empty " id=\"" tag-id "\""))
|
|
(class-attr (if emmet-expand-jsx-className? " className=\"" " class=\""))
|
|
(classes (emmet-mapconcat-or-empty class-attr tag-classes " " "\""))
|
|
(props (let* ((tag-props-default
|
|
(and settings (gethash "defaultAttr" settings)))
|
|
(merged-tag-props
|
|
(emmet-merge-tag-props
|
|
tag-props-default
|
|
tag-props)))
|
|
(emmet-mapconcat-or-empty
|
|
" " merged-tag-props " " nil
|
|
(lambda (prop)
|
|
(let ((key (car prop)))
|
|
(concat (if (symbolp key) (symbol-name key) key)
|
|
"=\"" (cadr prop) "\""))))))
|
|
(content-multiline? (and content (string-match "\n" content)))
|
|
(block-tag? (and settings (gethash "block" settings)))
|
|
(self-closing? (and (not (or tag-txt content))
|
|
(or (not tag-has-body?)
|
|
(and settings (gethash "selfClosing" settings)))))
|
|
(block-indentation? (or content-multiline? (and block-tag? content)))
|
|
(lf (if block-indentation? "\n")))
|
|
(concat "<" tag-name id classes props
|
|
(if self-closing?
|
|
(concat emmet-self-closing-tag-style ">")
|
|
(concat ">"
|
|
(if tag-txt
|
|
(if block-indentation?
|
|
(emmet-indent tag-txt)
|
|
tag-txt))
|
|
(if content
|
|
(if block-indentation?
|
|
(emmet-indent content)
|
|
content))
|
|
lf
|
|
"</" tag-name ">"))))))
|
|
|
|
(defun emmet-make-commented-html-tag (tag-name tag-has-body? tag-id tag-classes tag-props tag-txt settings content)
|
|
"Create HTML markup string with extra comments for elements with #id or .classes"
|
|
(let ((body (emmet-make-html-tag tag-name tag-has-body? tag-id tag-classes tag-props tag-txt settings content)))
|
|
(if (or tag-id tag-classes)
|
|
(let ((id (emmet-concat-or-empty "#" tag-id))
|
|
(classes (emmet-mapconcat-or-empty "." tag-classes ".")))
|
|
(concat "<!-- " id classes " -->\n"
|
|
body
|
|
"\n<!-- /" id classes " -->"))
|
|
body)))
|
|
|
|
(defun emmet-make-haml-tag (tag-name tag-has-body? tag-id tag-classes tag-props tag-txt settings content)
|
|
"Create HAML string"
|
|
(let ((name (if (and (equal tag-name "div")
|
|
(or tag-id tag-classes))
|
|
""
|
|
(concat "%" tag-name)))
|
|
(id (emmet-concat-or-empty "#" tag-id))
|
|
(classes (emmet-mapconcat-or-empty "." tag-classes "."))
|
|
(props (emmet-mapconcat-or-empty
|
|
"{" tag-props ", " "}"
|
|
(lambda (prop)
|
|
(concat ":" (symbol-name (car prop)) " => \"" (cadr prop) "\"")))))
|
|
(concat name id classes props
|
|
(if tag-txt
|
|
(emmet-indent tag-txt))
|
|
(if content
|
|
(emmet-indent content)))))
|
|
|
|
(defun emmet-make-hiccup-tag (tag-name tag-has-body? tag-id tag-classes tag-props tag-txt settings content)
|
|
"Create Hiccup string"
|
|
(let* ((id (emmet-concat-or-empty "#" tag-id))
|
|
(classes (emmet-mapconcat-or-empty "." tag-classes "."))
|
|
(props (emmet-mapconcat-or-empty
|
|
" {" tag-props ", " "}"
|
|
(lambda (prop)
|
|
(concat ":" (symbol-name (car prop)) " \"" (cadr prop) "\""))))
|
|
(content-multiline? (and content (string-match "\n" content)))
|
|
(block-tag? (and settings (gethash "block" settings)))
|
|
(block-indentation? (or content-multiline? (and block-tag? content))))
|
|
(concat "[:" tag-name id classes props
|
|
(if tag-txt
|
|
(let ((tag-txt-quoted (concat "\"" tag-txt "\"")))
|
|
(if block-indentation?
|
|
(emmet-indent tag-txt-quoted)
|
|
(concat " " tag-txt-quoted))))
|
|
(if content
|
|
(if block-indentation?
|
|
(emmet-indent content)
|
|
(concat " " content)))
|
|
"]")))
|
|
|
|
(defun emmet-make-text (tag-maker text)
|
|
(cond
|
|
((eq tag-maker 'emmet-make-hiccup-tag)
|
|
(concat "\"" text "\""))
|
|
(t text)))
|
|
|
|
(defun emmet-concat-or-empty (prefix body &optional suffix)
|
|
"Return prefixed suffixed text or empty string."
|
|
(if body
|
|
(concat prefix body suffix)
|
|
""))
|
|
|
|
(defun emmet-mapconcat-or-empty (prefix list-body delimiter &optional suffix map-fun)
|
|
"Return prefixed suffixed mapconcated text or empty string."
|
|
(if list-body
|
|
(let* ((mapper (if map-fun map-fun 'identity))
|
|
(body (mapconcat mapper list-body delimiter)))
|
|
(concat prefix body suffix))
|
|
""))
|
|
|
|
(defun emmet-escape-xml (input proc)
|
|
"Escapes XML-unsafe characters: <, > and &."
|
|
(replace-regexp-in-string
|
|
"<" "<"
|
|
(replace-regexp-in-string
|
|
">" ">"
|
|
(replace-regexp-in-string
|
|
"&" "&"
|
|
(if (stringp input)
|
|
input
|
|
(emmet-process-filter (emmet-default-filter) input))))))
|
|
|
|
(defun emmet-html-transform (input)
|
|
(let ((ast (car (emmet-expr input))))
|
|
(when (not (eq ast 'error))
|
|
(emmet-transform-ast-with-filters ast))))
|
|
|
|
(defun emmet-transform-ast-with-filters (ast-with-filters)
|
|
"Transform AST (containing filter data) into string."
|
|
(let ((filters (cadr ast-with-filters))
|
|
(ast (caddr ast-with-filters)))
|
|
(emmet-process-filter filters ast)))
|
|
|
|
(defun emmet-transform-ast (ast tag-maker)
|
|
"Transform AST (without filter data) into string."
|
|
(let ((type (car ast)))
|
|
(cond
|
|
((eq type 'list)
|
|
(mapconcat (lexical-let ((make-tag-fun tag-maker))
|
|
#'(lambda (sub-ast)
|
|
(emmet-transform-ast sub-ast make-tag-fun)))
|
|
(cadr ast)
|
|
"\n"))
|
|
((eq type 'tag)
|
|
(emmet-make-tag tag-maker (cadr ast)))
|
|
((eq type 'text)
|
|
(emmet-make-text tag-maker (cadr ast)))
|
|
((eq type 'parent-child)
|
|
(let ((parent (cadadr ast))
|
|
(children (emmet-transform-ast (caddr ast) tag-maker)))
|
|
(emmet-make-tag tag-maker parent children)))
|
|
((eq type 'sibling)
|
|
(let ((sib1 (emmet-transform-ast (cadr ast) tag-maker))
|
|
(sib2 (emmet-transform-ast (caddr ast) tag-maker)))
|
|
(concat sib1 "\n" sib2))))))
|
|
|
|
;; Indents text rigidly by inserting spaces
|
|
;; Only matters if emmet-indent-after-insert is set to nil
|
|
(defun emmet-indent (text)
|
|
"Indent the text"
|
|
(if text
|
|
(replace-regexp-in-string "\n" (concat "\n" (make-string emmet-indentation ?\ )) (concat "\n" text))
|
|
nil))
|
|
(defvar emmet-lorem-words
|
|
'("lorem" "ipsum" "dolor" "sit" "amet," "consectetur" "adipiscing" "elit" "ut" "aliquam," "purus" "sit" "amet" "luctus" "venenatis,"
|
|
"lectus" "magna" "fringilla" "urna," "porttitor" "rhoncus" "dolor" "purus" "non" "enim" "praesent" "elementum" "facilisis" "leo,"
|
|
"vel" "fringilla" "est" "ullamcorper" "eget" "nulla" "facilisi" "etiam" "dignissim" "diam" "quis" "enim" "lobortis" "scelerisque"
|
|
"fermentum" "dui" "faucibus" "in" "ornare" "quam" "viverra" "orci" "sagittis" "eu" "volutpat" "odio" "facilisis" "mauris" "sit" "amet"
|
|
"massa" "vitae" "tortor" "condimentum" "lacinia" "quis" "vel" "eros" "donec" "ac" "odio" "tempor" "orci" "dapibus" "ultrices" "in"
|
|
"iaculis" "nunc" "sed" "augue" "lacus," "viverra" "vitae" "congue" "eu," "consequat" "ac" "felis" "donec" "et" "odio" "pellentesque"
|
|
"diam" "volutpat" "commodo" "sed" "egestas" "egestas" "fringilla" "phasellus" "faucibus" "scelerisque" "eleifend" "donec" "pretium"
|
|
"vulputate" "sapien" "nec" "sagittis" "aliquam" "malesuada" "bibendum" "arcu" "vitae" "elementum" "curabitur" "vitae" "nunc" "sed"
|
|
"velit" "dignissim" "sodales" "ut" "eu" "sem" "integer" "vitae" "justo" "eget" "magna" "fermentum" "iaculis" "eu" "non" "diam"
|
|
"phasellus" "vestibulum" "lorem" "sed" "risus" "ultricies" "tristique" "nulla" "aliquet" "enim" "tortor," "at" "auctor" "urna" "nunc"
|
|
"id" "cursus" "metus" "aliquam" "eleifend" "mi" "in" "nulla" "posuere" "sollicitudin" "aliquam" "ultrices" "sagittis" "orci," "a"
|
|
"scelerisque" "purus" "semper" "eget" "duis" "at" "tellus" "at" "urna" "condimentum" "mattis" "pellentesque" "id" "nibh" "tortor,"
|
|
"id" "aliquet" "lectus" "proin" "nibh" "nisl," "condimentum" "id" "venenatis" "a," "condimentum" "vitae" "sapien" "pellentesque"
|
|
"habitant" "morbi" "tristique" "senectus" "et" "netus" "et" "malesuada" "fames" "ac" "turpis" "egestas" "sed" "tempus," "urna" "et"
|
|
"pharetra" "pharetra," "massa" "massa" "ultricies" "mi," "quis" "hendrerit" "dolor" "magna" "eget" "est" "lorem" "ipsum" "dolor" "sit"
|
|
"amet," "consectetur" "adipiscing" "elit" "pellentesque" "habitant" "morbi" "tristique" "senectus" "et" "netus" "et" "malesuada" "fames"
|
|
"ac" "turpis" "egestas" "integer" "eget" "aliquet" "nibh" "praesent" "tristique" "magna" "sit" "amet" "purus" "gravida" "quis" "blandit"
|
|
"turpis" "cursus" "in" "hac" "habitasse" "platea" "dictumst" "quisque" "sagittis," "purus" "sit" "amet" "volutpat" "consequat," "mauris"
|
|
"nunc" "congue" "nisi," "vitae" "suscipit" "tellus" "mauris" "a" "diam" "maecenas" "sed" "enim" "ut" "sem" "viverra" "aliquet" "eget"
|
|
"sit" "amet" "tellus" "cras" "adipiscing" "enim" "eu" "turpis" "egestas" "pretium" "aenean" "pharetra," "magna" "ac" "placerat"
|
|
"vestibulum," "lectus" "mauris" "ultrices" "eros," "in" "cursus" "turpis" "massa" "tincidunt" "dui" "ut" "ornare" "lectus" "sit" "amet"
|
|
"est" "placerat" "in" "egestas" "erat" "imperdiet" "sed" "euismod" "nisi" "porta" "lorem" "mollis" "aliquam" "ut" "porttitor" "leo" "a"
|
|
"diam" "sollicitudin" "tempor" "id" "eu" "nisl" "nunc" "mi" "ipsum," "faucibus" "vitae" "aliquet" "nec," "ullamcorper" "sit" "amet"
|
|
"risus" "nullam" "eget" "felis" "eget" "nunc" "lobortis" "mattis" "aliquam" "faucibus" "purus" "in" "massa" "tempor" "nec" "feugiat"
|
|
"nisl" "pretium" "fusce" "id" "velit" "ut" "tortor" "pretium" "viverra" "suspendisse" "potenti" "nullam" "ac" "tortor" "vitae" "purus"
|
|
"faucibus" "ornare" "suspendisse" "sed" "nisi" "lacus," "sed" "viverra" "tellus" "in" "hac" "habitasse" "platea" "dictumst" "vestibulum"
|
|
"rhoncus" "est" "pellentesque" "elit" "ullamcorper" "dignissim" "cras" "tincidunt" "lobortis" "feugiat" "vivamus" "at" "augue" "eget"
|
|
"arcu" "dictum" "varius" "duis" "at" "consectetur" "lorem" "donec" "massa" "sapien," "faucibus" "et" "molestie" "ac," "feugiat" "sed"
|
|
"lectus" "vestibulum" "mattis" "ullamcorper" "velit" "sed" "ullamcorper" "morbi" "tincidunt" "ornare" "massa," "eget" "egestas" "purus"
|
|
"viverra" "accumsan" "in" "nisl" "nisi," "scelerisque" "eu" "ultrices" "vitae," "auctor" "eu" "augue" "ut" "lectus" "arcu," "bibendum"
|
|
"at" "varius" "vel," "pharetra" "vel" "turpis" "nunc" "eget" "lorem" "dolor," "sed" "viverra" "ipsum" "nunc" "aliquet" "bibendum" "enim,"
|
|
"facilisis" "gravida" "neque" "convallis" "a" "cras" "semper" "auctor" "neque," "vitae" "tempus" "quam" "pellentesque" "nec" "nam"
|
|
"aliquam" "sem" "et" "tortor" "consequat" "id" "porta" "nibh" "venenatis" "cras" "sed" "felis" "eget" "velit" "aliquet" "sagittis"
|
|
"id" "consectetur" "purus" "ut" "faucibus" "pulvinar" "elementum" "integer" "enim" "neque," "volutpat" "ac" "tincidunt" "vitae,"
|
|
"semper" "quis" "lectus" "nulla" "at" "volutpat" "diam" "ut" "venenatis" "tellus" "in" "metus" "vulputate" "eu" "scelerisque" "felis"
|
|
"imperdiet" "proin" "fermentum" "leo" "vel" "orci" "porta" "non" "pulvinar" "neque" "laoreet" "suspendisse" "interdum" "consectetur"
|
|
"libero," "id" "faucibus" "nisl" "tincidunt" "eget" "nullam" "non" "nisi" "est," "sit" "amet" "facilisis" "magna" "etiam" "tempor,"
|
|
"orci" "eu" "lobortis" "elementum," "nibh" "tellus" "molestie" "nunc," "non" "blandit" "massa" "enim" "nec" "dui" "nunc" "mattis"
|
|
"enim" "ut" "tellus" "elementum" "sagittis" "vitae" "et" "leo" "duis" "ut" "diam" "quam" "nulla" "porttitor" "massa" "id" "neque"
|
|
"aliquam" "vestibulum" "morbi" "blandit" "cursus" "risus," "at" "ultrices" "mi" "tempus" "imperdiet" "nulla" "malesuada" "pellentesque"
|
|
"elit" "eget" "gravida" "cum" "sociis" "natoque" "penatibus" "et" "magnis" "dis" "parturient" "montes," "nascetur" "ridiculus" "mus"
|
|
"mauris" "vitae" "ultricies" "leo" "integer" "malesuada" "nunc" "vel" "risus" "commodo" "viverra" "maecenas" "accumsan," "lacus" "vel"
|
|
"facilisis" "volutpat," "est" "velit" "egestas" "dui," "id" "ornare" "arcu" "odio" "ut" "sem" "nulla" "pharetra" "diam" "sit" "amet"
|
|
"nisl" "suscipit" "adipiscing" "bibendum" "est" "ultricies" "integer" "quis" "auctor" "elit" "sed" "vulputate" "mi" "sit" "amet" "mauris"
|
|
"commodo" "quis" "imperdiet" "massa" "tincidunt" "nunc" "pulvinar" "sapien" "et" "ligula" "ullamcorper" "malesuada" "proin" "libero"
|
|
"nunc," "consequat" "interdum" "varius" "sit" "amet," "mattis" "vulputate" "enim" "nulla" "aliquet" "porttitor" "lacus," "luctus"
|
|
"accumsan" "tortor" "posuere" "ac" "ut" "consequat" "semper" "viverra" "nam" "libero" "justo," "laoreet" "sit" "amet" "cursus" "sit"
|
|
"amet," "dictum" "sit" "amet" "justo" "donec" "enim" "diam," "vulputate" "ut" "pharetra" "sit" "amet," "aliquam" "id" "diam" "maecenas"
|
|
"ultricies" "mi" "eget" "mauris" "pharetra" "et" "ultrices" "neque" "ornare" "aenean" "euismod" "elementum" "nisi," "quis" "eleifend"
|
|
"quam" "adipiscing" "vitae" "proin" "sagittis," "nisl" "rhoncus" "mattis" "rhoncus," "urna" "neque" "viverra" "justo," "nec" "ultrices"
|
|
"dui" "sapien" "eget" "mi" "proin" "sed" "libero" "enim," "sed" "faucibus" "turpis" "in" "eu" "mi" "bibendum" "neque" "egestas" "congue"
|
|
"quisque" "egestas" "diam" "in" "arcu" "cursus" "euismod" "quis" "viverra" "nibh" "cras" "pulvinar" "mattis" "nunc," "sed" "blandit"
|
|
"libero" "volutpat" "sed" "cras" "ornare" "arcu" "dui" "vivamus" "arcu" "felis," "bibendum" "ut" "tristique" "et," "egestas" "quis"
|
|
"ipsum" "suspendisse" "ultrices" "gravida" "dictum" "fusce" "ut" "placerat" "orci" "nulla" "pellentesque" "dignissim" "enim," "sit"
|
|
"amet" "venenatis" "urna" "cursus" "eget" "nunc" "scelerisque" "viverra" "mauris," "in" "aliquam" "sem" "fringilla" "ut" "morbi"
|
|
"tincidunt" "augue" "interdum" "velit" "euismod" "in" "pellentesque" "massa" "placerat" "duis" "ultricies" "lacus" "sed" "turpis"
|
|
"tincidunt" "id" "aliquet" "risus" "feugiat" "in" "ante" "metus," "dictum" "at" "tempor" "commodo," "ullamcorper" "a" "lacus" "vestibulum"
|
|
"sed" "arcu" "non" "odio" "euismod" "lacinia" "at" "quis" "risus" "sed" "vulputate" "odio" "ut" "enim" "blandit" "volutpat" "maecenas"
|
|
"volutpat" "blandit" "aliquam" "etiam" "erat" "velit," "scelerisque" "in" "dictum" "non," "consectetur" "a" "erat" "nam" "at" "lectus"
|
|
"urna" "duis" "convallis" "convallis" "tellus," "id" "interdum" "velit" "laoreet" "id" "donec" "ultrices" "tincidunt" "arcu," "non"
|
|
"sodales" "neque" "sodales" "ut" "etiam" "sit" "amet" "nisl" "purus," "in" "mollis" "nunc" "sed" "id" "semper" "risus" "in" "hendrerit"
|
|
"gravida" "rutrum" "quisque" "non" "tellus" "orci," "ac" "auctor" "augue" "mauris" "augue" "neque," "gravida" "in" "fermentum" "et,"
|
|
"sollicitudin" "ac" "orci" "phasellus" "egestas" "tellus" "rutrum" "tellus" "pellentesque" "eu" "tincidunt" "tortor" "aliquam" "nulla"
|
|
"facilisi" "cras" "fermentum," "odio" "eu" "feugiat" "pretium," "nibh" "ipsum" "consequat" "nisl," "vel" "pretium" "lectus" "quam" "id"
|
|
"leo" "in" "vitae" "turpis" "massa" "sed" "elementum" "tempus" "egestas" "sed" "sed" "risus" "pretium" "quam" "vulputate" "dignissim"
|
|
"suspendisse" "in" "est" "ante" "in" "nibh" "mauris," "cursus" "mattis" "molestie" "a," "iaculis" "at" "erat" "pellentesque" "adipiscing"
|
|
"commodo" "elit," "at" "imperdiet" "dui" "accumsan" "sit" "amet" "nulla" "facilisi" "morbi" "tempus" "iaculis" "urna," "id" "volutpat"
|
|
"lacus" "laoreet" "non" "curabitur" "gravida" "arcu" "ac" "tortor" "dignissim" "convallis" "aenean" "et" "tortor" "at" "risus" "viverra"
|
|
"adipiscing" "at" "in" "tellus" "integer" "feugiat" "scelerisque" "varius" "morbi" "enim" "nunc," "faucibus" "a" "pellentesque" "sit"
|
|
"amet," "porttitor" "eget" "dolor" "morbi" "non" "arcu" "risus," "quis" "varius" "quam" "quisque" "id" "diam" "vel" "quam" "elementum"
|
|
"pulvinar" "etiam" "non" "quam" "lacus" "suspendisse" "faucibus" "interdum" "posuere" "lorem" "ipsum" "dolor" "sit" "amet," "consectetur"
|
|
"adipiscing" "elit" "duis" "tristique" "sollicitudin" "nibh" "sit" "amet" "commodo" "nulla" "facilisi" "nullam" "vehicula" "ipsum" "a"
|
|
"arcu" "cursus" "vitae" "congue" "mauris" "rhoncus" "aenean" "vel" "elit" "scelerisque" "mauris" "pellentesque" "pulvinar" "pellentesque"
|
|
"habitant" "morbi" "tristique" "senectus" "et" "netus" "et" "malesuada" "fames" "ac" "turpis" "egestas" "maecenas" "pharetra" "convallis"
|
|
"posuere" "morbi" "leo" "urna," "molestie" "at" "elementum" "eu," "facilisis" "sed" "odio" "morbi" "quis" "commodo" "odio" "aenean" "sed"
|
|
"adipiscing" "diam" "donec" "adipiscing" "tristique" "risus" "nec" "feugiat" "in" "fermentum" "posuere" "urna" "nec" "tincidunt" "praesent"
|
|
"semper" "feugiat" "nibh" "sed" "pulvinar" "proin" "gravida" "hendrerit" "lectus" "a" "molestie"))
|
|
|
|
(defun emmet-random-range (min max)
|
|
(+ min (random (+ (- max min) 1))))
|
|
|
|
(defun emmet-lorem-choice-words (count &optional s)
|
|
(let* ((l (length emmet-lorem-words))
|
|
(s (if s s (random l)))
|
|
(f (+ s count))
|
|
(e (if (< l f) l f)))
|
|
(append
|
|
(subseq emmet-lorem-words s e)
|
|
(if (= e l) (emmet-lorem-choice-words (- f l) 0)))))
|
|
|
|
(defvar emmet-lorem-min-sentence 5)
|
|
|
|
(defvar emmet-lorem-max-sentence 30)
|
|
|
|
(defun emmet-upcase-first (s)
|
|
(concat (upcase (subseq s 0 1)) (subseq s 1)))
|
|
|
|
(defun emmet-lorem-generate (count)
|
|
(if (<= count 0) ""
|
|
(let ((sl (if (< count emmet-lorem-max-sentence) count
|
|
(emmet-random-range
|
|
emmet-lorem-min-sentence
|
|
(min (- count emmet-lorem-min-sentence)
|
|
emmet-lorem-max-sentence))))
|
|
(last (let ((r (random 4)))
|
|
(if (< 1 r) "." (if (< 0 r) "?" "!")))))
|
|
(let ((words (let ((w (emmet-lorem-choice-words sl)))
|
|
(let ((l (car (last w))))
|
|
(if (string-equal (substring l -1) ",")
|
|
(append (subseq w 0 -1) (list (substring l 0 -1)))
|
|
w)))))
|
|
(concat (emmet-upcase-first (emmet-join-string words " ")) last
|
|
(let ((next (emmet-lorem-generate (- count sl))))
|
|
(if (string-equal next "") ""
|
|
(concat " " next))))))))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; CSS abbrev:
|
|
|
|
(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 emmet-css-unit-aliases unit))))
|
|
input)))
|
|
|
|
(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\\|\\)\\(["
|
|
(emmet-join-string
|
|
(emmet-get-keys-of-hash emmet-css-color-trailing-aliases) "")
|
|
"]\\|\\)")
|
|
4 "css color argument"
|
|
(let ((color
|
|
(let* ((n (elt it 1))
|
|
(l (length n)))
|
|
(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))))
|
|
(cons
|
|
(let ((rgb-mode (string= (elt it 2) "rgb")))
|
|
(if rgb-mode
|
|
(format "rgb(%d,%d,%d)"
|
|
(string-to-number (substring color 0 2) 16)
|
|
(string-to-number (substring color 2 4) 16)
|
|
(string-to-number (substring color 4 6) 16))
|
|
(concat
|
|
"#"
|
|
(let ((filter (cond ((string= emmet-css-color-case "auto") #'identity)
|
|
((string= emmet-css-color-case "up") #'upcase)
|
|
(t #'downcase))))
|
|
(funcall
|
|
filter
|
|
(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) emmet-css-color-trailing-aliases) input)
|
|
input)))))
|
|
|
|
(defun emmet-css-arg-something (input)
|
|
(emmet-parse
|
|
" *\\([^ ]+\\)" 2 "css argument"
|
|
(cons (elt it 1) input)))
|
|
|
|
(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 emmet-css-important-p (input)
|
|
(let ((len (length input)))
|
|
(and (< 0 len)
|
|
(char-equal (aref input (1- len)) ?!))))
|
|
|
|
(defun emmet-css-parse-args (args)
|
|
(when args
|
|
(let ((rt nil))
|
|
(loop
|
|
(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 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 emmet-css-split-vendor-prefixes (input)
|
|
(emmet-parse
|
|
"\\(-[wmso]+-\\|-\\|\\)\\(.*\\)" 3 "css vendor prefixes"
|
|
(list (elt it 2)
|
|
(let ((vp (elt it 1)))
|
|
(if (not (string= vp ""))
|
|
(if (string= vp "-") 'auto
|
|
(string-to-list (subseq vp 1 -1))))))))
|
|
|
|
(defun emmet-css-subexpr (exp)
|
|
(let* ((importantp (emmet-css-important-p exp)))
|
|
(destructuring-bind (exp vp)
|
|
(emmet-css-split-vendor-prefixes exp)
|
|
(destructuring-bind (key args)
|
|
(emmet-css-split-args (if importantp (subseq exp 0 -1) exp))
|
|
`(,key ,vp
|
|
,importantp
|
|
,@(emmet-css-parse-args args))))))
|
|
|
|
(defun emmet-css-toknize (str)
|
|
(let* ((i (split-string str "+"))
|
|
(rt nil))
|
|
(loop
|
|
(let ((f (first i))
|
|
(s (second i)))
|
|
(if f
|
|
(if (and s (or (string= s "")
|
|
(string-match "^\\(?:[ #0-9$]\\|-[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 emmet-css-expr (input)
|
|
(mapcar #'emmet-css-subexpr
|
|
(emmet-css-toknize input)))
|
|
|
|
(emmet-defparameter
|
|
emmet-css-snippets
|
|
(gethash "snippets" (gethash "css" emmet-snippets)))
|
|
|
|
(emmet-defparameter
|
|
emmet-sass-snippets
|
|
(gethash "snippets" (gethash "sass" emmet-snippets)))
|
|
|
|
(emmet-defparameter
|
|
emmet-css-unitless-properties
|
|
(gethash "unitlessProperties" (gethash "css" emmet-preferences)))
|
|
|
|
(emmet-defparameter
|
|
emmet-css-unitless-properties-regex
|
|
(concat "^\\(:?" (emmet-join-string
|
|
emmet-css-unitless-properties "\\|")
|
|
"\\):.*$"))
|
|
|
|
(defun emmet-css-instantiate-lambda (str)
|
|
(cl-flet ((insert-space-between-name-and-body
|
|
(str)
|
|
(if (string-match "^\\([a-z-]+:\\)\\(.+\\)$" str)
|
|
(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
|
|
(emmet-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-number 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))
|
|
(str (insert-space-between-name-and-body str)))
|
|
(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 (emmet-join-string
|
|
(nthcdr ,idx-max ,args) " "))))
|
|
,body)))))))
|
|
|
|
(emmet-defparameter
|
|
emmet-vendor-prefixes-properties
|
|
(gethash "vendorPrefixesProperties" (gethash "css" emmet-preferences)))
|
|
(emmet-defparameter
|
|
emmet-vendor-prefixes-default
|
|
(list "webkit" "moz" "ms" "o"))
|
|
(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
|
|
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))))
|
|
(emmet-join-string
|
|
(append (mapcar (lambda (v) (concat "-" v "-" line)) vps)
|
|
(list line))
|
|
"\n"))))
|
|
|
|
(defun emmet-css-transform-exprs (exprs)
|
|
(emmet-join-string
|
|
(mapcar
|
|
#'(lambda (expr)
|
|
(let*
|
|
((hash-map (if emmet-use-sass-syntax emmet-sass-snippets emmet-css-snippets))
|
|
(basement
|
|
(emmet-aif
|
|
(or (gethash (car expr) hash-map) (gethash (car expr) emmet-css-snippets))
|
|
(let ((set it) (fn nil) (unitlessp nil))
|
|
(if (stringp set)
|
|
(progn
|
|
;; new pattern
|
|
;; creating print function
|
|
(setf fn (emmet-css-instantiate-lambda set))
|
|
;; get unitless or no
|
|
(setf unitlessp
|
|
(not (null (string-match
|
|
emmet-css-unitless-properties-regex set))))
|
|
;; caching
|
|
(puthash (car expr) (cons fn unitlessp) hash-map))
|
|
(progn
|
|
;; cache hit.
|
|
(setf fn (car set))
|
|
(setf unitlessp (cdr set))))
|
|
(apply fn
|
|
(mapcar
|
|
#'(lambda (arg)
|
|
(if (listp arg)
|
|
(if unitlessp (car arg)
|
|
(apply #'concat arg))
|
|
arg))
|
|
(cdddr expr))))
|
|
(concat (car expr) ": "
|
|
(emmet-join-string
|
|
(mapcar #'(lambda (arg)
|
|
(if (listp arg) (apply #'concat arg) arg))
|
|
(cdddr expr)) " ")
|
|
";"))))
|
|
(let ((line
|
|
(if (caddr expr)
|
|
(concat (subseq basement 0 -1) " !important;")
|
|
basement)))
|
|
;; remove trailing semicolon while editing Sass files
|
|
(if (and emmet-use-sass-syntax (equal ";" (subseq line -1)))
|
|
(setq line (subseq line 0 -1)))
|
|
(emmet-aif
|
|
(cadr expr)
|
|
(emmet-css-transform-vendor-prefixes line it)
|
|
line))))
|
|
exprs)
|
|
"\n"))
|
|
|
|
(defun emmet-css-transform (input)
|
|
(emmet-css-transform-exprs (emmet-css-expr input)))
|
|
|
|
;;; emmet-mode.el ends here
|