Current File : //usr/local/share/emacs/27.2/lisp/textmodes/less-css-mode.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315& \210\316\317\320\321\322DD\323\324\325%\210\316\326\320\321\327DD\330\324\331%\210\332\326\333\334#\210\316\335\320\321\336DD\337\324\340%\210\332\335\333\341#\210\316\342\320\321\343DD\344\324\345%\210\332\342\333\346#\210\316\347\320\321\350DD\351\324\352%\210\353\347!\210\316\354\320\321\355DD\356\324\357%\210\332\354\333\346#\210\353\354!\207" [require compile css-mode derived custom-declare-group less-css nil "Less CSS mode." :version "26.1" :prefix "less-css-" :group css custom-declare-variable less-css-lessc-command funcall function #[0 "\300\207" [#1="lessc"] 1 #1#] "Command used to compile Less files.\nShould be \"lessc\" or the complete path to your lessc\nexecutable, e.g.: \"~/.gem/ruby/1.8/bin/lessc\"." :type file less-css-compile-at-save #[0 "\300\207" [nil] 1] "If non-nil, Less buffers are compiled to CSS after each save." boolean put safe-local-variable booleanp less-css-lessc-options #[0 "\300\207" [("--no-color")] 1] "Command line options for Less executable.\nUse \"-x\" to minify output." (repeat string) t less-css-output-directory #[0 "\300\207" [nil] 1] "Directory in which to save CSS, or nil to use the Less file's directory.\nThis path is expanded relative to the directory of the Less file\nusing `expand-file-name', so both relative and absolute paths\nwill work as expected." (choice (const :tag "Same as Less file" nil) directory) stringp less-css-output-file-name #[0 "\300\207" [nil] 1] "File name in which to save CSS, or nil to use <name>.css for <name>.less.\nThis can be also be set to a full path, or a relative path. If\nthe path is relative, it will be relative to the value of\n`less-css-output-dir', if set, or the current directory by\ndefault." (choice (const :tag "Default" nil) file) make-variable-buffer-local less-css-input-file-name #[0 "\300\207" [nil] 1] "File name which will be compiled to CSS.\nWhen the current buffer is saved `less-css-input-file-name' file\nwill be compiled to CSS instead of the current file.\n\nSet this in order to trigger compilation of a \"master\" .less\nfile which includes the current file. The best way to set this\nvariable in most cases is likely to be via directory local\nvariables.\n\nThis can be also be set to a full path, or a relative path. If\nthe path is relative, it will be relative to the current\ndirectory by default." (choice (const nil) file)] 10)
(defconst less-css-default-error-regex "^\\(?:\\[31m\\)?\\([^\n]*\\|FileError:.*\n\\)\\(?:\\[39m\\[31m\\)? in \\(?:\\[39m\\)?\\([^
\n ]+\\)\\(?:\\[90m\\)?\\(?::\\| on line \\)\\([0-9]+\\)\\(?::\\|, column \\)\\([0-9]+\\):?\\(?:\\[39m\\)?")
(byte-code "\301\302\303\304\305\306\307\310\257\"\210\301\311\303\"\207" [less-css-default-error-regex add-to-list compilation-error-regexp-alist-alist less-css 2 3 4 nil 1 compilation-error-regexp-alist] 9)
#@66 Run `less-css-compile' if `less-css-compile-at-save' is non-nil.
(defalias 'less-css-compile-maybe #[0 "\205 \301 \207" [less-css-compile-at-save less-css-compile] 1 (#$ . 3325)])
#@51 Return the path to use for the compiled CSS file.
(defalias 'less-css--output-path #[0 "\304\206\f \305\306 !!\307P\n\206 \"\207" [less-css-output-file-name buffer-file-name less-css-output-directory default-directory expand-file-name file-name-nondirectory file-name-sans-extension ".css"] 4 (#$ . 3513)])
#@67 Compile the current buffer to CSS using `less-css-lessc-command'.
(defalias 'less-css-compile #[0 "\305\306!\210\307\310 \311\312\313\314\315!\316\"\317$\216r\320\321 C\322\323\n\"\323 \206# \f!\323\324 !D#\325\326\327#\266\202!q\210\330\331\332\333\334$*\262)\207" [compilation-buffer-name-function less-css-lessc-command less-css-lessc-options less-css-input-file-name buffer-file-name message "Compiling Less to CSS" #[257 "\300\207" ["*less-css-compilation*"] 2 "*less-css-compilation*\n\n(fn _)"] current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 compile append mapcar shell-quote-argument less-css--output-path " " mapconcat identity add-hook compilation-finish-functions #[514 "\301\302\303\304#)\266\203?\205 \305!\207" [inhibit-changing-match-data "^finished" nil t string-match display-buffer] 9 "\n\n(fn BUF MSG)"] nil t] 8 (#$ . 3829) nil])
(defconst less-css-font-lock-keywords '(("@[a-z_-][a-z_0-9-]*" . font-lock-variable-name-face) ("&" . font-lock-preprocessor-face) ("\\(?:[ {;]\\|^\\)\\(\\.[a-z_-][a-z_0-9-]*\\)[ ]*;" 1 font-lock-keyword-face)))
(defvar less-css-mode-syntax-table (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\211\207" [css-mode-syntax-table make-syntax-table modify-syntax-entry 47 ". 124b" 42 ". 23" 10 "> b" 46 "'"] 5))
(defvar less-css-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "" less-css-compile] 5))
(defvar less-css-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [less-css-mode-hook variable-documentation put "Hook run after entering Less mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp less-css-mode-map definition-name less-css-mode] 4)
(defvar less-css-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [less-css-mode-abbrev-table less-css-mode-map variable-documentation put purecopy "Keymap for `less-css-mode'." boundp less-css-mode-syntax-table definition-name less-css-mode (lambda (#1=#:def-tmp-var) (defvar less-css-mode-syntax-table #1#)) make-syntax-table "Syntax table for `less-css-mode'." (lambda (#1#) (defvar less-css-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `less-css-mode'." derived-mode-parent css-mode] 5)
#@268 Major mode for editing Less files (http://lesscss.org/).
Special commands:
\{less-css-mode-map}
In addition to any hooks its parent mode `css-mode' might have run,
this mode runs the hook `less-css-mode-hook', as the final or penultimate step
during initialization.
(defalias 'less-css-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
*=\204R \326
\325*C#\210\327 !\210\330\f!\210
*\331\332+\"\210\306\333!\210\334\306\335!\210\336 \306\337!\210\340 \306\341!\210\342!\306\343!\210\344#\345\346\347\332\307$\210)\350\351!\207" [delay-mode-hooks major-mode mode-name less-css-mode-map less-css-mode-syntax-table less-css-mode-abbrev-table make-local-variable t css-mode less-css-mode "Less" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-add-keywords nil comment-start "//" comment-end "" comment-continue " *" comment-start-skip "/[*/]+[ ]*" comment-end-skip "[ ]*\\(?:\n\\|\\*+/\\)" add-hook after-save-hook less-css-compile-maybe run-mode-hooks less-css-mode-hook local-abbrev-table less-css-font-lock-keywords] 5 (#$ . 6502) nil])
(provide 'less-css-mode)
Mini Shell