;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \210\302\316\304\305\317DD\320\310\311\312\313\314\315& \210\302\321\304\305\322DD\323\310\311\312\313\314\315& \210\302\324\304\305\325DD\326\310\311\312\313\314\315& \210\302\327\304\305\330DD\331\310\311\312\313\314\315& \207" [require zenscript-common custom-declare-variable zenscript-indent-level funcall function #[0 "\300\207" [4] 1] "Number of spaces for each indentation step in `zensript-mode'." :type integer :safe integerp :group zenscript zenscript-paren-indent-offset #[0 "\300\207" [0] 1] "Number of additional spaces for indenting expressions in parentheses.\nThe value must be no less than minus `zenscript-indent-level'." zenscript-square-indent-offset #[0 "\300\207" [0] 1] "Number of additional spaces for indenting expressions in square braces.\nThe value must be no less than minus `zenscript-indent-level'." zenscript-curly-indent-offset #[0 "\300\207" [0] 1] "Number of additional spaces for indenting expressions in curly braces.\nThe value must be no less than minus `zenscript-indent-level'." zenscript-expr-indent-offset #[0 "\300\207" [0] 1] "Number of additional spaces for indenting continued expressions.\nThe value must be no less than minus `zenscript-indent-level'."] 10) #@70 Move backward to the nearest newline that is not in a block comment. (defalias 'zenscript--find-newline-backward #[0 "\300\211\2031\301\262\302\303\301\300#\203+\304 \3058\203'\3068b\210\3078\204'\300\262\210\202\301\262\202\207" [t nil search-backward "\n" syntax-ppss 4 8 7] 6 (#$ . 1372)]) #@80 Regex matching operators that affect the indentation of continued expressions. (defconst zenscript--indentation-operator-re (byte-code "\301\302!P\207" [zenscript-operator-keywords "[+-*/%|&^?:~<>=!$\\.)]\\([^-+*/]=?\\)\\|" zenscript--word-from] 3) (#$ . 1686)) #@44 Return non-nil if point is on an operator. (defalias 'zenscript--looking-at-operator-p #[0 "\302\303!)\262\205\304\302\303!)\262?\207" [zenscript--indentation-operator-re inhibit-changing-match-data t looking-at "<\\w+.+?>"] 3 (#$ . 1955)]) #@61 Return non-nil if the current line continues an expression. (defalias 'zenscript--continued-expression-p #[0 "\212\300 \210\301 \2033\302f\303=\203\304\305`T!8?\306u\210\202`\302f\307>?\206`\310`[!\210`Sf\311>?\202`\312 \205`\313\302x\210o\204C\306u\210o?\205`\212\306u\210\314\315!)?\205`\301 \205`\306u\210\314\316!?)\207" [back-to-indentation zenscript--looking-at-operator-p nil 47 3 syntax-ppss -1 (45 43) forward-comment (44 91 40) zenscript--find-newline-backward " " looking-at "[/*]/" "+\\+\\|--\\|/[/*]"] 3 (#$ . 2211)]) #@121 Return the indentation for the current line. PARSE-STATUS is the status returned from `syntax-pps`. (fn PARSE-STATUS) (defalias 'zenscript--get-indentation #[257 "\212\306 \210\3078\203%\310\311\312!)\262\203\313\202\314\3158b\210i\\\202\274\3168\203/\317\202\274\211A@\203\260\312\320!\321 A@b\210\312\322!\203\223\323\324!\210`Sf\325=\203T\326 \210\306 \210\203ai\266\202\202\274\211\203qi\314 _\\\n\\\266\202\202\274i \\A@f\211\327\267\202\212 \202\213\f\202\213 \202\213\330\262\\\266\202\202\274\204\236\330u\210\331\330w\210\211\203\250 \n\\\202\251\317i\\\266\202\202\274\321 \203\273 \n\\\202\274\317)\207" [inhibit-changing-match-data zenscript-indent-level zenscript-expr-indent-offset zenscript-paren-indent-offset zenscript-square-indent-offset zenscript-curly-indent-offset back-to-indentation 4 "*" t looking-at 1 2 8 3 0 "[]})]" zenscript--continued-expression-p "[({[]\\s-*\\(/[/*]\\|$\\)" skip-syntax-backward " " 41 backward-list #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 126 91 130 123 134)) nil " "] 7 (#$ . 2761)]) #@39 Indent the current line as ZenScript. (defalias 'zenscript-indent-line #[0 "\212\300\301 !)`\212\302 \210`)Z\3038\203\304\207\305\306!!\210\211\307V\205$\211u\207" [syntax-ppss point-at-bol back-to-indentation 3 noindent indent-line-to zenscript--get-indentation 0] 5 (#$ . 3890) nil]) #@66 Initialize hooks and locals required by `zenscript-indentation`. (defalias 'zenscript--init-indents #[0 "\302\300!\210\303\302\301!\210\304\211\207" [electric-indent-chars indent-line-function make-local-variable (40 41 123 125 91 93 10 59) zenscript-indent-line] 2 (#$ . 4187)]) (provide 'zenscript-indentation)