projects / config.git / blame
| Commit | Line | Data |
|---|---|---|
| 53e6db90 DC |
1 | ;ELC\1c\0\0\0 |
| 2 | ;;; Compiled | |
| 3 | ;;; in Emacs version 28.2 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | (byte-code "\300\301\302\303\304\305\306\307&\a\210\310\311\312\313\306\301%\210\314\315\316\317\320\321\306\301&\a\210\314\322\302\323\320\324\306\301&\a\207" [custom-declare-group highlight-indentation nil "Highlight Indentation" :prefix "highlight-indentation-" :group basic-faces custom-declare-face highlight-indentation-face ((t :inherit fringe)) "Basic face for highlighting indentation guides." custom-declare-variable highlight-indentation-offset (if (and (boundp 'standard-indent) standard-indent) standard-indent 2) "Default indentation offset, used if no other can be found from\n major mode. This value is always used by\n `highlight-indentation-mode' if set buffer local. Set buffer\n local with `highlight-indentation-set-offset'" :type integer highlight-indentation-blank-lines "Show indentation guides on blank lines. Experimental.\n\nKnown issues:\n- Doesn't work well with completion popups that use overlays\n- Overlays on blank lines sometimes aren't cleaned up or updated perfectly\n Can be refreshed by scrolling\n- Not yet implemented for highlight-indentation-current-column-mode\n- May not work perfectly near the bottom of the screen\n- Point appears after indent guides on blank lines" boolean] 8) | |
| 9 | (defvar highlight-indentation-overlay-priority 1) | |
| 10 | (defvar highlight-indentation-current-column-overlay-priority 2) | |
| 11 | (defconst highlight-indentation-hooks '((after-change-functions (lambda (start end length) (highlight-indentation-redraw-region start end 'highlight-indentation-overlay 'highlight-indentation-put-overlays-region)) t t) (window-scroll-functions (lambda (win start) (highlight-indentation-redraw-window win 'highlight-indentation-overlay 'highlight-indentation-put-overlays-region start)) nil t))) | |
| 12 | #@57 Return a list of windows displaying the current buffer.\1f | |
| 13 | (defalias 'highlight-indentation-get-buffer-windows #[(&optional all-frames) "\301p\302\b#\207" [all-frames get-buffer-window-list no-minibuf] 4 (#$ . 1823)]) | |
| 14 | #@44 Delete all overlays in the current buffer.\1f | |
| 15 | (defalias 'highlight-indentation-delete-overlays-buffer #[(overlay) "\214~\210\301ed\b#)\207" [overlay highlight-indentation-delete-overlays-region] 4 (#$ . 2043)]) | |
| 16 | #@40 Delete overlays between START and END.\1f | |
| 17 | (defalias 'highlight-indentation-delete-overlays-region #[(start end overlay) "\302\303\304\b \"\"\207" [start end mapc #[(o) "\302\b \"\205\n\0\303\b!\207" [o overlay overlay-get delete-overlay] 3] overlays-in] 5 (#$ . 2256)]) | |
| 18 | #@33 Redraw win starting from START.\1f | |
| 19 | (defalias 'highlight-indentation-redraw-window #[(win overlay func &optional start) "\304\b\206\b\0\305 !\306 \307\"\n\v$\207" [start win overlay func highlight-indentation-redraw-region window-start window-end t] 5 (#$ . 2525)]) | |
| 20 | #@48 Erase and read overlays between START and END.\1f | |
| 21 | (defalias 'highlight-indentation-redraw-region #[(start end overlay func) "\306 \18\307\216\212\310\212 b\210\311 \210`)\212\nb\210\312\313!)\1a\19\e\314 \n\f#\210\r \n\f#.\ 6\207" [save-match-data-internal start end inhibit-point-motion-hooks overlay func match-data #[nil "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3] t beginning-of-line line-beginning-position 2 highlight-indentation-delete-overlays-region] 4 (#$ . 2789)]) | |
| 22 | #@52 Redraw the all windows showing the current buffer.\1f | |
| 23 | (defalias 'highlight-indentation-redraw-all-windows #[(overlay func &optional all-frames) "\305\b!\306\19\211\1a\205\e\0\n@\11\307 \v\f#\210\nA\211\12\204\n\0\306*\207" [all-frames win --dolist-tail-- overlay func highlight-indentation-get-buffer-windows nil highlight-indentation-redraw-window] 5 (#$ . 3287)]) | |
| 24 | #@39 Place overlays between START and END.\1f | |
| 25 | (defalias 'highlight-indentation-put-overlays-region #[(start end overlay) "\bb\210\306\307\211`\310\19\1a\e\1c\1d \205:\ 1\n\ e\1eY\205:\ 1\212\311 \210\307i\1e\1f\1e \306f\211\16 \203p\0\ e \250\203p\0\ e \312U\204p\0\ e \313U\203p\0\ e\1f\ e!\246\307U\203g\0`\1e\"\314\ e\"\211T\"\15)\315\r\ e#\310#\210\315\r\316\ e$#\210\315\r\317\320#\210\306u\210i\16\1f\202\"\0\ e%\203\e\ 1\ e \250\203\e\ 1\ e \312U\204\211\0\ e \321U\203\e\ 1\ e\1f\fW\203\e\ 1\ e\1f\306\310\306\1e&\1e'\1e(\211\1e)\fW\203\357\0\307\f\ e)Z\ e!\246\211\16&Y\203\275\0\ e!S\16&\310\16'\202\300\0\306\16'\ e'\203\315\0\322\323\317\320#\202\316\0\324\325\ e&\313\"P\ e(B\16(\ e)\ e&\\\ e'\203\347\0\326\202\350\0\307\\\211\16)\202\236\0\327\330\331\ e(!\"\16(`\1e\"\314\ e\"\211\"\15)\315\r\ e#\310#\210\315\r\316\ e$#\210\315\r\332\ e(#\210,\f\16\1f\ e!\333\334\ e\1f!\ e!\245!_\14+\n\ e\1eU\2032\ 1\306\11\335y\210`\12\202\r\0-\207" [end loop pos last-char last-indent o nil 0 t beginning-of-line 10 32 make-overlay overlay-put priority face highlight-indentation-face 13 propertize " " "" make-string 1 apply concat reverse after-string ceiling float -1 start cur-column c highlight-indentation-offset p overlay highlight-indentation-overlay-priority highlight-indentation-blank-lines num-spaces show s column] 6 (#$ . 3643)]) | |
| 26 | #@43 Get indentation offset of current buffer.\1f | |
| 27 | (defalias 'highlight-indentation-guess-offset #[nil "\b\306=\203\ e\0\307\301!\203\ e\0 \207\b\306=\203\1c\0\307\302!\203\1c\0\n\207\b\306=\203*\0\307\303!\203*\0\v\207\b\310=\2038\0\307\304!\2038\0\f\207\b\311=\203F\0\307\305!\203F\0\r\207\b\311=\203U\0\307\312!\203U\0\ e\n\207\b\313=\204a\0\b\314=\203j\0\307\315!\203j\0\ e\r\207\b\316=\203y\0\307\317!\203y\0\ e\ f\207\b\320=\203\210\0\307\321!\203\210\0\ e\11\207\b\322=\203\227\0\307\323!\203\227\0\ e\13\207\b\324=\203\246\0\307\325!\203\246\0\ e\15\207\326\327!\203\275\0\327\b!\330=\203\275\0\307\331!\203\275\0\ e\19\207\b\332=\203\314\0\307\333!\203\314\0\ e\e\207\b\332=\203\333\0\307\334!\203\333\0\ e\1c\207\335\336!\203\352\0\307\336!\203\352\0\ e\1e\207\b\337=\203\371\0\307\340!\203\371\0\ e \207\b\341=\203\b\ 1\307\342!\203\b\ 1\ e\"\207\343\344!\207" [major-mode python-indent py-indent-offset python-indent-offset ruby-indent-level scala-indent:step python-mode boundp ruby-mode scala-mode scala-mode-indent:step scss-mode css-mode css-indent-offset nxml-mode nxml-child-indent coffee-mode coffee-tab-width js-mode js-indent-level js2-mode js2-basic-offset fboundp derived-mode-class sws-mode sws-tab-width web-mode web-mode-markup-indent-offset web-mode-html-offset local-variable-p c-basic-offset yaml-mode yaml-indent-offset elixir-mode elixir-smie-indent-basic default-value highlight-indentation-offset] 2 (#$ . 4808)]) | |
| 28 | #@121 Non-nil if Highlight-Indentation mode is enabled. | |
| 29 | Use the command `highlight-indentation-mode' to change this variable.\1f | |
| 30 | (defvar highlight-indentation-mode nil (#$ . 6146)) | |
| 31 | (make-variable-buffer-local 'highlight-indentation-mode) | |
| 32 | #@629 Highlight indentation minor mode highlights indentation based on spaces | |
| 33 | ||
| 34 | This is a minor mode. If called interactively, toggle the | |
| 35 | `Highlight-Indentation mode' mode. If the prefix argument is | |
| 36 | positive, enable the mode, and if it is zero or negative, disable | |
| 37 | the mode. | |
| 38 | ||
| 39 | If called from Lisp, toggle the mode if ARG is `toggle'. Enable | |
| 40 | the mode if ARG is nil, omitted, or is a positive number. | |
| 41 | Disable the mode if ARG is a negative number. | |
| 42 | ||
| 43 | To check whether the minor mode is enabled in the current buffer, | |
| 44 | evaluate `highlight-indentation-mode'. | |
| 45 | ||
| 46 | The mode's hook is called both when the mode is enabled and when | |
| 47 | it is disabled.\1f | |
| 48 | (defalias 'highlight-indentation-mode #[(&optional arg) "\306 \18 \307=\203\ e\0\n?\202\1e\0 \247\203\1d\0 \310W\203\1d\0\311\202\1e\0\312\12\313\303!\2032\0\314\302\v\"\13\n\2032\0\302\vB\13\n\204\\\0\315\316!\210\f\311\1d\211\1e%\203[\0\ e%@\15\317\r@\rA@\320\r8#\210\ e%A\211\16%\204C\0*\n\203\217\0\321\322!\204n\0\323\322!\210\324 \16\12\f\311\1d\211\1e%\203\211\0\ e%@\15\325\326\r\"\210\ e%A\211\16%\204w\0*\327\316\330\"\210\331\332\n\203\231\0\333\202\232\0\334\"\210\335\336!\203\301\0\306 \203\256\0\b\306 \232\203\301\0\337\1e&\340\341\n\203\273\0\342\202\274\0\343\ e&#\210))\344 \210\n\207" [#1=#:last-message arg highlight-indentation-mode local-minor-modes highlight-indentation-hooks hook current-message toggle 1 nil t boundp delq highlight-indentation-delete-overlays-buffer highlight-indentation-overlay remove-hook 3 local-variable-p highlight-indentation-offset make-local-variable highlight-indentation-guess-offset apply add-hook highlight-indentation-redraw-all-windows highlight-indentation-put-overlays-region run-hooks highlight-indentation-mode-hook highlight-indentation-mode-on-hook highlight-indentation-mode-off-hook called-interactively-p any " in current buffer" message "Highlight-Indentation mode %sabled%s" "en" "dis" force-mode-line-update --dolist-tail-- local] 6 (#$ . 6382) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) | |
| 49 | (defvar highlight-indentation-mode-hook nil) | |
| 50 | (byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\0\b\310\211%\207" [highlight-indentation-mode-map highlight-indentation-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-indentation-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode highlight-indentation-mode " ||" boundp] 6) | |
| 51 | #@134 Set indentation offset locally in buffer, will prevent | |
| 52 | highlight-indentation from trying to guess indentation offset | |
| 53 | from major mode\1f | |
| 54 | (defalias 'highlight-indentation-set-offset #[(offset) "\303\301!\210\b\11\n\205\f\0\302 \207" [offset highlight-indentation-offset highlight-indentation-mode make-local-variable] 2 (#$ . 8898) (byte-code "\b\203\ e\0\b:\204\ e\0\301\b!C\207\302\303!C\207" [current-prefix-arg prefix-numeric-value read-number "Indentation offset: "] 2)]) | |
| 55 | (custom-declare-face 'highlight-indentation-current-column-face '((t (:background "black"))) "Basic face for highlighting indentation guides." :group 'highlight-indentation) | |
| 56 | (defconst highlight-indentation-current-column-hooks '((post-command-hook (lambda nil (highlight-indentation-redraw-all-windows 'highlight-indentation-current-column-overlay 'highlight-indentation-current-column-put-overlays-region)) nil t))) | |
| 57 | #@39 Place overlays between START and END.\1f | |
| 58 | (defalias 'highlight-indentation-current-column-put-overlays-region #[(start end overlay) "\306\307\212\310 \210i)\b\19\1a\e\1c\bb\210 \rW\205`\0\311 \210\306f\250\203W\0\306f\312U\204W\0\306f\313U\203W\0i\nU\203Q\0`\211\11\13\314 \211T\"\14\315\f\ e\12\316#\210\315\f\317\ e\13#\210\315\f\320\321#\210\306u\210\202\19\0\306y\210`\211\11\202\11\0,\207" [start pos indent last-indent o end nil 0 back-to-indentation beginning-of-line 10 32 make-overlay overlay-put t priority face highlight-indentation-current-column-face overlay highlight-indentation-current-column-overlay-priority] 5 (#$ . 9780)]) | |
| 59 | #@151 Non-nil if Highlight-Indentation-Current-Column mode is enabled. | |
| 60 | Use the command `highlight-indentation-current-column-mode' to change | |
| 61 | this variable.\1f | |
| 62 | (defvar highlight-indentation-current-column-mode nil (#$ . 10389)) | |
| 63 | (make-variable-buffer-local 'highlight-indentation-current-column-mode) | |
| 64 | #@697 Highlight Indentation minor mode displays a vertical bar | |
| 65 | corresponding to the indentation of the current line | |
| 66 | ||
| 67 | This is a minor mode. If called interactively, toggle the | |
| 68 | `Highlight-Indentation-Current-Column mode' mode. If the prefix | |
| 69 | argument is positive, enable the mode, and if it is zero or | |
| 70 | negative, disable the mode. | |
| 71 | ||
| 72 | If called from Lisp, toggle the mode if ARG is `toggle'. Enable | |
| 73 | the mode if ARG is nil, omitted, or is a positive number. | |
| 74 | Disable the mode if ARG is a negative number. | |
| 75 | ||
| 76 | To check whether the minor mode is enabled in the current buffer, | |
| 77 | evaluate `highlight-indentation-current-column-mode'. | |
| 78 | ||
| 79 | The mode's hook is called both when the mode is enabled and when | |
| 80 | it is disabled.\1f | |
| 81 | (defalias 'highlight-indentation-current-column-mode #[(&optional arg) "\306 \18 \307=\203\ e\0\n?\202\1e\0 \247\203\1d\0 \310W\203\1d\0\311\202\1e\0\312\12\313\303!\2032\0\314\302\v\"\13\n\2032\0\302\vB\13\n\204\\\0\315\316!\210\f\311\1d\211\1e%\203[\0\ e%@\15\317\r@\rA@\320\r8#\210\ e%A\211\16%\204C\0*\n\203\217\0\321\322!\204n\0\323\322!\210\324 \16\12\f\311\1d\211\1e%\203\211\0\ e%@\15\325\326\r\"\210\ e%A\211\16%\204w\0*\327\316\330\"\210\331\332\n\203\231\0\333\202\232\0\334\"\210\335\336!\203\301\0\306 \203\256\0\b\306 \232\203\301\0\337\1e&\340\341\n\203\273\0\342\202\274\0\343\ e&#\210))\344 \210\n\207" [#1=#:last-message arg highlight-indentation-current-column-mode local-minor-modes highlight-indentation-current-column-hooks hook current-message toggle 1 nil t boundp delq highlight-indentation-delete-overlays-buffer highlight-indentation-current-column-overlay remove-hook 3 local-variable-p highlight-indentation-offset make-local-variable highlight-indentation-guess-offset apply add-hook highlight-indentation-redraw-all-windows highlight-indentation-current-column-put-overlays-region run-hooks highlight-indentation-current-column-mode-hook highlight-indentation-current-column-mode-on-hook highlight-indentation-current-column-mode-off-hook called-interactively-p any " in current buffer" message "Highlight-Indentation-Current-Column mode %sabled%s" "en" "dis" force-mode-line-update --dolist-tail-- local] 6 (#$ . 10686) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) | |
| 82 | (defvar highlight-indentation-current-column-mode-hook nil) | |
| 83 | (byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\0\b\310\211%\210\315\316!\207" [highlight-indentation-current-column-mode-map highlight-indentation-current-column-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-indentation-current-column-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode highlight-indentation-current-column-mode " |" boundp provide highlight-indentation] 6) |