;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\303\313\314& \207" [require dired pcase lsp-mode custom-declare-group lsp-dired nil "LSP support for dired" :prefix "lsp-dired-" :group :tag "LSP Dired"] 10) (defvar lsp-dired--ranger-adjust nil) (eval-after-load 'ranger #[0 "\301\211\207" [lsp-dired--ranger-adjust t] 2]) #@38 Flags whether icons have been added. (defvar lsp-dired-displayed nil (#$ . 441)) (make-variable-buffer-local 'lsp-dired-displayed) #@47 List of subdirs icons were already added for. (defvar lsp-dired--covered-subdirs nil (#$ . 578)) (make-variable-buffer-local 'lsp-dired--covered-subdirs) #@47 Display the icons of files in a dired buffer. (defalias 'lsp-dired--display #[0 "\302 \2050?\2050 \2050\303\300!\210\304 \211\205.\211@\211\242\243\305\"\266A\266\202\202\262\207" [lsp-dired-displayed dired-subdir-alist display-graphic-p make-local-variable t lsp-dired--insert-for-subdir] 9 (#$ . 738)]) #@60 Display icons for subdir PATH at given POS. (fn PATH POS) (defalias 'lsp-dired--insert-for-subdir #[514 "p\300\301\302\303\304$#\207" [run-with-idle-timer 0.0 nil make-closure #[0 "\300 \235\205\n\306\302!??\205vr\302q\210\300 \235\204\300 B\307\212\301b\210 \203*\310\202+\311y\210\3122um?\205t\313\307!\203i\314\307\315\"\316 \210\317\320\321 \315#\210`\322!\211\203d\323\324 \"\325\326\315#\210\325\327#\266\266\202n\330\312\307\"\210\310y\210\20210+\207" [V0 V1 V2 lsp-dired--covered-subdirs buffer-read-only lsp-dired--ranger-adjust buffer-live-p nil 1 2 --cl-block-:file-- dired-move-to-filename dired-get-filename t point-at-bol search-forward-regexp "^[[:space:]]*" line-end-position lsp-dired--face-for-path make-overlay point-at-eol overlay-put evaporate face throw] 8]] 11 (#$ . 1065)]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\207" [custom-declare-face lsp-dired-path-face ((t :inherit font-lock-string-face)) "Face used for breadcrumb paths on headerline." :group lsp-dired lsp-dired-path-error-face ((t :underline (:style wave :color "Red1"))) "Face used for breadcrumb paths on headerline when there is an error under that path" lsp-dired-path-warning-face ((t :underline (:style wave :color "Yellow"))) "Face used for breadcrumb paths on headerline when there is an warning under that path" lsp-dired-path-info-face ((t :underline (:style wave :color "Green"))) "Face used for breadcrumb paths on headerline when there is an info under that path" lsp-dired-path-hint-face ((t :underline (:style wave :color "Green"))) "Face used for breadcrumb paths on headerline when there is an hint under that path"] 6) #@39 Calculate the face for DIR. (fn DIR) (defalias 'lsp-dired--face-for-path #[257 "\304\305!!\211\2055\306\211\"\203\307\2023\211 \"\203 \310\2023\211\n\"\203+\311\2023\211 \"\2053\312\262\207" [lsp/diagnostic-severity-error lsp/diagnostic-severity-warning lsp/diagnostic-severity-information lsp/diagnostic-severity-hint lsp-diagnostics-stats-for directory-file-name #[514 "H\300U?\207" [0] 4 "\n\n(fn DIAGS SEVERITY)"] lsp-dired-path-error-face lsp-dired-path-warning-face lsp-dired-path-info-face lsp-dired-path-hint-face] 6 (#$ . 2835)]) #@119 Advice to dired & dired+ insert-subdir commands. Will add icons for the subdir in the `car' of ARGS. (fn &rest ARGS) (defalias 'lsp-dired--insert-subdir-advice #[128 "\211@\301\"A\211\205\302\"\207" [dired-subdir-alist assoc lsp-dired--insert-for-subdir] 6 (#$ . 3400)]) #@121 Advice to dired kill-subdir commands. Will remove the killed subdir from `lsp-dired--covered-subdirs'. (fn &rest ARGS) (defalias 'lsp-dired--kill-subdir-advice #[128 "\301\302 \"\211\207" [lsp-dired--covered-subdirs delete dired-current-directory] 4 (#$ . 3685)]) #@44 Reset metadata on revert. (fn &rest ARGS) (defalias 'lsp-dired--reset #[128 "\302\300!\210\303\302\301!\210\303\211\207" [lsp-dired--covered-subdirs lsp-dired-displayed make-local-variable nil] 3 (#$ . 3958)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\315& \207" [custom-declare-variable lsp-dired-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Lsp-Dired mode is enabled.\nSee the `lsp-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 `lsp-dired-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :require lsp-dired :group] 14) #@628 Display `lsp-mode' icons for each file in a dired buffer. This is a minor mode. If called interactively, toggle the `Lsp-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 'lsp-dired-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'lsp-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 \203z\313\314\315\"\210\316\317\320\321#\210\316\322\323\324#\210\316\325\323\324#\210\316\326\320\327#\210\330 \211\203v\211@r\211q\210\331\332!\203n\315 \210)A\266\202\202[\210\202\261\333\317\321\"\210\333\322\324\"\210\333\325\324\"\210\333\326\327\"\210\334\314\315\"\210\330 \211\203\260\211@r\211q\210\331\332!\203\250\326 \210)A\266\202\202\225\210\335\336\305\301!\203\275\337\202\276\340\"\210\341\342!\203\346\343\301!\210\302 \203\326\211\302 \232\203\346\344\345\305\301!\203\342\346\202\343\347\350#\210\210\351 \210\305\301!\207" [global-minor-modes lsp-dired-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook dired-after-readin-hook lsp-dired--display advice-add dired-kill-subdir :before lsp-dired--kill-subdir-advice dired-insert-subdir :after lsp-dired--insert-subdir-advice diredp-insert-subdirs dired-revert lsp-dired--reset buffer-list derived-mode-p dired-mode advice-remove remove-hook run-hooks lsp-dired-mode-hook lsp-dired-mode-on-hook lsp-dired-mode-off-hook called-interactively-p any customize-mark-as-set message "Lsp-Dired mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 4724) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-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%\207" [lsp-dired-mode-map lsp-dired-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-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 lsp-dired-mode boundp] 6) (defconst lsp-dired-plist-value-when-compiled nil) (provide 'lsp-dired)