;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'font-lock) (defvar sws-tab-width 2) #@39 Returns the current line as a string. (defalias 'sws-line-as-string '(macro . #[nil "\300\207" [(buffer-substring (point-at-bol) (point-at-eol))] 1 (#$ . 133)])) #@35 Gets indentation of previous line (defalias 'sws-previous-indentation #[nil "\212\300y\210o\203\f\301\202\302\303!\203o\204\300y\210\202\f\304 )\207" [-1 0 looking-at "^[ ]*$" current-indentation] 2 (#$ . 301)]) #@28 Calculates max indentation (defalias 'sws-max-indent #[nil "\301 \\\207" [sws-tab-width sws-previous-indentation] 2 (#$ . 528)]) #@29 If line is completely empty (defalias 'sws-empty-line-p #[nil "\300 \301 U\207" [point-at-bol point-at-eol] 2 (#$ . 664)]) #@34 Moves point to beginning of text (defalias 'sws-point-to-bot #[nil "\300 \207" [beginning-of-line-text] 1 (#$ . 793)]) #@27 Performs line indentation (defalias 'sws-do-indent-line #[nil "\301 \203 \302 j\207\303 \302 W\203\303 \\j\207\304 \210\305 \207" [sws-tab-width sws-empty-line-p sws-max-indent current-indentation beginning-of-line delete-horizontal-space] 2 (#$ . 918)]) #@22 Indents current line (defalias 'sws-indent-line #[nil "\302=\203 \203\303\304 \305 \"\207\306 \203\307 \207\310 \207\311 j\207" [this-command mark-active indent-for-tab-command sws-indent-region region-beginning region-end sws-at-bot-p sws-do-indent-line sws-point-to-bot sws-previous-indentation] 3 (#$ . 1183) nil]) #@34 If point is at beginning of line (defalias 'sws-at-bol-p #[nil "`\300 U\207" [point-at-bol] 2 (#$ . 1514) nil]) #@34 If point is at beginning of text (defalias 'sws-at-bot-p #[nil "`\300 \301 \\U\207" [current-indentation point-at-bol] 3 (#$ . 1632)]) #@20 Prints line number (defalias 'sws-print-line-number #[nil "\300`!\207" [sws-print-num] 2 (#$ . 1773)]) #@20 Prints line number (defalias 'sws-print-num #[(arg) "\301\302!!\207" [arg message number-to-string] 3 (#$ . 1882)]) #@64 Force indentation to level including those below current level (defalias 'sws-indent-to #[(num) "\212\301 \210\302 \210j)\207" [num beginning-of-line delete-horizontal-space] 1 (#$ . 2005)]) #@62 Moves left is dir is null, otherwise right. prog is '+ or '- (defalias 'sws-move-region #[(begin end prog) "\212\306\211\307 \"b\210\310 \311 \f\f\"!\210\310 \fZ\312y\210\nS\313  W\205B\311\310 \\!\210\312y\210 T\211 \202).\207" [begin end num-lines-indented indent-diff first-indent prog nil count-lines-region current-indentation sws-indent-to 1 0 sws-tab-width i --dotimes-limit--] 6 (#$ . 2203)]) #@29 Indents the selected region (defalias 'sws-indent-region #[(begin end) "\302 \303#\207" [begin end sws-move-region +] 4 (#$ . 2630) nil]) #@25 De-indents current line (defalias 'sws-dendent-line #[nil "\203\f\303\304 \305 \306#\207\307 \203\310\311!\210\312 \210\313 j\207\314 \315 \210\312 \210 \nZj)\207" [mark-active ci sws-tab-width sws-move-region region-beginning region-end - sws-at-bol-p message "at mother fucking bol" delete-horizontal-space sws-max-indent current-indentation beginning-of-line] 4 (#$ . 2775) nil]) (defvar sws-mode-map (make-sparse-keymap)) (byte-code "\301\302\303#\210\301\304\303#\207" [sws-mode-map define-key [S-tab] sws-dendent-line [backtab]] 4) (defvar sws-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sws-mode-hook variable-documentation put "Hook run after entering sws mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sws-mode-map definition-name sws-mode] 4) (defvar sws-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\317#\207" [sws-mode-abbrev-table sws-mode-map variable-documentation put purecopy "Keymap for `sws-mode'." boundp sws-mode-syntax-table definition-name sws-mode (lambda (def-tmp-var) (defvar sws-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `sws-mode'." (lambda (def-tmp-var) (defvar sws-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `sws-mode'." derived-mode-parent] 5) #@168 Major mode for editing significant whitespace files This mode runs the hook `sws-mode-hook', as the final or penultimate step during initialization. \{sws-mode-map} (defalias 'sws-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \310 \210\315\306\316!\210\317\306\320!\210\321\322\313 !\210\311)\323\324!\207" [delay-mode-hooks major-mode mode-name sws-mode-map sws-mode-syntax-table sws-mode-abbrev-table make-local-variable t kill-all-local-variables sws-mode "sws" use-local-map set-syntax-table 2 indent-line-function sws-indent-line indent-region-function sws-indent-region nil run-mode-hooks sws-mode-hook local-abbrev-table sws-tab-width indent-tabs-mode] 2 (#$ . 4429) nil]) (provide 'sws-mode)