56 lines
4.9 KiB
Plaintext
56 lines
4.9 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.1
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(byte-code "\300\301!\210\300\302!\207" [require css-mode skewer-mode] 2)
|
|||
|
|
#@58 Trim and compress whitespace in the string.
|
|||
|
|
|
|||
|
|
(fn STRING)
|
|||
|
|
(defalias 'skewer-css-trim #[257 "\300\301\302#\300\303\304#\207" [replace-regexp-in-string "[ \n ]+" " " "^[ \n ]+\\|[ \n ]+$" ""] 6 (#$ . 482)])
|
|||
|
|
#@61 Move to the beginning of the current rule and return point.
|
|||
|
|
(defalias 'skewer-css-beginning-of-rule #[0 "\300 \210\301\302!\210\301\303\304\305#\203 \304u\210\306\307!\210\310u\210`\207" [skewer-css-end-of-rule re-search-backward "{" "[}/]" nil start re-search-forward "[^ \n]" -1] 4 (#$ . 694)])
|
|||
|
|
#@55 Move to the end of the current rule and return point.
|
|||
|
|
(defalias 'skewer-css-end-of-rule #[0 "\300`Sf\301\"\203 `\207\302\303!\207" [eql 125 re-search-forward "}"] 3 (#$ . 999)])
|
|||
|
|
#@62 Move to the end of the current declaration and return point.
|
|||
|
|
(defalias 'skewer-css-end-of-declaration #[0 "\300`Sf\301\"\203 `\207\302\303!\207" [eql 59 re-search-forward ";"] 3 (#$ . 1184)])
|
|||
|
|
#@62 Move to the end of the current declaration and return point.
|
|||
|
|
(defalias 'skewer-css-beginning-of-declaration #[0 "\300 \210\301\302!\210\303\304!\210`\207" [skewer-css-end-of-declaration re-search-backward ":" backward-sexp 1] 2 (#$ . 1383)])
|
|||
|
|
#@44 Return the selectors for the current rule.
|
|||
|
|
(defalias 'skewer-css-selectors #[0 "\212\300 \301\302!S\303\304\"!\266\202)\207" [skewer-css-beginning-of-rule re-search-forward "{" skewer-css-trim buffer-substring-no-properties] 6 (#$ . 1631)])
|
|||
|
|
#@54 Return the current declaration as a pair of strings.
|
|||
|
|
(defalias 'skewer-css-declaration #[0 "\212\300 \301 \302\"\303\304\"\305\306\"\266\202\266\202)\207" [skewer-css-beginning-of-declaration skewer-css-end-of-declaration buffer-substring-no-properties split-string ":" mapcar skewer-css-trim] 7 (#$ . 1880)])
|
|||
|
|
#@42 Add RULE as a new stylesheet.
|
|||
|
|
|
|||
|
|
(fn RULE)
|
|||
|
|
(defalias 'skewer-css #[257 "\300\301\302\303$\207" [skewer-eval nil :type "css"] 6 (#$ . 2200)])
|
|||
|
|
#@40 Evaluate the declaration at the point.
|
|||
|
|
(defalias 'skewer-css-eval-current-declaration #[0 "\212\300 \301 \302 \303 \304\"\210\305\306\307\310$!\266\204)\207" [skewer-css-selectors skewer-css-declaration skewer-css-beginning-of-declaration skewer-css-end-of-declaration skewer-flash-region skewer-css apply format "%s { %s: %s }"] 10 (#$ . 2346) nil])
|
|||
|
|
#@33 Evaluate the rule at the point.
|
|||
|
|
(defalias 'skewer-css-eval-current-rule #[0 "\212\300 \301 \302\"\303\"\210\304\305!!\266\203)\207" [skewer-css-beginning-of-rule skewer-css-end-of-rule buffer-substring-no-properties skewer-flash-region skewer-css skewer-css-trim] 6 (#$ . 2709) nil])
|
|||
|
|
#@53 Send the entire current buffer as a new stylesheet.
|
|||
|
|
(defalias 'skewer-css-eval-buffer #[0 "\300\301ed\"!\207" [skewer-css buffer-substring-no-properties] 4 (#$ . 3004) nil])
|
|||
|
|
#@53 Remove *all* Skewer-added styles from the document.
|
|||
|
|
(defalias 'skewer-css-clear-all #[0 "\300\301\211\302\303$\207" [skewer-eval nil :type "cssClearAll"] 5 (#$ . 3184) nil])
|
|||
|
|
#@29 Keymap for skewer-css-mode.
|
|||
|
|
(defvar skewer-css-mode-map (byte-code "\300 \211\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\207" [make-sparse-keymap define-key "" skewer-css-eval-current-declaration [134217752] skewer-css-eval-current-rule " " skewer-css-eval-buffer "" skewer-css-clear-all] 6) (#$ . 3364))
|
|||
|
|
#@99 Non-nil if Skewer-Css mode is enabled.
|
|||
|
|
Use the command `skewer-css-mode' to change this variable.
|
|||
|
|
(defvar skewer-css-mode nil (#$ . 3709))
|
|||
|
|
(make-variable-buffer-local 'skewer-css-mode)
|
|||
|
|
#@73 Minor mode for interactively loading new CSS rules.
|
|||
|
|
|
|||
|
|
(fn &optional ARG)
|
|||
|
|
(defalias 'skewer-css-mode #[256 "\301 \302=\203
?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [skewer-css-mode current-message toggle prefix-numeric-value 0 run-hooks skewer-css-mode-hook skewer-css-mode-on-hook skewer-css-mode-off-hook called-interactively-p any " in current buffer" message "Skewer-Css mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 3900) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
|
|||
|
|
(defvar skewer-css-mode-hook nil)
|
|||
|
|
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\210\311\312!\207" [skewer-css-mode-map skewer-css-mode-hook variable-documentation put "Hook run after entering or leaving `skewer-css-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode skewer-css-mode " skewer-css" nil provide skewer-css] 6)
|