;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require dash treemacs-core-utils treemacs-scope treemacs-customization] 2) (defvar treemacs--fringe-indicator-overlay nil nil) (make-variable-buffer-local 'treemacs--fringe-indicator-overlay) #@74 The `before-string' property value used by the fringe indicator overlay. (defconst treemacs--fringe-overlay-before-string (byte-code "\301\302\303\304\305BB#\207" [treemacs--fringe-indicator-bitmap propertize " " display left-fringe (treemacs-fringe-indicator-face)] 6) (#$ . 346)) #@53 Move the fringe indicator to the position of point. (defalias 'treemacs--move-fringe-indicator-to-point #[0 "\205\301 \302\211T#\262\207" [treemacs--fringe-indicator-overlay point-at-bol move-overlay] 5 (#$ . 635)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs--move-fringe-indicator-to-point compiler-macro treemacs--move-fringe-indicator-to-point--inliner] 4) #@21 (fn INLINE--FORM) (defalias 'treemacs--move-fringe-indicator-to-point--inliner #[257 "\3002\301\302\303\304\305\302\306\307\306DFEE0\207" [inline--just-use when treemacs--fringe-indicator-overlay -let [pabol (point-at-bol)] move-overlay pabol 1+] 10 (#$ . 1026)]) #@53 Enabled the fringe indicator in the current buffer. (defalias 'treemacs--enable-fringe-indicator #[0 "?\205&\302\300!\210\303\304\211p#\305\306 #\210\211\262\211\205&\307 \310\211T#\262\207" [treemacs--fringe-indicator-overlay treemacs--fringe-overlay-before-string make-local-variable make-overlay 1 overlay-put before-string point-at-bol move-overlay] 6 (#$ . 1300)]) #@53 Enabled the fringe indicator in the current buffer. (defalias 'treemacs--disable-fringe-indicator #[0 "\205 \301!\210\302\211\207" [treemacs--fringe-indicator-overlay delete-overlay nil] 2 (#$ . 1685)]) #@162 Hook to ensure the fringe indicator not shown when treemacs is not selected. WINDOW is the treemacs window that has just been focused or unfocused. (fn WINDOW) (defalias 'treemacs--show-fringe-indicator-only-when-focused #[257 "\303=\203 \205+\304 \305\n#\207\306!r\307\310\"\216\311@\312\"\210 \205(\304 \305\313#*\262\207" [treemacs--in-this-buffer treemacs--fringe-indicator-overlay treemacs--fringe-overlay-before-string t overlay-put before-string internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord nil] 6 (#$ . 1899)]) #@45 Tear down `treemacs-fringe-indicator-mode'. (defalias 'treemacs--tear-down-fringe-indicator-mode #[0 "\300 \211\205$\211@\301\302\"\203r\211q\210\303 \210\304\305\306\307#\210)A\266\202\202\207" [buffer-list buffer-local-value treemacs--in-this-buffer treemacs--disable-fringe-indicator remove-hook window-selection-change-functions treemacs--show-fringe-indicator-only-when-focused :local] 6 (#$ . 2528)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable treemacs-fringe-indicator-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Treemacs-Fringe-Indicator mode is enabled.\nSee the `treemacs-fringe-indicator-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `treemacs-fringe-indicator-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group treemacs] 12) #@1189 Toggle `treemacs-fringe-indicator-mode'. When enabled, a visual indicator in the fringe will be displayed to highlight the selected line in addition to `hl-line-mode'. Useful if `hl-line-mode' doesn't stand out enough with your colour theme. This is a minor mode. If called interactively, toggle the `Treemacs-Fringe-Indicator mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'treemacs-fringe-indicator-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. Can be called with one of two arguments: - `always' will always show the fringe indicator. - `only-when-focused' will only show the fringe indicator when the treemacs window is focused (only possible with Emacs 27+). For backward compatibility just enabling this mode without an explicit argument has the same effect as using `always'. (fn &optional ARG) (defalias 'treemacs-fringe-indicator-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203W\206A\310\262\313>\203P\314!\210\202Z\315\314!\210\202Z\316 \210\317\320\305\301!\203f\321\202g\322\"\210\323\324!\203\217\325\301!\210\302 \203\211\302 \232\203\217\326\327\305\301!\203\213\330\202\214\331\332#\210\210\333 \210\305\301!\207" [global-minor-modes treemacs-fringe-indicator-mode current-message set-default toggle default-value 1 nil t boundp delq (always only-when-focused t) treemacs--setup-fringe-indicator-mode call-interactively treemacs--tear-down-fringe-indicator-mode run-hooks treemacs-fringe-indicator-mode-hook treemacs-fringe-indicator-mode-on-hook treemacs-fringe-indicator-mode-off-hook called-interactively-p any customize-mark-as-set message "Treemacs-Fringe-Indicator mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 3542) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar treemacs-fringe-indicator-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [treemacs-fringe-indicator-mode-map treemacs-fringe-indicator-mode-hook variable-documentation put "Hook run after entering or leaving `treemacs-fringe-indicator-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 treemacs-fringe-indicator-mode boundp] 6) #@180 Setup `treemacs-fringe-indicator-mode'. When ARG is `only-when-focused' a hook will be set up to only display the fringe indicator when the treemacs window is selected. (fn ARG) (defalias 'treemacs--setup-fringe-indicator-mode #[257 "\211\301 \211\205-\211@\302\303\"\203&r\211q\210\304 \210\305>\203%\306\307\310\311\312$\210)A\266\202\202\207" [treemacs-fringe-indicator-mode buffer-list buffer-local-value treemacs--in-this-buffer treemacs--enable-fringe-indicator (t only-when-focused) add-hook window-selection-change-functions treemacs--show-fringe-indicator-only-when-focused nil :local] 8 (#$ . 6381) (byte-code "\300\301\302\303\304\305\306\307\"\227\"\"!C\207" [intern s-join "-" s-split " " completing-read "Fringe Indicator" ("Always" "Only When Focused")] 8)]) (byte-code "\300\301!\204 \302 \210\303\304!\207" [featurep treemacs treemacs-fringe-indicator-mode provide treemacs-fringe-indicator] 2)