-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathjade-mode.elc
51 lines (44 loc) · 4.92 KB
/
jade-mode.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
;ELC
;;; Compiled by shant@ultraio on Sat Sep 27 19:36:33 2014
;;; from file /home/shant/.emacs.d/jade-mode.el
;;; in Emacs version 24.3.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 font-lock sws-mode] 2)
#@24 Prints a debug message
(defalias 'jade-debug #[(string &rest args) "\302\303\304C \"\"\207" [string args apply message append] 5 (#$ . 575)])
#@39 Returns the current line as a string.
(defalias 'jade-line-as-string '(macro . #[nil "\300\207" [(buffer-substring (point-at-bol) (point-at-eol))] 1 (#$ . 724)]))
#@26 If line is empty or not.
(defalias 'jade-empty-line-p #[nil "\300 \301 U\207" [point-at-eol point-at-bol] 2 (#$ . 893)])
#@31 If line contains only spaces.
(defalias 'jade-blank-line-p #[nil "\304\305 \306 {\307\310\311\n #,\207" [start string regexp inhibit-changing-match-data "^[ ]*$" point-at-bol point-at-eol nil t string-match] 4 (#$ . 1020)])
#@93 Comment or uncomment current line or region in a smart way.
For detail, see `comment-dwim'.
(defalias 'jade-comment-dwim #[(arg) "\303\304!\210\305\306\307\n!*\207" [comment-end comment-start arg require newcomment "//" "" comment-dwim] 2 (#$ . 1255) "*P"])
#@16 Jade keywords.
(defconst jade-keywords "\\<\\(append\\|block\\(?: \\(?:\\(?:ap\\|pre\\)pend\\)\\)?\\|case\\|default\\|e\\(?:ach\\|lse\\|xtends\\)\\|for\\|i\\(?:nclude\\|[fn]\\)\\|mixin\\|prepend\\|when\\|yield\\)\\>" (#$ . 1521))
(defvar jade-font-lock-keywords (byte-code "\301\302B\303B\304\305B\306\307B\310\311B\312\313B\257\207" [jade-keywords "!!!\\|doctype\\( ?[A-Za-z0-9-_]*\\)?" (0 font-lock-comment-face) font-lock-keyword-face "#\\(\\w\\|_\\|-\\)*" font-lock-variable-name-face "\\(?:^[ {2,}]*\\(?:[a-z0-9_:\\-]*\\)\\)?\\(#[A-Za-z0-9-_]*[^ ]\\)" (1 font-lock-variable-name-face) "\\(?:^[ {2,}]*\\(?:[a-z0-9_:\\-]*\\)\\)?\\(\\.[A-Za-z0-9-_]*\\)" (1 font-lock-type-face) "^[ {2,}]*[a-z0-9_:\\-]*" (0 font-lock-function-name-face)] 7))
#@31 Syntax table for `jade-mode'.
(defvar jade-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [syn-table make-syntax-table modify-syntax-entry 47 ". 12b" 10 "> b" 39 "\""] 4) (#$ . 2273))
#@40 Selects the current sexp as the region
(defalias 'jade-region-for-sexp #[nil "\301 \210\302 \303\304\211\305#\210\306 V\205 \307 \210\304\210\202\f )\207" [ci beginning-of-line current-indentation push-mark nil t jade-next-line-indent next-line] 4 (#$ . 2509) nil])
(defvar jade-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [jade-mode-hook variable-documentation put purecopy "Hook run when entering Jade mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp jade-mode-map definition-name jade-mode] 5)
(defvar jade-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [jade-mode-map variable-documentation put purecopy "Keymap for `jade-mode'." jade-mode-abbrev-table definition-name jade-mode] 5)
(defvar jade-mode-abbrev-table (progn (define-abbrev-table 'jade-mode-abbrev-table nil) jade-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [jade-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `jade-mode'." jade-mode derived-mode-parent sws-mode] 5)
#@217 Major mode for editing jade node.js templates
In addition to any hooks its parent mode `sws-mode' might have run,
this mode runs the hook `jade-mode-hook', as the final step
during initialization.
\{jade-mode-map}
(defalias 'jade-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f\321\"\204; \f=\204; \322\f\321C#\210\323 !\210\324#!\210\f\325$\312\311\306\326!\210\327\325%\306\330!\210\331\306\332!\210\333\334&\323 !\210\335 \336\337#\210\340')\341\342!\207" [delay-mode-hooks major-mode mode-name jade-mode-map jade-mode-abbrev-table local-abbrev-table make-local-variable t sws-mode jade-mode "Jade" mode-class put keymap-parent set-keymap-parent current-local-map abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table 2 comment-start "// " indent-line-function sws-indent-line indent-region-function sws-indent-region nil define-key [remap comment-dwim] jade-comment-dwim (jade-font-lock-keywords) run-mode-hooks jade-mode-hook jade-syntax-table tab-width sws-tab-width indent-tabs-mode font-lock-defaults] 5 (#$ . 3769) nil])
(byte-code "\300\301\302\"\210\303\304!\207" [add-to-list auto-mode-alist ("\\.jade$" . jade-mode) provide jade-mode] 3)