;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require hl-line dash s treemacs-customization treemacs-rendering treemacs-dom treemacs-async treemacs-core-utils] 2) #@223 Signals to `treemacs-follow-mode' if a follow action may be run. Must be set to nil when no following should be triggered, e.g. when the treemacs buffer is being rebuilt or during treemacs' own window selection functions. (defvar treemacs--ready-to-follow nil (#$ . 324)) #@43 Idle timer for `treemacs--follow' to run. (defvar treemacs--follow-timer nil (#$ . 602)) #@228 Move point to the current file in the treemacs buffer. Expand directories if needed. Do nothing if current file does not exist in the file system or is not below current treemacs root or if the treemacs buffer is not visible. (defalias 'treemacs--follow #[0 "\306 \2051\306\307 p\310!\206^\n\311=\205^\312 \313!\203;\211G\314V\2037\211GSH\315=\2037\211\316\317O\202\\\211\202\\\306\320!\211G\314V\203X\211GSH\315=\203X\211\316\317O\202Y\211\262)\262\205.\211\205.\321\f\322!\"?\205.\323!\205. \204\n\211\206\200\310 \211\203 \211\306\324 \325!6>\204\230\326\327\330D\"\210\211\331H\262\316\306\211\211\203\211A\262\242\262\262\211\262\203\325!7>\204\313\326\327\332D\"\210\331H\230\206\350\321\211GSH\315=\203\343\202\346\333P\"\266\204\203\364\306\262\203\262\262T\262\202\241\266\211\262\262\210 \211\205,\334!r\335\336\"\216\337@\340\"\210\341\342 \343 \344\306$\211\205.\345\346\"\262\211\203:\347!\202M\325!7>\204J\326\327\332D\"\210\331H\262\211\230\266\202?\205'\350\"\211\205\210\n\351=\203x\352 \210\353`\354\"\242\355=\203x\314u\210\356 \210\357 \211\203\206\360`\"\210\210\211\262\205'8\203\324 \325!6>\204\244\326\327\330D\"\210\211\331H\262\211\203\211@\361\325!7>\203\317\325!7>\204\311\326\327\332D\"\210\331H\202\3209\306#\353\362\"\262\363=\203\211=\204\361\325!7>\203\325!7>\204\377\326\327\332D\"\210\331H\2029\306#\211\203\211b\210\364!\210\210A\266\202\202\251\210:\205'\365:!\262*\262\262\266\203)\207" [treemacs--follow-timer treemacs--ready-to-follow major-mode file-name-handler-alist treemacs--buffer-name-prefix treemacs--project-of-buffer nil treemacs-get-local-window buffer-file-name dired-mode dired-current-directory file-remote-p 1 47 0 -1 expand-file-name s-starts-with\? buffer-name file-exists-p treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 treemacs-project "/" internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord text-property-not-all point-at-bol point-at-eol button copy-marker t treemacs--nearest-path treemacs-find-file-node treemacs-mode beginning-of-line get-text-property display image hl-line-highlight get-buffer-window set-window-point gethash :state root-node-open treemacs--collapse-root-node treemacs--maybe-recenter cl-struct-treemacs-workspace-tags cl-struct-treemacs-project-tags treemacs-project-follow-cleanup treemacs--project-positions treemacs-recenter-after-file-follow] 18 (#$ . 698)]) #@39 Debounced call to `treemacs--follow'. (defalias 'treemacs--follow-after-buffer-list-update #[0 "\205 ?\205\303\n\304\305#\211\207" [treemacs--ready-to-follow treemacs--follow-timer treemacs-file-follow-delay run-with-idle-timer nil treemacs--follow] 4 (#$ . 3339)]) #@56 Setup all the hooks needed for `treemacs-follow-mode'. (defalias 'treemacs--setup-follow-mode #[0 "\300\301\302\"\210\303 \207" [add-hook buffer-list-update-hook treemacs--follow-after-buffer-list-update treemacs--follow] 3 (#$ . 3617)]) #@58 Remove the hooks added by `treemacs--setup-follow-mode'. (defalias 'treemacs--tear-down-follow-mode #[0 "\300\301\302\"\207" [remove-hook buffer-list-update-hook treemacs--follow-after-buffer-list-update] 3 (#$ . 3861)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable treemacs-follow-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Treemacs-Follow mode is enabled.\nSee the `treemacs-follow-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-follow-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group treemacs] 12) #@847 Toggle `treemacs-follow-mode'. When enabled treemacs will keep track of and focus the currently selected buffer's file. This only applies if the file is within the treemacs root directory. This functionality can also be manually invoked with `treemacs-find-file'. This is a minor mode. If called interactively, toggle the `Treemacs-Follow 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-follow-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'treemacs-follow-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 \203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes treemacs-follow-mode current-message set-default toggle default-value 1 nil t boundp delq treemacs--setup-follow-mode treemacs--tear-down-follow-mode run-hooks treemacs-follow-mode-hook treemacs-follow-mode-on-hook treemacs-follow-mode-off-hook called-interactively-p any customize-mark-as-set message "Treemacs-Follow mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 4641) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar treemacs-follow-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%\210\314\315!\2040\312 \210\316\312!\207" [treemacs-follow-mode-map treemacs-follow-mode-hook variable-documentation put "Hook run after entering or leaving `treemacs-follow-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-follow-mode boundp featurep treemacs provide] 6)