;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!\207" [require treemacs hl-line dired cl-lib pcase] 2) #@38 Flags whether icons have been added. (defvar treemacs-icons-dired-displayed nil (#$ . 215)) (make-variable-buffer-local 'treemacs-icons-dired-displayed) #@47 List of subdirs icons were already added for. (defvar treemacs-icons-dired--covered-subdirs nil (#$ . 374)) (make-variable-buffer-local 'treemacs-icons-dired--covered-subdirs) #@47 Display the icons of files in a dired buffer. (defalias 'treemacs-icons-dired--display #[0 "\304 \2058?\2058 \2058\305\300!\210\306\305\303!\210\n\307H \211\2056\211@\211\242\243\310\"\266A\266\202\202\262\207" [treemacs-icons-dired-displayed dired-subdir-alist treemacs--current-theme treemacs-icons display-graphic-p make-local-variable t 3 treemacs-icons-dired--display-icons-for-subdir] 9 (#$ . 556)]) #@60 Display icons for subdir PATH at given POS. (fn PATH POS) (defalias 'treemacs-icons-dired--display-icons-for-subdir #[514 "\235?\205u\235\203\210\202B\306\212\211b\210\307y\210\3102tm?\205s\311\306!\203h\312\306\313\"\314!\203<\n\202a\315\316!!\227\317 \306#\206_\317\320\f\"\203[\321\224T\306O\202\\ #\262\211c\266\202m\322\310\306\"\210\323y\210\202#0*\207" [treemacs-icons-dired--covered-subdirs buffer-read-only treemacs-icon-dir-closed treemacs-icons treemacs-file-extension-regex treemacs-icon-fallback nil 2 --cl-block-__body__-- dired-move-to-filename dired-get-filename t file-directory-p file-name-nondirectory directory-file-name gethash string-match 0 throw 1] 8 (#$ . 985)]) #@119 Advice to dired & dired+ insert-subdir commands. Will add icons for the subdir in the `car' of ARGS. (fn &rest ARGS) (defalias 'treemacs-icons-dired--insert-subdir-advice #[128 "\211@\301\"A\211\205\302\"\207" [dired-subdir-alist assoc treemacs-icons-dired--display-icons-for-subdir] 6 (#$ . 1714)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [advice-add dired-insert-subdir :after treemacs-icons-dired--insert-subdir-advice eval-after-load dired+ #[0 "\300\301!\205 \302\301\303\304#\207" [fboundp diredp-insert-subdirs advice-add :after treemacs-icons-dired--insert-subdir-advice] 4]] 4) #@132 Advice to dired kill-subdir commands. Will remove the killed subdir from `treemacs-icons-dired--covered-subdirs'. (fn &rest ARGS) (defalias 'treemacs-icons-dired--kill-subdir-advice #[128 "\301\302 \"\211\207" [treemacs-icons-dired--covered-subdirs delete dired-current-directory] 4 (#$ . 2329)]) (advice-add 'dired-kill-subdir :before 'treemacs-icons-dired--kill-subdir-advice) #@44 Reset metadata on revert. (fn &rest ARGS) (defalias 'treemacs-icons-dired--reset #[128 "\302\300!\210\303\302\301!\210\303\211\207" [treemacs-icons-dired--covered-subdirs treemacs-icons-dired-displayed make-local-variable nil] 3 (#$ . 2717)]) #@144 Highlight current icon, unhighlight `treemacs--last-highlight'. This will make sure the icons' background colors will align with hl-line mode. (defalias 'treemacs-icons-dired--update-icon-selection #[0 "\205\210 \306=\205\210\3071f \310=\203$\311 \210\312`\313\"\242\314=\203$\315u\210\n\316\317 \320\321\322 $\312\320\"\321\203JdW\203J\312\323\"\324\211T\313$\266\211\205adW\205a\324\211T\313$\210\325!\211)\266\2030\207\f:\204n C\321!\204\202\326\327\330\331\332\333#\334\335\"#\210\336\337\340\"\262\207" [hl-line-mode major-mode treemacs--last-highlight buffer-read-only treemacs--saved-eldoc-display treemacs-eldoc-display dired-mode (error) treemacs-mode beginning-of-line get-text-property display image 1 next-single-char-property-change point-at-bol img-selected nil point-at-eol img-unselected put-text-property copy-marker message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Error on highlight, this shouldn't happen: %s" add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--no-messages] 9 (#$ . 2970)]) #@60 Locally add `treemacs-icons-dired--update-icon-selection'. (defalias 'treemacs-icons-dired--enable-highlight-correction #[0 "\300\301\302\303\304$\207" [add-hook post-command-hook treemacs-icons-dired--update-icon-selection nil :local] 5 (#$ . 4062)]) #@63 Locally remove `treemacs-icons-dired--update-icon-selection'. (defalias 'treemacs-icons-dired--disable-highlight-correction #[0 "\300\301\302\303#\207" [remove-hook post-command-hook treemacs-icons-dired--update-icon-selection :local] 4 (#$ . 4320)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable treemacs-icons-dired-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Treemacs-Icons-Dired mode is enabled.\nSee the `treemacs-icons-dired-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-icons-dired-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :require treemacs-icons-dired] 12) #@648 Display treemacs icons for each file in a dired buffer. This is a minor mode. If called interactively, toggle the `Treemacs-Icons-Dired 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-icons-dired-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'treemacs-icons-dired-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 \203~\313 \210\314\315\316\"\210\314\317\320\"\210\314\317\321\"\210\322\323\324\320#\210\322\323\324\321#\210\325 \211\203z\211@r\211q\210\326\327!\203r\321 \210\316 \210)A\266\202\202\\\210\202\270\330\315\316\"\210\330\317\320\"\210\330\317\321\"\210\331\323\320\"\210\331\323\321\"\210\325 \211\203\267\211@r\211q\210\326\327!\203\257\332 \210\333 \210)A\266\202\202\231\210\334\335\305\301!\203\304\336\202\305\337\"\210\340\341!\203\355\342\301!\210\302 \203\335\211\302 \232\203\355\343\344\305\301!\203\351\345\202\352\346\347#\210\210\350 \210\305\301!\207" [global-minor-modes treemacs-icons-dired-mode current-message set-default toggle default-value 1 nil t boundp delq treemacs--setup-icon-background-colors add-hook dired-after-readin-hook treemacs-icons-dired--display dired-mode-hook treemacs--select-icon-set treemacs-icons-dired--enable-highlight-correction advice-add ranger-setup :before buffer-list derived-mode-p dired-mode remove-hook advice-remove treemacs-icons-dired--disable-highlight-correction dired-revert run-hooks treemacs-icons-dired-mode-hook treemacs-icons-dired-mode-on-hook treemacs-icons-dired-mode-off-hook called-interactively-p any customize-mark-as-set message "Treemacs-Icons-Dired mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 5164) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar treemacs-icons-dired-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\316\317#\210\320\321!\207" [treemacs-icons-dired-mode-map treemacs-icons-dired-mode-hook variable-documentation put "Hook run after entering or leaving `treemacs-icons-dired-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-icons-dired-mode boundp advice-add dired-revert :before treemacs-icons-dired--reset provide treemacs-icons-dired] 6)