;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!\207" [require treemacs s f treemacs-extensions treemacs-icons lsp-treemacs-themes lsp-mode] 2) (defconst lsp-treemacs-deps-buffer-name "*Java Dependency List*") (defconst lsp-treemacs-symbols-buffer-name "*LSP Symbols List*") (defconst lsp-treemacs-errors-buffer-name "*LSP Error List*") (custom-declare-group 'lsp-treemacs nil "Language Server Protocol client." :group 'tools :tag "Language Server") #@104 The params which will be used by `display-buffer-in-side-window' in `lsp-treemacs-java-deps-list'. (defvar lsp-treemacs-deps-position-params (byte-code "\302B\303\304 BE\207" [treemacs-position treemacs-width side (slot . 1) window-width] 4) (#$ . 589)) #@95 The params which will be used by `display-buffer-in-side-window' in `lsp-treemacs-symbols'. (defvar lsp-treemacs-symbols-position-params (byte-code "\302B\303\304 BE\207" [treemacs-position treemacs-width side (slot . 2) window-width] 4) (#$ . 854)) #@101 The params which will be used by `display-buffer-in-side-window' in `lsp-treemacs-errors-list'. (defvar lsp-treemacs-errors-position-params '((side . bottom)) (#$ . 1114)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\303\304\305%\210\300\310\311\303\304\305%\210\300\312\313\303\304\305%\210\300\314\315\303\304\305%\210\300\316\317\303\304\305%\210\300\320\321\303\304\305%\210\322\323\324\325\326DD\327\330\331%\210\322\332\324\325\333DD\327\330\331%\210\322\334\324\325\335DD\336\330\337%\210\322\340\324\325\341DD\342\330\343\304\344&\207" [custom-declare-face lsp-treemacs-project-root-error ((t :inherit font-lock-keyword-face)) "Face used for highlighting symbols being read." :group lsp-faces lsp-treemacs-project-root-info ((t :inherit font-lock-keyword-face)) lsp-treemacs-project-root-warn ((t :inherit font-lock-keyword-face)) lsp-treemacs-file-error ((t :inherit error)) lsp-treemacs-file-info ((t :inherit success)) lsp-treemacs-file-hint ((t :inherit success)) lsp-treemacs-file-warn ((t :inherit warning)) custom-declare-variable lsp-treemacs-face-map funcall function #[0 "\300\207" [((1 . lsp-treemacs-project-root-error) (2 . lsp-treemacs-project-root-warn) (3 . lsp-treemacs-project-root-info))] 1] "Alist diagnostics to face." :type alist lsp-treemacs-file-face-map #[0 "\300\207" [((1 . lsp-treemacs-file-error) (2 . lsp-treemacs-file-warn) (3 . lsp-treemacs-file-info) (4 . lsp-treemacs-file-hint))] 1] lsp-treemacs-error-list-severity #[0 "\300\207" [3] 1] "Severity level for `lsp-treemacs-error-list-mode'. 1 (highest) to 3 (lowest)" number lsp-treemacs-error-list-current-project-only #[0 "\300\207" [nil] 1] "List the error list of the current project only if available.\nFallback to list all workspaces if no project root is found." boolean lsp-treemacs] 8) #@13 (fn FILE) (defalias 'lsp-treemacs--open-file-in-mru #[257 "\300\301\302 \303\304#!\210\305!\207" [select-window get-mru-window selected-frame nil :not-selected find-file] 6 (#$ . 2921)]) #@13 (fn KIND) (defalias 'lsp-treemacs-symbol-kind->icon #[257 "\211\300\267\202:\301\207\302\207\302\207\302\207\303\207\304\207\305\207\306\207\304\207\307\207\310\207\304\207\311\207\312\207\313\207\314\207\315\207\315\207\302\207\316\207\315\207\317\207\320\207\321\207\322\207\323\207\324\207" [#s(hash-table size 26 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 6 2 8 3 10 4 12 5 14 6 16 7 18 8 20 9 22 10 24 11 26 12 28 13 30 14 32 15 34 16 36 17 38 18 40 19 42 20 44 21 46 22 48 23 50 24 52 25 54 26 56)) document namespace class method property field enumerator interface localvariable constant string numeric boolean-data indexer enumitem structure event operator template misc] 3 (#$ . 3117)]) #@60 Get the treemacs ICON using current theme. (fn ICON-NAME) (defalias 'lsp-treemacs-get-icon #[257 "\302\303\302\211\211\2038\211A\262\242\262\262\211\262\2038\304H \230\203+\302\262\2038\262\262T\262\202\266\211\262\211\305H\306\302#\207" [treemacs--themes lsp-treemacs-theme nil 0 1 3 gethash] 9 (#$ . 3847)]) #@33 Get icon for `kind'. (fn KIND) (defalias 'lsp-treemacs-symbol-icon #[257 "\302\303\302\211\211\2038\211A\262\242\262\262\211\262\2038\304H \230\203+\302\262\2038\262\262T\262\202\266\211\262\211\305H\306\307!\302#\207" [treemacs--themes lsp-treemacs-theme nil 0 1 3 gethash lsp-treemacs-symbol-kind->icon] 9 (#$ . 4192)]) #@56 Get the symbol for the the kind. (fn SYMBOL EXPANDED) (defalias 'lsp-treemacs--symbol-icon #[514 "\300\301\"\300\302\"\303!\203\304\202\203\305\202\306\307!P\207" [gethash "kind" "children" seq-empty-p " " "▾ " "▸ " lsp-treemacs-symbol-icon] 7 (#$ . 4549)]) (defvar treemacs-icon-lsp-symbol-open nil) (defvar treemacs-icon-lsp-symbol-closed nil) (defvar treemacs-lsp-symbol-open-state 'treemacs-lsp-symbol-open-state) (defvar treemacs-lsp-symbol-closed-state 'treemacs-lsp-symbol-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\210\306\307\"\210\306 \307\"\207" [treemacs-lsp-symbol-open-state treemacs-lsp-symbol-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states treemacs-define-RET-action lsp-treemacs-goto-symbol] 3) #@63 Expand treemacs nodes of type `lsp-symbol'. (fn &optional _) (defalias 'treemacs-expand-lsp-symbol #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-lsp-symbol-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-symbol] 12 (#$ . 5390) nil]) #@70 Execute expansion of treemacs nodes of type `lsp-symbol'. (fn NODE) (defalias 'treemacs--do-expand-lsp-symbol #[257 "\306\307\310\311\"!\312\"\310\313\"T\310\314\"\315\312#\262\212`\312\211\316\317T\320\"\206)e\321\320\"\2062d\322\323$\210\324 \210\325\310\311\"\326\"\212\211G\327\330 \326\"\317T\320\"\206Re\262Zb\210c\210\331!\266)\210\321\320\"\206kdb\210\332\333\334\nGY\204\206 @\f=\203\206 A =\204\212\335!\210\nHP@\312\203?\n\211\203>\211@\306\310\314\"\336!C\"\337\340\312\211\211\211\211&\341\342H#\210\f\203\317\f\211\343\343HBI\266\344U?\205\331\325\312\"\345\211\336!\346\347#\320\350\351\352\353\326\3228\354\313\314\355\336!\311&\n\344U\2059\203\356\202\334F\266\202\344\312\211\2035\211A\262\242\262\262T\262B\262\202\266A\266\202\202\230\210\211\237\266\204\"c\210\357`\"\262\310\314\"\315\312#\211\203\226\211\211\360\nI\266\211\361H\211\203~\211@\315\312#\211\360\fI\266A\266\202\202e\210\211\362H\211\203\221\211\211\363\363HBI\266\266\202\255\337\340\312\211\211 \312\211&\262\341\342H#\266\364\310\314\"!\210)\262):\203\341\365\330 \366 \320\312$\211\205\316\367\326\"\262\327!\310\354\"\232\203\337\342y\210\266\207" [treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation treemacs-indentation-string append lsp:document-symbol-children\? get-text-property :symbol nil :depth :path gethash put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-symbol-open-state beginning-of-line lsp-treemacs--symbol-icon t next-button point-at-bol delete-char apply concat "\n" treemacs--build-indentation-cache lsp:document-symbol-name record treemacs-dom-node puthash 1 3 0 propertize face default (t) category default-button :custom :parent :key "\n\n" count-lines 5 7 2 4 treemacs--reentry text-property-not-all point-at-eol copy-marker treemacs-lsp-symbol-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 38 (#$ . 6560)]) #@65 Collapse treemacs nodes of type `lsp-symbol'. (fn &optional _) (defalias 'treemacs-collapse-lsp-symbol #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-lsp-symbol-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-symbol] 12 (#$ . 8698) nil]) #@58 Collapse treemacs nodes of type `lsp-symbol'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-symbol #[257 "\212\302\303\304\305\"\302\"\212\211G\306\307 \310\"\311T\312\"\206e\262Zb\210c\210\313!\266)\210\314\311T\312\"\2065e\315\312\"\206=d\316\317$\210\306\320 !\211\203\\\304\321\"T\322\310\"\304\321\"\262U\204c\323 \266\202\277\315\312\"\206kd\205\235\304\321\"\306\315\312\"\206|d\310\"\211\203\233\304\321\"W\203\233\306\315\312\"\206\224d\310\"\262\202~\262\211\203\271\324\311T\312\"\206\253e!\315\312\"\206\264d\262\202\272d|\266\304\325\"\326 \302#\211\327H\330H\211\203\337\211\211\331\332\331H\"I\266\210\211\203\363\333\334\"\210\211\327\302I\266\202 \330H\211\203\211\211\331\332\331H\"I\266\266*\302\207" [buffer-read-only treemacs-dom nil lsp-treemacs--symbol-icon get-text-property :symbol next-button point-at-bol t previous-single-property-change button delete-char put-text-property next-single-property-change :state treemacs-lsp-symbol-closed-state point-at-eol :depth copy-marker delete-trailing-whitespace previous-button :path gethash 3 2 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"]] 12 (#$ . 9874)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-symbol-open-state treemacs-collapse-lsp-symbol treemacs-lsp-symbol-closed-state treemacs-expand-lsp-symbol] 3) (defvar lsp-treemacs--symbols nil nil) (make-variable-buffer-local 'lsp-treemacs--symbols) (defvar lsp-treemacs--symbols-tick nil nil) (make-variable-buffer-local 'lsp-treemacs--symbols-tick) (defvar lsp-treemacs--empty nil nil) (make-variable-buffer-local 'lsp-treemacs--empty) (defvar lsp-treemacs--symbols-state-string nil nil) (make-variable-buffer-local 'lsp-treemacs--symbols-state-string) (defvar lsp-treemacs--symbols-state-locals nil nil) (make-variable-buffer-local 'lsp-treemacs--symbols-state-locals) (defvar lsp-treemacs--symbols-current-buffer nil) (defvar lsp-treemacs--symbols-last-buffer nil) (defvar lsp-treemacs--symbols-timer nil) #@19 (fn LEFT RIGHT) (defalias 'lsp-treemacs-sort-by-position #[514 "\300\301\"\300\301\"\205\211\205\302\"\207" [plist-get :position lsp--position-compare] 9 (#$ . 12125)]) #@19 (fn LEFT RIGHT) (defalias 'lsp-treemacs-sort-by-kind #[514 "\300\301\"\300\301\"\205\211\205V\207" [plist-get :kind] 8 (#$ . 12313)]) #@19 (fn LEFT RIGHT) (defalias 'lsp-treemacs-sort-by-name #[514 "\300\301\"\300\301\"\302\227\227\"\207" [plist-get :label string>] 7 (#$ . 12466)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\313\314\306\315&\210\300\316\302\303\317DD\320\313\314\306\321&\207" [custom-declare-variable lsp-treemacs-symbols-sort-functions funcall function #[0 "\300\207" [(lsp-treemacs-sort-by-position)] 1] "Sort functions." :type (repeat (choice (const :tag "Name" lsp-treemacs-sort-by-name) (const :tag "Kind" lsp-treemacs-sort-by-kind) (const :tag "Position" lsp-treemacs-sort-by-position))) lsp-treemacs-detailed-outline #[0 "\300\207" [t] 1] "Whether `lsp-treemacs-symbols' should include signatures.\nFor this to work, the language server must support\nDocumentSymbols." :group lsp-treemacs boolean lsp-treemacs-after-jump-hook #[0 "\300C\207" [#[0 "\300\301!\207" [run-hooks xref-after-jump-hook] 2]] 1] "List of functions to call after jumping to a symbol.\nWhen pressing RET on a symbol in the `lsp-treemacs-symbols' view,\nthis hook will be run after having jumped to the target." (list function)] 8) #@29 (fn NAME KEYS &rest BODY) (defalias 'lsp-treemacs-define-action '(macro . #[642 "\211@\211;\203 A\262\300\301;\203\202\302\303\"\304\305\306\307\310\311\312\313B\314B\" BB\315BBB\257\207" [defun (&rest args) format "Code action %s." (interactive) (ignore args) if-let (node (treemacs-node-at-point)) -let apply vector &plist ((button-get node :item)) ((treemacs-pulse-on-failure "No node at point"))] 17 (#$ . 13605)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\207" [function-put lsp-treemacs-define-action doc-string-elt 3 lisp-indent-function 2 put edebug-form-spec (&define name sexp lambda-doc def-body)] 6) #@51 Goto the symbol node at `point'. (fn &rest ARGS) (defalias 'lsp-treemacs-symbols-goto-symbol #[128 "\305\306 \307 \310\311$\211\205\312\313\"\262\211\203*\314\315\316\"\317\"\320!\210\321!b\210\322\323!\207\324C\211\203S :\2048\nC\311 \204N\325\326\327\330\331\332#\333\334\333\"!#\210\335\336\337\"\210\f\205Z\340\341!\207" [lsp-treemacs--symbols-last-buffer treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t plist-get button-get :item :location pop-to-buffer lsp--position-to-point run-hooks lsp-treemacs-after-jump-hook "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 14264) nil]) #@40 Goto POSITION in URL. (fn &rest ARGS) (defalias 'lsp-treemacs-go-to #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\2031\313\314\"\315\316\"\315\317\"\320\321!!\210\322!b\210\323\324!\207\325C\211\203Z:\204? C\310\n\204U\326\327\330\331\332\333#\334\335\334\"!#\210\336\337\340\"\210 \205a\341\342!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :uri :position lsp-treemacs--open-file-in-mru lsp--uri-to-path lsp--position-to-point run-hooks xref-after-jump-hook "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 15178) nil]) #@73 Convert ITEMS and PARENT-KEY to a treemacs tree. (fn ITEMS PARENT-KEY) (defalias 'lsp-treemacs--symbols->tree #[514 "\300\301\211\205\n\302!\262\211\205\303!\262\2039\304\305\306\"\307\310\"\"\211A\262\242@\311\305\312#\"\266\203\202=\311\313\"\"\207" [-sort #[514 "\301\302\303#\"\207" [lsp-treemacs-symbols-sort-functions -first make-closure #[257 "\211\300\301\"\207" [V0 V1] 4 "\n\n(fn FN)"]] 7 "\n\n(fn LEFT RIGHT)"] lsp-seq-first lsp-symbol-information\? -separate make-closure #[257 "\301\302\"\211\300\230\207" [V0 gethash "containerName"] 4 "\n\n(fn INPUT0)"] append nil seq-map #[257 "\302\303\"\302\304\"\302\305\"\302\306\"\302\307\302\310\"\"\300\230\205L\311\312\313\314!\315\316\317\320\"\301\"\205:\321\322\301\"D\323 \324 \325BBBB\"BBBBBB\207" [V0 V1 gethash "name" "containerName" "kind" "location" "start" "range" :label :key :icon lsp-treemacs-symbol-kind->icon append -first make-closure #[257 "\301\302\"\300\230\207" [V0 gethash "containerName"] 4 "\n\n(fn INPUT0)"] :children lsp-treemacs--symbols->tree :kind :location (:ret-action lsp-treemacs-symbols-goto-symbol)] 19 "\n\n(fn INPUT0)"] #[257 "\211\301\302\"\301\303\"\301\304\301\305\"\"\301\306\"\307\310\"\311\312\313!\314 \315\n\316\317\f!?\205:\320\321 \"D\322\"BBBBBBBBBB\207" [lsp-treemacs-detailed-outline gethash "name" "kind" "start" "selectionRange" "children" :label lsp-render-symbol :key :icon lsp-treemacs-symbol-kind->icon :kind :location append seq-empty-p :children lsp-treemacs--symbols->tree (:ret-action lsp-treemacs-symbols-goto-symbol)] 21 "\n\n(fn INPUT0)"]] 12 (#$ . 16080)]) #@28 After diagnostics handler. (defalias 'lsp-treemacs--update-symbols #[0 "\303\301!\210?\205\304\305\306\307#\310\311\312\"\313\205\314GV\n$\207" [lsp-treemacs--symbols header-line-format lsp-treemacs-symbols-buffer-name make-local-variable propertize "No symbol information." face shadow lsp-treemacs-render lsp-treemacs--symbols->tree nil " LSP Symbols " 30] 5 (#$ . 17730)]) (defalias 'lsp-treemacs--update #[0 "p\305\306!=?\205Xrq\210\307 )\203U\310\311!\203B \203* \312 =\203*p\n=\204U\313\311\314\315\316 \"\317\320\321%\210\322\301!\210\312 p\202U\323 \203Urq\210\322\304!\210\324\325 \210)p\211\207" [lsp-treemacs-symbols-buffer-name lsp-treemacs--symbols-tick lsp-treemacs--symbols-current-buffer lsp-treemacs--symbols-last-buffer lsp-treemacs--symbols get-buffer "*scratch*" get-buffer-window lsp--find-workspaces-for "textDocument/documentSymbol" buffer-modified-tick lsp-request-async lsp-make-document-symbol-params :text-document lsp--text-document-identifier #[257 "\212rq\210\302\301!\210\211\303 *\207" [lsp-treemacs-symbols-buffer-name lsp-treemacs--symbols make-local-variable lsp-treemacs--update-symbols] 3 "\n\n(fn DOCUMENT-SYMBOLS)"] :mode alive make-local-variable buffer-file-name nil lsp-treemacs--update-symbols] 6]) #@41 Goto the symbol at point. (fn &rest _) (defalias 'lsp-treemacs-goto-symbol #[128 "\301\302 \303 \304\305$\211\205\306\307\"\262\211\205\310\311\"\262\211\203lrq\210\312\211\205-\313!\262\211\2056\314!\262\206]\211\205C\315!\262\211\205L\316!\262\211\205U\314!\262\206]\317\320!!\321!\210\211b\210\322\323!\262)\207\324\325!\207" [lsp-treemacs--symbols-last-buffer text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :symbol lsp--position-to-point lsp:document-symbol-selection-range lsp:range-start lsp:symbol-information-location lsp:location-range error "Unable to go to location" pop-to-buffer run-hooks xref-after-jump-hook user-error "No symbol under point."] 6 (#$ . 19003) nil]) (eval-after-load 'winum #[0 "\304\301!\205' \235\204 B\n \235\204\n B \235\203\" \207 B\211\207" [lsp-treemacs-symbols-buffer-name winum-ignored-buffers lsp-treemacs-errors-buffer-name lsp-treemacs-deps-buffer-name boundp] 2]) #@23 (fn ROOT-KEY DEPTH) (defalias 'lsp-treemacs--expand #[514 "\306\307#\310H\211\205\256\307\311\312 \313 \314\307$\211\205\315\316\"\262\317 \211\205X\211\205X\320\321\"\322\323\314\"\2067d\316\"\211\203V\320\321\"W\203V\322\323\314\"\206Od\316\"\262\2029\262\262\211\205b\324\325\"\262\211\205\245\320\321\"\326\327T\314\"\206we!\211\203\225\320\321\"W\203\225\326\327T\314\"\206\217e!\262\202x\211\205\243\320\321\"U\205\243\211\266\202\262\211\205\257\324\325\"\262\211\205\272\320\325\"\262\211\205\305\320\330\"\262\211\205\320\320\331\"\262\211\203\336\320\332\"\202\351\211\205\347\333!\262\334 \211\205 \335!r\336\337\"\216\340@\341\"\210\342\343\344 \313 \"]*\262\345  \"\210\346\267\202@\347\307\"\211\203C\n\350=\2034\351 \210\320`\352\"\242\353=\2034\342u\210\354 \210\355 \211\203B\356`\"\210\210\210\202[\306\307#\203\220 \204_\357\f\360\361!!\"\204\220\347\307\"\211\203\214\n\350=\203}\351 \210\320`\352\"\242\353=\203}\342u\210\354 \210\355 \211\203\213\356`\"\210\210\210\202[\362\203\320\211 !\203\320\347 \307\"\211\203\313\n\350=\203\274\351 \210\320`\352\"\242\353=\203\274\342u\210\354 \210\355 \211\203\312\356`\"\210\210\266\202[\203\211!\203\347\307\"\211\203\n\n\350=\203\373\351 \210\320`\352\"\242\353=\203\373\342u\210\354 \210\355 \211\203 \356`\"\210\210\266\202[\211;\2036\363!\211G\342V\2030\211GSH\364=\2030\211\365\366O\2021\211\262\202\203\211@\367=\203JG\370V\205\203\371!\202\203\211@;\203bG\370V\203]\371!\202\203@\202\203\372@! >\203G\370V\203x\371!\202\203@\370H\202\203\373\374\"\262!\204\211\211;\203\262\363!\211G\342V\203\254\211GSH\364=\203\254\211\365\366O\202\255\211\262\202\377\211@\367=\203\306G\370V\205\377\371!\202\377\211@;\203\336G\370V\203\331\371!\202\377@\202\377\372@! >\203\373G\370V\203\364\371!\202\377@\370H\202\377\373\374\"\262\262\202\205\347\307\"\211\2033\n\350=\203$\351 \210\320`\352\"\242\353=\203$\342u\210\354 \210\355 \211\2032\356`\"\210\210\266\202[\375!\210\202[\204Kb\210\202[\3761X\375!0\210\202[\307\266\n\350=\203q\351 \210\320`\352\"\242\353=\203q\342u\210\320`\377\"\203~\323`\377\"b\210\211\205\253`\335!r\336\201A\"\216\340@\341\"\210\365@\201BS!\210)\356\201C \"*\262\262\266\212)\207" [treemacs-dom treemacs--ready-to-follow major-mode treemacs-show-hidden-files treemacs-dotfiles-regex cl-struct-treemacs-project-tags gethash nil 5 text-property-not-all point-at-bol point-at-eol button copy-marker t point-marker get-text-property :depth next-button next-single-property-change button-get :path previous-button previous-single-property-change :state :collapsed :key treemacs--nearest-path treemacs-get-local-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord 1 count-screen-lines window-start lsp-treemacs--expand-recursively #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 278 root-node-open 278 file-node-closed 327 file-node-open 327 dir-node-closed 327 dir-node-open 327 tag-node 824 tag-node-closed 824 tag-node-open 824)) treemacs-find-file-node treemacs-mode beginning-of-line display image hl-line-highlight get-buffer-window set-window-point s-matches\? file-name-nondirectory directory-file-name #[257 "\303\304#\205 \206\305\n\306\307!!\"?\207" [treemacs-dom treemacs-show-hidden-files treemacs-dotfiles-regex gethash nil s-matches\? file-name-nondirectory directory-file-name] 6 "\n\n(fn IT)"] file-name-directory 47 0 -1 :custom 2 butlast type-of error "Path type did not match: %S" treemacs-goto-node (error) invisible scroll-margin #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] recenter selected-window] 20 (#$ . 19999)]) (defalias 'lsp-treemacs--kill-symbols-buffer #[0 "\205\301!\207" [lsp-treemacs--symbols-timer cancel-timer] 2]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable lsp-treemacs-symbols-space-between-root-nodes funcall function #[0 "\300\207" [nil] 1] "Whether there should be empty lines between symbols.\nIf this is set to t, top-level symbols in `lsp-treemacs-symbols'\nwill be rendered an empty line between them." :group lsp-treemacs :type boolean] 8) #@20 Show symbols view. (defalias 'lsp-treemacs-symbols #[0 "p\306!\211\203\307\310 \"!\266\202L\311!\310 \"\307!\210\312\313\"\210\314 \210\315\302!\210\316\315\303!\210\317\315\305!\210\f\204D\320\321\313\322#\323\324\325\317\313$\266r\211q\210\322 )\207" [lsp-treemacs-symbols-buffer-name lsp-treemacs-symbols-position-params treemacs-default-visit-action treemacs--width-is-locked lsp-treemacs-symbols-space-between-root-nodes treemacs-space-between-root-nodes get-buffer select-window display-buffer-in-side-window get-buffer-create set-window-dedicated-p t lsp-treemacs-initialize make-local-variable treemacs-RET-action nil run-with-idle-timer 1 lsp-treemacs--update add-hook kill-buffer-hook lsp-treemacs--kill-symbols-buffer lsp-treemacs--symbols-timer] 9 (#$ . 24437) nil]) #@19 (fn ROOT DEPTH) (defalias 'lsp-treemacs--expand-recursively #[514 "\300!\203\n\211\202\211\301U?\205\212\302\303\304\"\305!\")\207" [booleanp 0 -map make-closure #[257 "\303\304\" >\204\305!b\210\306\303\304\"\n\" \210\307\310\300!\203#\300\202%\300S\"\207" [V0 treemacs--open-node-states treemacs-TAB-actions-config get-text-property :state marker-position alist-get lsp-treemacs--expand-recursively booleanp] 5 "\n\n(fn BTN)"] treemacs-collect-child-nodes] 6 (#$ . 25241)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&java:Node #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:project-uri :root-path :path :kind :name :uri :entry-kind) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:project-uri :root-path :path :kind :name :uri :entry-kind) gethash 1 nil assoc ((:project-uri . :projectUri) (:root-path . :rootPath) (:path . :path) (:kind . :kind) (:name . :name) (:uri . :uri) (:entry-kind . :entryKind))] 7 (#$ . 25741)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&java:Node\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:project-uri :root-path :path :kind :name :uri :entry-kind) error "Unknown key: %s. Available keys: %s" (:project-uri :root-path :path :kind :name :uri :entry-kind) when ht\? gethash symbol-name assoc ((:project-uri . :projectUri) (:root-path . :rootPath) (:path . :path) (:kind . :kind) (:name . :name) (:uri . :uri) (:entry-kind . :entryKind)) 1 nil] 9 (#$ . 26323)]) #@15 (fn OBJECT) (defalias 'lsp-java-node\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("projectUri" "rootPath" "path" "kind" "name" "uri" "entryKind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:projectUri :rootPath :path :kind :name :uri :entryKind)] 6 (#$ . 26844)]) #@95 (fn &rest PLIST &key PROJECT-URI ROOT-PATH PATH KIND NAME URI ENTRY-KIND &allow-other-keys) (defalias 'lsp-make-java-node #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311\312\"\211\262\313\314\315\"\316\317\f\"\"\210\207" [plist-member :project-uri :root-path :path :kind :name :uri :entry-kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:project-uri . :projectUri) (:root-path . :rootPath) (:path . :path) (:kind . :kind) (:name . :name) (:uri . :uri) (:entry-kind . :entryKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 14 (#$ . 27269)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'java:Node--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:projectUri :rootPath :path :kind :name :uri :entryKind) nil lsp-keyword->string alist-get ((:project-uri . :projectUri) (:root-path . :rootPath) (:path . :path) (:kind . :kind) (:name . :name) (:uri . :uri) (:entry-kind . :entryKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:project-uri :root-path :path :kind :name :uri :entry-kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 27986)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop java:Node--pcase-macroexpander edebug-form-spec nil java:Node pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:java-node-project-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "projectUri"] 4 (#$ . 29152)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-project-uri #[514 "\300\301#\210\207" [puthash "projectUri"] 6 (#$ . 29291)]) #@15 (fn OBJECT) (defalias 'lsp:java-node-root-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootPath"] 4 (#$ . 29427)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-root-path #[514 "\300\301#\210\207" [puthash "rootPath"] 6 (#$ . 29562)]) #@15 (fn OBJECT) (defalias 'lsp:java-node-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "path"] 4 (#$ . 29694)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-path #[514 "\300\301#\210\207" [puthash "path"] 6 (#$ . 29820)]) #@15 (fn OBJECT) (defalias 'lsp:java-node-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 29943)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 30069)]) #@15 (fn OBJECT) (defalias 'lsp:java-node-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 30192)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 30318)]) #@15 (fn OBJECT) (defalias 'lsp:java-node-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 30441)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 30565)]) #@15 (fn OBJECT) (defalias 'lsp:java-node-entry-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "entryKind"] 4 (#$ . 30686)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-java-node-entry-kind #[514 "\300\301#\210\207" [puthash "entryKind"] 6 (#$ . 30823)]) #@76 Helper macro for invoking BODY against WORKSPACE context. (fn &rest BODY) (defalias 'lsp-treemacs-deps-with-jdtls '(macro . #[128 "\300\301\302B\303BBB\207" [if-let (lsp--cur-workspace (lsp-find-workspace 'jdtls nil)) progn ((user-error "Java Language Server is not started."))] 5 (#$ . 30957)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put lsp-treemacs-deps-with-jdtls edebug-form-spec (form body) function-put lisp-indent-function 0] 4) #@19 (fn &rest ARGS) (defalias 'lsp-treemacs-deps--goto-element #[128 "\300\301 \302 \303\304$\211\205\305\306\"\262\211\205\307\310\"\262\211\203P\311\312\313\"\211\205,\314!\262\206N\315\312\316\"!\203A\312\316\"\206N\317\314\312\320\"!!\312\316\"P!\207\321\322!\207" [text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :dep lsp-treemacs--open-file-in-mru lsp-get :uri lsp--uri-to-path f-exists\? :path f-parent :projectUri user-error "No element under point."] 8 (#$ . 31425)]) #@53 Get the symbol for the the kind. (fn DEP EXPANDED) (defalias 'lsp-treemacs-deps--icon #[514 "\305\306\"\305\307\"\305\310\"\203\311\202\312\313U\204\"\314U\203J\315\316!!\227\305\317#\206E\305\320 \"\203A\321\224T\317O\202B\n#\262\202\305\317 \321\317\211\211\203\202\211A\262\242\262\262\211\262\203\202\322H\f\230\203u\317\262\203\202\262\262T\262\202P\266\211\262\211\323H\305\324=\203\225\325\202\300\326\267\202\253\327\202\300\330\202\300\331\202\300\332\202\300\333\267\202\271\331\202\300\334\202\300\324=\205\300\325\317#\266\202P\207" [treemacs-icons treemacs-file-extension-regex treemacs-icon-fallback treemacs--themes lsp-treemacs-theme gethash "uri" "kind" "entryKind" "▾ " "▸ " 8 6 file-name-nondirectory directory-file-name nil string-match 0 1 3 2 jar #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (5 155 7 159 4 163 2 167)) package folder packagefolder java-project #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (3 177 5 181)) library] 15 (#$ . 31962)]) #@12 (fn DEP) (defalias 'lsp-treemacs-deps--get-children #[257 "\301\302\303\"\211\203\223\304\305\"\304\306\"\304\307\"\304\310\"\304\311\"\304\312\"\313=\203-\211\202.\314U\2067\315U?\205\216\316\317\320$\321\322\323\324\325\326\"\327\310 #\210\327\307 \313=?\205j \330U\203h\n\202j\f#\210\327\306 \313=?\205~ \206~\f#\210\327\305#\210\211\262!\"\"\266\207\202\226\331\332!)\207" [lsp--cur-workspace lsp-find-workspace jdtls nil gethash "projectUri" "rootPath" "path" "kind" "name" "uri" 2 6 8 -mapcat make-closure #[257 "\303\304\302#\210\301\305U\203\303\306\300#\210\307\310\"\311=\203\312!\207\211C\207" [V0 V1 V2 lsp-put :projectUri 4 :rootPath lsp-get :entryKind 3 lsp-treemacs-deps--get-children] 5 "\n\n(fn INNER-DEP)"] lsp-send-execute-command "java.getPackageData" vector make-hash-table :test equal puthash 5 user-error "Java Language Server is not started."] 19 (#$ . 33088)]) #@12 (fn DEP) (defalias 'lsp-treemacs-deps--java-file\? #[257 "\300\301\"\300\302\"\303=\205\211\304=\206\211\305=\207" [gethash "kind" "entryKind" 6 1 2] 5 (#$ . 34034)]) (defvar treemacs-icon-lsp-treemacs-deps-open nil) (defvar treemacs-icon-lsp-treemacs-deps-closed nil) (defvar treemacs-lsp-treemacs-deps-open-state 'treemacs-lsp-treemacs-deps-open-state) (defvar treemacs-lsp-treemacs-deps-closed-state 'treemacs-lsp-treemacs-deps-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\210\306\307\"\210\306 \307\"\207" [treemacs-lsp-treemacs-deps-open-state treemacs-lsp-treemacs-deps-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states treemacs-define-RET-action lsp-treemacs-deps--goto-element] 3) #@70 Expand treemacs nodes of type `lsp-treemacs-deps'. (fn &optional _) (defalias 'treemacs-expand-lsp-treemacs-deps #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-lsp-treemacs-deps-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-treemacs-deps] 12 (#$ . 34837) nil]) #@77 Execute expansion of treemacs nodes of type `lsp-treemacs-deps'. (fn NODE) (defalias 'treemacs--do-expand-lsp-treemacs-deps #[257 "\306\307\"\211\310\311\"\312!\203/\313\314\315\"\211\203&\316\317\320\321\322\323\"\"\"\202)\324\325!)\266\202\2024\326!\266\202\262\306\327\"T\306\330\"\310 \315#\262\212`\315\211\331\332T\333\"\206Ve\334\333\"\206_d\335\336$\210\337 \210\340\306\307\"\341\"\212\211G\342\343 \341\"\332T\333\"\206e\262Zb\210c\210\344!\266)\210\334\333\"\206\230db\210\345\346\347 GY\204\264\f@ =\203\264\fA@=\204\270\350!\210 HP@\315\203\n\211\203\211@\211\310\351\"\310\311\"\310\352\"\312\306\307\"!\203a\353\306\330\"EC\"\354\355\315\211\211\211\211&\356\357H #\210\203\211\360\360HBI\266 \361U?\205\n\362\315\"\363\211\364\365#\333\366\367\370\371\341\335A\372 \327\330\373E\374&\361U\205[B\203Z\375\202[\347F\266\205\202\334\353\306\330\"EC\"\354\355\315\211\211\211\211&\356\357H #\210\203\223\211\360\360HBI\266 \361U?\205\235\n\340\315\"\363\211\364\365#\333\366\367\370\371\341\335C\372 \327\330\373E\307&\361U\205\331B\203\330\375\202\331\347F\266\205\262\361\315\211\203\375\211A\262\242\262\262T\262B\262\202\341\266A\266\202\202\306\210\211\237\266\204\"c\210\376`\"\262\306\330\"\310 \315#\211\203f\211\211\377\nI\266\211\201EH\211\203H\211@\310 \315#\211\377\fI\266A\266\202\202/\210\211\201FH\211\203a\211\211\201G\201GHBI\266\266\202}\354\355\315\211\211 \315\211&\262\356\357H #\266\201H\306\330\"!\210)\262)D\203\271\201I\343 \201J \333\315$\211\205\246\201K\341\"\262\342!\306\372\"\232\203\267\357y\210\266\207" [lsp--cur-workspace treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation get-text-property :dep gethash "uri" lsp-treemacs-deps--java-file\? lsp-find-workspace jdtls nil lsp-request "textDocument/documentSymbol" lsp-make-document-symbol-params :text-document lsp-make-text-document-item :uri user-error "Java Language Server is not started." lsp-treemacs-deps--get-children :depth :path put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-treemacs-deps-open-state beginning-of-line lsp-treemacs-deps--icon t next-button point-at-bol delete-char apply concat "\n" treemacs--build-indentation-cache "name" "path" append record treemacs-dom-node puthash 1 3 0 lsp-treemacs--symbol-icon propertize face default (t) category default-button :custom :parent :key :symbol "\n\n" count-lines 5 treemacs-indentation-string treemacs-lsp-symbol-closed-state treemacs-space-between-root-nodes treemacs-lsp-treemacs-deps-closed-state treemacs-move-forward-on-expand 7 2 4 treemacs--reentry text-property-not-all point-at-eol copy-marker] 43 (#$ . 36036)]) #@72 Collapse treemacs nodes of type `lsp-treemacs-deps'. (fn &optional _) (defalias 'treemacs-collapse-lsp-treemacs-deps #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-lsp-treemacs-deps-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-treemacs-deps] 12 (#$ . 38982) nil]) #@65 Collapse treemacs nodes of type `lsp-treemacs-deps'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-treemacs-deps #[257 "\212\302\303\304\305\"\302\"\212\211G\306\307 \310\"\311T\312\"\206e\262Zb\210c\210\313!\266)\210\314\311T\312\"\2065e\315\312\"\206=d\316\317$\210\306\320 !\211\203\\\304\321\"T\322\310\"\304\321\"\262U\204c\323 \266\202\277\315\312\"\206kd\205\235\304\321\"\306\315\312\"\206|d\310\"\211\203\233\304\321\"W\203\233\306\315\312\"\206\224d\310\"\262\202~\262\211\203\271\324\311T\312\"\206\253e!\315\312\"\206\264d\262\202\272d|\266\304\325\"\326 \302#\211\327H\330H\211\203\337\211\211\331\332\331H\"I\266\210\211\203\363\333\334\"\210\211\327\302I\266\202 \330H\211\203\211\211\331\332\331H\"I\266\266*\302\207" [buffer-read-only treemacs-dom nil lsp-treemacs-deps--icon get-text-property :dep next-button point-at-bol t previous-single-property-change button delete-char put-text-property next-single-property-change :state treemacs-lsp-treemacs-deps-closed-state point-at-eol :depth copy-marker delete-trailing-whitespace previous-button :path gethash 3 2 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"]] 12 (#$ . 40187)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-treemacs-deps-open-state treemacs-collapse-lsp-treemacs-deps treemacs-lsp-treemacs-deps-closed-state treemacs-expand-lsp-treemacs-deps] 3) (defalias 'lsp-treemacs-deps--root-folders #[0 "\301\302\303\"\211\203\304\305\306 \211\307H\262\"\202\310\311!)\207" [lsp--cur-workspace lsp-find-workspace jdtls nil -mapcat #[257 "\300!\301\302\303\"\304\305\"\"\207" [lsp--path-to-uri mapcar make-closure #[257 "\211\301\302\300#\210\207" [V0 lsp-put :projectUri] 6 "\n\n(fn IT)"] lsp-send-execute-command "java.project.list"] 7 "\n\n(fn ROOT-PATH)"] lsp-session 1 user-error "Java Language Server is not started."] 6]) (defvar treemacs-icon-lsp-treemacs-deps-list-open "") (defvar treemacs-icon-lsp-treemacs-deps-list-closed "") (defvar treemacs-lsp-treemacs-deps-list-open-state 'treemacs-lsp-treemacs-deps-list-open-state) (defvar treemacs-lsp-treemacs-deps-list-closed-state 'treemacs-lsp-treemacs-deps-list-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\207" [treemacs-lsp-treemacs-deps-list-open-state treemacs-lsp-treemacs-deps-list-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states] 3) #@75 Expand treemacs nodes of type `lsp-treemacs-deps-list'. (fn &optional _) (defalias 'treemacs-expand-lsp-treemacs-deps-list #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-lsp-treemacs-deps-list-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-treemacs-deps-list] 12 (#$ . 42884) nil]) #@82 Execute expansion of treemacs nodes of type `lsp-treemacs-deps-list'. (fn NODE) (defalias 'treemacs--do-expand-lsp-treemacs-deps-list #[257 "\306 \307\310\"T\307\311\"\312\313#\262\212`\313\211\314\315T\316\"\206\"e\317\316\"\206+d\320\321$\210\317\316\"\2068db\210\322\323\324\nGY\204S @\f=\203S A =\204W\325!\210\nHP@\313\203\n\211\203\211@\211\312\326\"\312\327\"\312\330\"\331\307\311\"EC\"\332\333\313\211\211\211\211&\334\335H#\210\203\252\211\336\336HBI\266 \337U?\205\264\n\340\313\"\341\211\342\343#\316\344\345\346\347\350\3208\351 \310\311\352E\353&\337U\205\3609\203\357\354\202\360\324F\266\205\262\337\313\211\203\211A\262\242\262\262T\262B\262\202\370\266A\266\202\202e\210\211\237\266\204\"c\210\355`\"\262\307\311\"\312\313#\211\203u\211\211\356\nI\266\211\357H\211\203]\211@\312\313#\211\356\fI\266A\266\202\202D\210\211\360H\211\203p\211\211\361\361HBI\266\266\202\214\332\333\313\211\211 \313\211&\262\334\335H#\266\362\307\311\"!\210)\262):\203\300\363\364 \365 \316\313$\211\205\255\366\350\"\262\367!\307\351\"\232\203\276\335y\210\266\207" [treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation treemacs-indentation-string lsp-treemacs-deps--root-folders get-text-property :depth :path gethash nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-treemacs-deps-list-open-state apply concat "\n" treemacs--build-indentation-cache "name" "uri" "path" append record treemacs-dom-node puthash 1 3 0 lsp-treemacs-deps--icon propertize face default (t) category default-button :custom t :parent :key :dep "\n\n" count-lines 5 7 2 4 treemacs--reentry text-property-not-all point-at-bol point-at-eol copy-marker next-button treemacs-lsp-treemacs-deps-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 42 (#$ . 44103)]) #@77 Collapse treemacs nodes of type `lsp-treemacs-deps-list'. (fn &optional _) (defalias 'treemacs-collapse-lsp-treemacs-deps-list #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-lsp-treemacs-deps-list-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-treemacs-deps-list] 12 (#$ . 46146) nil]) #@70 Collapse treemacs nodes of type `lsp-treemacs-deps-list'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-treemacs-deps-list #[257 "\212\302\303\304T\305\"\206 e\306\305\"\206d\307\310$\210\311\312 !\211\2034\313\314\"T\315\316\"\313\314\"\262U\204;\317 \266\202\227\306\305\"\206Cd\205u\313\314\"\311\306\305\"\206Td\316\"\211\203s\313\314\"W\203s\311\306\305\"\206ld\316\"\262\202V\262\211\203\221\320\304T\305\"\206\203e!\306\305\"\206\214d\262\202\222d|\266\313\321\"\322 \302#\211\323H\324H\211\203\267\211\211\325\326\325H\"I\266\210\211\203\313\327\330\"\210\211\323\302I\266\202\341\324H\211\203\337\211\211\325\326\325H\"I\266\266*\302\207" [buffer-read-only treemacs-dom nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-treemacs-deps-list-closed-state next-button point-at-eol get-text-property :depth copy-marker t delete-trailing-whitespace previous-button :path gethash 3 2 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"]] 12 (#$ . 47371)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-treemacs-deps-list-open-state treemacs-collapse-lsp-treemacs-deps-list treemacs-lsp-treemacs-deps-list-closed-state treemacs-expand-lsp-treemacs-deps-list] 3) (defalias 'treemacs-LSP-TREEMACS-DEPS-LIST-extension #[0 "\305\212\306\307\310\311\312\305%\313 \306\314\311\305\211\211\305\211&\313 \315\316 >\203'\311\317H\202(\311\n#\266\315\320H #\210\321\322\323\324\325\326\327\330\331\330\332\330\333\311\334\332\311D\335\336\337\340\f&c\210\341`\330\"\342!\210\211b\266*\330\207" [buffer-read-only cl-struct-treemacs-project-tags treemacs--project-positions treemacs-dom treemacs-lsp-treemacs-deps-list-closed-state nil record treemacs-project "" LSP-Java-Dependency extension point-marker treemacs-dom-node puthash symbol 2 1 propertize "Hidden Node\n" button (t) category default-button invisible t skip :custom :key :path :depth -1 :project :state copy-marker treemacs--do-expand-lsp-treemacs-deps-list] 25]) #@25 Refresh dependecy list. (defalias 'lsp-treemacs-java-deps-refresh #[0 "\3021\303r q\210\304\305\303\"\210\306\307!*0\207\310\207" [inhibit-read-only lsp-treemacs-deps-buffer-name (error) t treemacs-update-node (:custom LSP-Java-Dependency) lsp--info "Refresh completed" nil] 3 (#$ . 49661) nil]) #@28 Display java dependencies. (defalias 'lsp-treemacs-java-deps-list #[0 "\305!\211\203\306\307!\206\310 \"!\207\311!\310 \"\306!\210\312\313\"\210\314 \210\315\316\"\210\317\313!\210\320\302!\210\321\322 \210\320\303!\210\323\320\304!\210\323\211\207" [lsp-treemacs-deps-buffer-name lsp-treemacs-deps-position-params treemacs-default-visit-action treemacs--width-is-locked window-size-fixed get-buffer select-window get-buffer-window display-buffer-in-side-window get-buffer-create set-window-dedicated-p t treemacs-initialize lsp-treemacs--set-mode-line-format " Java Dependencies " lsp-treemacs-deps-list-mode make-local-variable treemacs-RET-action treemacs-LSP-TREEMACS-DEPS-LIST-extension nil] 6 (#$ . 49966) nil]) #@17 (fn NODE KEY) (defalias 'lsp-treemacs--deps-find-children-for-key #[514 "\300\301\302\"\303!\"\207" [-first make-closure #[257 "\301!b\210\302\303\"\300\232\207" [V0 marker-position get-text-property :key] 4 "\n\n(fn CHILD)"] treemacs-collect-child-nodes] 6 (#$ . 50705)]) #@43 Keymap for `lsp-treemacs-deps-list-mode'. (defvar lsp-treemacs-deps-list-mode-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key "r" lsp-treemacs-java-deps-refresh] 5) (#$ . 50990)) #@123 Non-nil if Lsp-Treemacs-Deps-List mode is enabled. Use the command `lsp-treemacs-deps-list-mode' to change this variable. (defvar lsp-treemacs-deps-list-mode nil (#$ . 51204)) (make-variable-buffer-local 'lsp-treemacs-deps-list-mode) #@22 (fn &optional ARG) (defalias 'lsp-treemacs-deps-list-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [lsp-treemacs-deps-list-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks lsp-treemacs-deps-list-mode-hook lsp-treemacs-deps-list-mode-on-hook lsp-treemacs-deps-list-mode-off-hook called-interactively-p any message "Lsp-Treemacs-Deps-List mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 51444) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-treemacs-deps-list-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\310\211%\207" [lsp-treemacs-deps-list-mode-map lsp-treemacs-deps-list-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-treemacs-deps-list-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-treemacs-deps-list-mode] 6) (defalias 'lsp-treemacs-java-deps-follow #[0 "\303\304\305\"\211\2033\306\307\310 \"\311r q\210\312\313 \314\315\316\317\320\n\305#\321H#!\"\210\313 )!\210\322\305!\262\2026\323\324!)\207" [lsp--cur-workspace lsp-treemacs-deps-buffer-name treemacs-dom lsp-find-workspace jdtls nil lsp-send-execute-command "java.resolvePath" lsp--buffer-uri select-window set-window-point get-buffer-window marker-position -reduce-from #[514 "\302\303\"\302\304\"\302\305\"\306\307\">\204&\212\310!b\210\311\306\307\" \" \210)\312E\"\2066\313\314\315 \"\207" [treemacs--open-node-states treemacs-TAB-actions-config gethash "path" "name" "uri" get-text-property :state marker-position alist-get lsp-treemacs--deps-find-children-for-key user-error "Unable to find %s in the dependency tree." buffer-name] 11 "\n\n(fn INPUT0 INPUT1)"] gethash (:custom LSP-Java-Dependency) 5 recenter user-error "Java Language Server is not started."] 12 nil nil]) #@16 (fn PROJECT) (defalias 'lsp-treemacs--on-folder-remove #[257 "\300\301H!\207" [lsp-workspace-folders-remove 2] 4 (#$ . 53694)]) #@16 (fn PROJECT) (defalias 'lsp-treemacs--on-folder-added #[257 "\300\301H!\207" [lsp-workspace-folders-add 2] 4 (#$ . 53831)]) (defalias 'lsp-treemacs--treemacs->lsp #[0 "\300 \211\301H\262\302\303\302\304\305 \211\306H\262\"\"\307\310\311\"\"\210\307\312\311\"\"\207" [lsp-session 1 -map lsp-canonical-file-name treemacs-project->path treemacs-current-workspace 2 seq-do lsp-workspace-folders-remove -difference lsp-workspace-folders-add] 8]) #@22 (fn ADDED REMOVED) (defalias 'lsp-treemacs--sync-folders #[514 "\302 \211\205/\303\304\"\303\305 \"\306\307\"\306\307\"\211\203\246\211@\211\310\311H\312\310\211\211\203~\211A\262\242\262\262\211\262\203~\311H\230\206e\313\211GSH\314=\203`\202c\315P\"\266\204\203q\310\262\203~\262\262T\262\202.\266\211\262\266\202\204\237\316\317!!\320\"\211\321=\204\235\322\323#\210\266A\266\202\202\210\211\211\205*\211@\211\310\311H\312\310\211\211\203 \211A\262\242\262\262\211\262\203 \311H\230\206\360\313\211GSH\314=\203\353\202\356\315P\"\266\204\203\374\310\262\203 \262\262T\262\202\271\266\211\262\266\202\203#\324!\211\321=\204\"\322\325#\210\210A\266\202\202\250\262*\266\204\207" [treemacs-create-project-functions treemacs-delete-project-functions treemacs-current-workspace remove lsp-treemacs--on-folder-added lsp-treemacs--on-folder-remove seq-map treemacs--canonical-path nil 2 0 s-starts-with\? 47 "/" file-name-nondirectory directory-file-name treemacs-do-add-project-to-workspace success lsp-log "Failed to add path '%s' to treemacs' workspace: %s" treemacs-do-remove-project-from-workspace "Failed to remove path '%s' from treemacs' workspace: %s"] 24 (#$ . 54287)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable lsp-treemacs-sync-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Lsp-Treemacs-Sync mode is enabled.\nSee the `lsp-treemacs-sync-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-treemacs-sync-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group lsp-treemacs] 12) #@672 Global minor mode for synchronizing lsp-mode workspace folders and treemacs projects. This is a minor mode. If called interactively, toggle the `Lsp-Treemacs-Sync 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-treemacs-sync-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'lsp-treemacs-sync-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 \203X\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\323\"\210\313\324\323\"\210\202q\325\314\315\"\210\325\316\317\"\210\325\320\321\"\210\325\322\323\"\210\325\324\323\"\210\326\327\305\301!\203}\330\202~\331\"\210\332\333!\203\246\334\301!\210\302 \203\226\211\302 \232\203\246\335\336\305\301!\203\242\337\202\243\340\341#\210\210\342 \210\305\301!\207" [global-minor-modes lsp-treemacs-sync-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook treemacs-create-project-functions lsp-treemacs--on-folder-added treemacs-delete-project-functions lsp-treemacs--on-folder-remove lsp-workspace-folders-changed-functions lsp-treemacs--sync-folders treemacs-workspace-edit-hook lsp-treemacs--treemacs->lsp treemacs-switch-workspace-hook remove-hook run-hooks lsp-treemacs-sync-mode-hook lsp-treemacs-sync-mode-on-hook lsp-treemacs-sync-mode-off-hook called-interactively-p any customize-mark-as-set message "Lsp-Treemacs-Sync mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 56148) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-treemacs-sync-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-treemacs-sync-mode-map lsp-treemacs-sync-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-treemacs-sync-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-treemacs-sync-mode boundp] 6) #@13 (fn FILE) (defalias 'lsp-treemacs--java-get-class-file #[257 "\300\301\"\3028\303\304\305!!!\207" [s-match "jdt://contents/.*/\\(.*\\)/\\(.*\\).class\\?=.*?/\\(.*?\\)=/" 3 symbol-name read url-unhex-string] 7 (#$ . 58676)]) (defvar lsp-treemacs-tree nil nil) (make-variable-buffer-local 'lsp-treemacs-tree) (defvar lsp-treemacs--right-click-actions nil nil) (make-variable-buffer-local 'lsp-treemacs--right-click-actions) #@16 (fn &rest _) (defalias 'lsp-treemacs-perform-ret-action #[128 "\304\305\306\307 \310 \311\312$\211\205\313\314\"\262\315\"\316\"\211\203 \317!\207\320C\211\203I:\204. C\312\n\204D\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205P\334\335!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure plist-get button-get text-property-not-all point-at-bol point-at-eol button nil copy-marker t :item :ret-action funcall-interactively "No ret action defined." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 59109) nil]) #@69 `with-current-buffer' unless buffer killed. (fn BUFFER &rest BODY) (defalias 'lsp-treemacs-wcb-unless-killed '(macro . #[385 "\300\301\302DD\303BBE\207" [when buffer-live-p get-buffer with-current-buffer] 7 (#$ . 59881)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lsp-treemacs-wcb-unless-killed lisp-indent-function 1 put edebug-form-spec t] 5) (defvar lsp-treemacs-use-cache nil nil) (make-variable-buffer-local 'lsp-treemacs-use-cache) (defvar lsp-treemacs-generic-filter nil nil) (make-variable-buffer-local 'lsp-treemacs-generic-filter) (defvar lsp-treemacs--generic-cache nil nil) (make-variable-buffer-local 'lsp-treemacs--generic-cache) #@13 (fn NODE) (defalias 'lsp-treemacs--node-key #[257 "\300\301\"C\300\302\"\211\262\203\300\301\"B\262\202\207" [get-text-property :key :parent] 6 (#$ . 60560)]) (defvar treemacs-icon-node-open nil) (defvar treemacs-icon-node-closed nil) (defvar treemacs-node-open-state 'treemacs-node-open-state) (defvar treemacs-node-closed-state 'treemacs-node-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\210\306\307\"\210\306 \307\"\207" [treemacs-node-open-state treemacs-node-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states treemacs-define-RET-action lsp-treemacs-perform-ret-action] 3) #@57 Expand treemacs nodes of type `node'. (fn &optional _) (defalias 'treemacs-expand-node #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-node-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-node] 12 (#$ . 61256) nil]) #@64 Execute expansion of treemacs nodes of type `node'. (fn NODE) (defalias 'treemacs--do-expand-node #[257 "\306\307\"\310\311\"\310\312\"\313!\314!\203!\202Z\315\"\203. \203.\315\"A\202Z\203Yp\316\317#\"\266\315\"\211\203J\211A\202T\320\321\322\323\324#\325BBC\262\202Z\n\203f\n!\266\205\202i\211\266\205\306\326\"T\306\327\"\315 \330#\262\212`\330\211\331\332T\333\"\206\211e\334\333\"\206\222d\335\336$\210\337 \210\340\306\307\"\341\"\212\211G\342\343 \341\"\332T\333\"\206\262e\262Zb\210c\210\344!\266)\210\334\333\"\206\313db\210\345\346\347 GY\204\352@@A=\203\352@AB=\204\356\350!\210 HP@\330\203\260\n\211\203\257\211@\310\311\"\310\320\"\310\351\"\310\312\"\352\306\327\"C\"\353\354\330\211\211\211\211&\355\356H #\210\203A\211\357\357HBI\266 \360U?\205K\n\340\330\"\321\333\361\362\363\364\341\335C\365 \326\327\351\311\307\312&\360U\205\204D\203\203\366\202\204\347F\266\206\360\330\211\203\246\211A\262\242\262\262T\262B\262\202\212\266A\266\202\202\374\210\211\237\266\204\"c\210\367`\"\262\306\327\"\315 \330#\211\203\211\211\370\nI\266\211\371H\211\203\357\211@\315 \330#\211\370\fI\266A\266\202\202\326\210\211\372H\211\203\211\211\373\373HBI\266\266\202\353\354\330\211\211 \330\211&\262\355\356H #\266\374\306\327\"!\210)\262)E\203R\375\343 \376 \333\330$\211\205?\377\341\"\262\342!\306\365\"\232\203P\356y\210\266\207" [lsp-treemacs--generic-cache lsp-treemacs-use-cache lsp-treemacs-generic-filter treemacs-dom buffer-read-only treemacs--indentation-string-cache get-text-property :item plist-get :children :children-async lsp-treemacs--node-key functionp gethash make-closure #[257 "\304\305\301!!\205*r\301q\210\306\300\n\"\307B\232?\205)\310\300\307B\n#\210\307\311\312\300B\307\"))\207" [V0 V1 lsp-treemacs--generic-cache lsp-treemacs-use-cache buffer-live-p get-buffer gethash t puthash treemacs-update-node :custom] 5 "\n\n(fn RESULT)"] :label propertize "Loading..." face shadow (:icon-literal " " :key "Loading...") :depth :path nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-node-open-state beginning-of-line lsp-treemacs--generic-icon t next-button point-at-bol delete-char apply concat "\n" treemacs--build-indentation-cache :key append record treemacs-dom-node puthash 1 3 0 (t) category default-button :custom :parent "\n\n" count-lines 5 7 2 4 treemacs--reentry text-property-not-all point-at-eol copy-marker treemacs--indentation-string-cache-key treemacs-indentation treemacs-indentation-string treemacs-node-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 46 (#$ . 62403)]) #@59 Collapse treemacs nodes of type `node'. (fn &optional _) (defalias 'treemacs-collapse-node #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-node-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-node] 12 (#$ . 65198) nil]) #@52 Collapse treemacs nodes of type `node'. (fn NODE) (defalias 'treemacs--do-collapse-node #[257 "\212\302\303\304\305\"\302\"\212\211G\306\307 \310\"\311T\312\"\206e\262Zb\210c\210\313!\266)\210\314\311T\312\"\2065e\315\312\"\206=d\316\317$\210\306\320 !\211\203\\\304\321\"T\322\310\"\304\321\"\262U\204c\323 \266\202\277\315\312\"\206kd\205\235\304\321\"\306\315\312\"\206|d\310\"\211\203\233\304\321\"W\203\233\306\315\312\"\206\224d\310\"\262\202~\262\211\203\271\324\311T\312\"\206\253e!\315\312\"\206\264d\262\202\272d|\266\304\325\"\326 \302#\211\327H\330H\211\203\337\211\211\331\332\331H\"I\266\210\211\203\363\333\334\"\210\211\327\302I\266\202 \330H\211\203\211\211\331\332\331H\"I\266\266*\302\207" [buffer-read-only treemacs-dom nil lsp-treemacs--generic-icon get-text-property :item next-button point-at-bol t previous-single-property-change button delete-char put-text-property next-single-property-change :state treemacs-node-closed-state point-at-eol :depth copy-marker delete-trailing-whitespace previous-button :path gethash 3 2 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"]] 12 (#$ . 66351)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-node-open-state treemacs-collapse-node treemacs-node-closed-state treemacs-expand-node] 3) (defvar treemacs-icon-generic-open "") (defvar treemacs-icon-generic-closed "") (defvar treemacs-generic-open-state 'treemacs-generic-open-state) (defvar treemacs-generic-closed-state 'treemacs-generic-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\207" [treemacs-generic-open-state treemacs-generic-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states] 3) #@60 Expand treemacs nodes of type `generic'. (fn &optional _) (defalias 'treemacs-expand-generic #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-generic-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-generic] 12 (#$ . 68359) nil]) #@67 Execute expansion of treemacs nodes of type `generic'. (fn NODE) (defalias 'treemacs--do-expand-generic #[257 "\306\307\"T\306\310\"\311 \312#\262\212`\312\211\313\314T\315\"\206!e\316\315\"\206*d\317\320$\210\316\315\"\2067db\210\321\322\323 GY\204S\f@ =\203S\fA4=\204W\324!\210 HP@\312\203 \n\211\203\n\211@\325\306\310\"\326\327\"C\"\330\331\312\211\211\211\211&\332\333H #\210\f\203\235\f\211\334\334HBI\266\335U?\205\247\336\312\"\337\326\340\"\315\341\342\343\344\345\3175\346\307\310\327\326\327\"\347&\n\335U\205\3376\203\336\350\202\337\323F\266\202\335\312\211\203\211A\262\242\262\262T\262B\262\202\345\266A\266\202\202e\210\211\237\266\204\"c\210\351`\"\262\306\310\"\311 \312#\211\203b\211\211\352\nI\266\211\353H\211\203J\211@\311 \312#\211\352\fI\266A\266\202\2021\210\211\354H\211\203]\211\211\355\355HBI\266\266\202y\330\331\312\211\211 \312\211&\262\332\333H #\266\356\306\310\"!\210)\262)7\203\255\357\360 \361 \315\312$\211\205\232\362\345\"\262\363!\306\346\"\232\203\253\333y\210\266\207" [lsp-treemacs-tree treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation get-text-property :depth :path gethash nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-generic-open-state apply concat "\n" treemacs--build-indentation-cache append plist-get :key record treemacs-dom-node puthash 1 3 0 lsp-treemacs--generic-icon propertize :label (t) category default-button :custom t :parent :item "\n\n" count-lines 5 7 2 4 treemacs--reentry text-property-not-all point-at-bol point-at-eol copy-marker next-button treemacs-indentation-string treemacs-node-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 38 (#$ . 69518)]) #@62 Collapse treemacs nodes of type `generic'. (fn &optional _) (defalias 'treemacs-collapse-generic #[256 "\3042\241\305\306 \307 \310\311$\211\205\312\313\"\262\211\204P\314\304\315C\211\203E:\204* C\311\n\204@\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205L\331\332!\262\"\210\333\334\"\335=\204\233\314\304\336\320\324\337\333\334\"\"\322\340#D\211\203\220:\204u C\311\n\204\213\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205\227\331\332!\262\"\210\341!\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "There is nothing to do here." message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face get-text-property :state treemacs-generic-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-generic] 12 (#$ . 71438) nil]) #@55 Collapse treemacs nodes of type `generic'. (fn NODE) (defalias 'treemacs--do-collapse-generic #[257 "\212\302\303\304T\305\"\206 e\306\305\"\206d\307\310$\210\311\312 !\211\2034\313\314\"T\315\316\"\313\314\"\262U\204;\317 \266\202\227\306\305\"\206Cd\205u\313\314\"\311\306\305\"\206Td\316\"\211\203s\313\314\"W\203s\311\306\305\"\206ld\316\"\262\202V\262\211\203\221\320\304T\305\"\206\203e!\306\305\"\206\214d\262\202\222d|\266\313\321\"\322 \302#\211\323H\324H\211\203\267\211\211\325\326\325H\"I\266\210\211\203\313\327\330\"\210\211\323\302I\266\202\341\324H\211\203\337\211\211\325\326\325H\"I\266\266*\302\207" [buffer-read-only treemacs-dom nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-generic-closed-state next-button point-at-eol get-text-property :depth copy-marker t delete-trailing-whitespace previous-button :path gethash 3 2 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"]] 12 (#$ . 72603)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-generic-open-state treemacs-collapse-generic treemacs-generic-closed-state treemacs-expand-generic] 3) (defalias 'treemacs-GENERIC-extension #[0 "\305\212\306\307\310\311\312\305%\313 \306\314\311\305\211\211\305\211&\313 \315\316 >\203'\311\317H\202(\311\n#\266\315\320H #\210\321\322\323\324\325\326\327\330\331\330\332\330\333\311\334\332\311D\335\336\337\340\f&c\210\341`\330\"\342!\210\211b\266*\330\207" [buffer-read-only cl-struct-treemacs-project-tags treemacs--project-positions treemacs-dom treemacs-generic-closed-state nil record treemacs-project "" LSP-Generic extension point-marker treemacs-dom-node puthash symbol 2 1 propertize "Hidden Node\n" button (t) category default-button invisible t skip :custom :key :path :depth -1 :project :state copy-marker treemacs--do-expand-generic] 25]) #@58 Get the symbol for the the kind. (fn ITEM EXPANDED\=\?) (defalias 'lsp-treemacs--generic-icon #[514 "\302\303\"\204\302\304\"\203\211\203\305\202\306\202\307\302\310\"\206w\302\311\"\211\203t\312\313\312\211\211\203b\211A\262\242\262\262\211\262\203b\314H \230\203U\312\262\203b\262\262T\262\2020\266\211\262\211\315H\316\312#\266\202\202u\317\262P\207" [treemacs--themes lsp-treemacs-theme plist-get :children :children-async "▾ " "▸ " " " :icon-literal :icon nil 0 1 3 gethash " "] 12 (#$ . 74735)]) #@32 (fn FILE-LOCS LOCATION-LINK) (defalias 'lsp-treemacs--get-xrefs-in-file #[514 "\211\211A\262\242\300\301\302\303\304\305\306#\303\307!\305\306#\303\302\310 G\"\305\311##\312\313!\314\315\316   $\317\315\320\f\"\257\n\207" [:key :label format propertize "%s %s" face default f-filename "%s references" lsp-details-face :icon f-ext :children make-closure #[257 "\3031N\3041C\305\301!\306\203rq\210\211\300\301\302#)\266\202\202@\307\301!\205>\310\311\312\"r\211q\210\313\314\"\216\315\301!\210\300\301\302#*\262\266\20200\2070\316\317\320\301\321!#\210\207\316\317\322\301\321!#\210\207" [V0 V1 V2 (file-error) (error) find-buffer-visiting #[771 "\300\301\302#\"\207" [seq-map make-closure #[257 "\302\300\203\303!\206\304!\202\305!\301\"\207" [V0 V1 lsp-treemacs--make-ref-item lsp:location-link-target-selection-range lsp:location-link-target-range lsp:location-range] 4 "\n\n(fn LOC)"]] 8 "\n\n(fn LOCATION-LINK FILENAME LINKS)"] file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally nil lsp-warn "Failed to process xref entry for filename '%s': %s" error-message-string "Failed to process xref entry, file-error, '%s': %s"] 8 "\n\n(fn ITEM)"] :ret-action #[128 "\301\300!\207" [V0 lsp-treemacs--open-file-in-mru] 3 "\n\n(fn &rest _)" nil]] 18 (#$ . 75296)]) #@90 Return the line pointed to by POS (a Position object) in the current buffer. (fn POINT) (defalias 'lsp-treemacs--extract-line #[257 "\301\212\211b\210\302 \303 {*\207" [inhibit-field-text-motion t line-beginning-position line-end-position] 3 (#$ . 76708)]) #@66 Return a xref-item from a RANGE in FILENAME. (fn INPUT0 INPUT1) (defalias 'lsp-treemacs--make-ref-item #[514 "\300\301\"\300\302\"\300\303\"\300\303\300\304\"\"\305!\306!\211G\307^\310]^\310]\311\312%\210\313\314\315\316\317\315\320T\"\321\322##!\323\324\325\326\327\330\331#\257\n\207" [gethash "start" "line" "character" "end" lsp--position-to-point lsp-treemacs--extract-line add-face-text-property 0 highlight t :label s-trim format "%s %s" propertize "%s line" face lsp-details-face :key :point :icon-literal "" :ret-action make-closure #[128 "\302\300!\210\301b\210\303\304!\207" [V0 V1 lsp-treemacs--open-file-in-mru run-hooks xref-after-jump-hook] 3 "\n\n(fn &rest _)" nil]] 23 (#$ . 76973)]) (defalias 'lsp-treemacs-initialize #[0 "\300\301!?\205\302 \210\303\304!\210\305 \207" [derived-mode-p treemacs-mode treemacs-initialize lsp-treemacs-generic-mode t treemacs-GENERIC-extension] 2]) #@24 (fn &optional CACHE) (defalias 'lsp-treemacs-generic-refresh #[256 "\211\3021\303\304\305\303\")0\202\306\262)\207" [lsp-treemacs-use-cache inhibit-read-only (error) t treemacs-update-node (:custom LSP-Generic) nil] 4 (#$ . 77906)]) #@14 (fn EVENT) (defalias 'lsp-treemacs-generic-right-click #[257 "\300!\301!\211@\262\302!\210b\210\303 \210\304\305\306\307\310\"#\207" [event-start posn-point select-window hl-line-highlight run-with-idle-timer 0.001 nil make-closure #[0 "\302\303 \304 \305\306$\211\205\307\310\"\262\211\203 \311\312\313\"\314\"\202! \262\211\205K\315\306\"\211\205I\316\300\"\211\205G\211\203E\317\320\321\322\"\"!\210\323 \262\262\207" [V0 lsp-treemacs--right-click-actions text-property-not-all point-at-bol point-at-eol button nil copy-marker t plist-get button-get :item :actions easy-menu-create-menu x-popup-menu call-interactively lookup-key apply vector hl-line-highlight] 9]] 10 (#$ . 78154) "e"]) #@40 Keymap for `lsp-treemacs-generic-mode' (defvar lsp-treemacs-generic-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key [mouse-1] treemacs-TAB-action [double-mouse-1] treemacs-RET-action [mouse-3] lsp-treemacs-generic-right-click] 5) (#$ . 78879)) #@119 Non-nil if Lsp-Treemacs-Generic mode is enabled. Use the command `lsp-treemacs-generic-mode' to change this variable. (defvar lsp-treemacs-generic-mode nil (#$ . 79194)) (make-variable-buffer-local 'lsp-treemacs-generic-mode) #@598 Treemacs generic mode. This is a minor mode. If called interactively, toggle the `Lsp-Treemacs-Generic 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 `lsp-treemacs-generic-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'lsp-treemacs-generic-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [lsp-treemacs-generic-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks lsp-treemacs-generic-mode-hook lsp-treemacs-generic-mode-on-hook lsp-treemacs-generic-mode-off-hook called-interactively-p any message "Lsp-Treemacs-Generic mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 79427) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-treemacs-generic-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\310\211%\207" [lsp-treemacs-generic-map lsp-treemacs-generic-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-treemacs-generic-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-treemacs-generic-mode] 6) #@13 (fn REFS) (defalias 'lsp-treemacs--handle-references #[257 "\300\301\302\303\"\"\207" [-map #[257 "\211\211A\262\242\300\301\302\303\304!\305\302\306 G\"\307\310##\311\312!\203+\313!\202,\314\315\316\317 \"\320\316\321\f\"\257\n\207" [:key :label format "%s %s" f-filename propertize "%s references" face lsp-details-face :icon f-file\? f-ext dir-open :children make-closure #[257 "\301\302\303\304\300\"\"\207" [V0 -map #[257 "\300\301\"\207" [lsp-treemacs--get-xrefs-in-file nil] 4 "\n\n(fn IT)"] -group-by #[257 "\300\301\"\302!\207" [gethash "uri" lsp--uri-to-path] 4 "\n\n(fn INPUT0)"]] 6 "\n\n(fn ITEM)"] :ret-action #[128 "\301\300!\207" [V0 lsp-treemacs--open-file-in-mru] 3 "\n\n(fn &rest _)" nil]] 16 "\n\n(fn INPUT0)"] -group-by #[257 "\301\302\"\303\304!!\305!>\204\306\307\310D\"\210\211\311H\262\211\312\230\203'\313!\207\314\315!!\207" [cl-struct-url-tags gethash "uri" url-generic-parse-url url-unhex-string type-of signal wrong-type-argument url 1 "jdt" lsp-treemacs--java-get-class-file lsp-workspace-root lsp--uri-to-path] 7 "\n\n(fn INPUT0)"]] 6 (#$ . 81277)]) #@90 (fn TREE TITLE EXPAND-DEPTH &optional BUFFER-NAME RIGHT-CLICK-ACTIONS CLEAR-CACHE\=\?) (defalias 'lsp-treemacs-render #[1539 "\306\206\307!r\211q\210\310 \210\311\300!\210\312\311\301!\210\311\302!\210\n\203*\204*\n\2021\313\314\315\"\211\262\311\303!\210\311\304!\210\316\311\305!\210\317\311\320!\210\317\311\321!\210\317\322\"\210\323 \210\203f\324\325\"\210p)\207" [treemacs-default-visit-action lsp-treemacs--right-click-actions lsp-treemacs--generic-cache lsp-treemacs-tree face-remapping-alist window-size-fixed get-buffer-create "*LSP Lookup*" lsp-treemacs-initialize make-local-variable treemacs-RET-action make-hash-table :test equal ((button . default)) nil treemacs--width-is-locked treemacs-space-between-root-nodes lsp-treemacs--set-mode-line-format lsp-treemacs-generic-refresh lsp-treemacs--expand LSP-Generic] 10 (#$ . 82396)]) (defalias 'lsp-treemacs--show-references 'lsp-treemacs-render) #@170 Set the mode line format of BUFFER to TITLE. This function sets the `mode-name' or `mode-line-format' depending on if a custom mode line is detected. (fn BUFFER TITLE) (defalias 'lsp-treemacs--set-mode-line-format #[514 "rq\210\302\303!\204\304\305\301!>\204\302\306!\203$\302\307!\203$\211\211\202'\211\211)\207" [mode-name mode-line-format fboundp spaceline-install moody-mode-line-buffer-identification default-value doom-modeline doom-modeline-def-modeline] 5 (#$ . 83341)]) #@40 (fn METHOD PARAMS TITLE PREFIX-ARGS) (defalias 'lsp-treemacs--do-search #[1028 "\301\302!\303\301\302!!\304\305\306$\307\310\311\312&\210\313=\204'\314!\210rq\210\315 \210\316\317\"\210\320\300!\210\321\322 )\207" [lsp-treemacs-tree get-buffer-create "*LSP Lookup*" display-buffer lsp-request-async make-closure #[257 "\304\302\305\"\210\306K\307\310\"\216\306\307\311\"M\210\312\313\314\"\211\262\315\316!\317\300G\"\301\205,\301\320=?#\210*\210\321\322!\207" [V0 V1 V2 lsp-file-truename-cache lsp-treemacs--set-mode-line-format " Rendering results... " file-truename make-closure #[0 "\301\300M\207" [V0 file-truename] 2] #[769 "\302 \"\206\303\304\300E\" #\207" [V0 lsp-file-truename-cache gethash puthash apply] 10 "\n\n(fn FILE-NAME &optional COUNTER PREV-DIRS)"] make-hash-table :test equal lsp-treemacs-render lsp-treemacs--handle-references format 0 lsp--info "Refresh completed!"] 7 "\n\n(fn REFS)"] :mode detached :cancel-token :treemacs-lookup 0 select-window lsp-treemacs-initialize lsp-treemacs--set-mode-line-format " Loading... " make-local-variable nil lsp-treemacs-generic-refresh] 14 (#$ . 83837)]) #@151 Show the references for the symbol at point. With a prefix argument, select the new window and expand the tree of references automatically. (fn ARG) (defalias 'lsp-treemacs-references #[257 "\300\301\302\303\304 BB\305$\207" [lsp-treemacs--do-search "textDocument/references" :context (:includeDeclaration t) lsp--text-document-position-params " Found %s references "] 6 (#$ . 84997) "P"]) #@157 Show the implementations for the symbol at point. With a prefix argument, select the new window expand the tree of implementations automatically. (fn ARG) (defalias 'lsp-treemacs-implementations #[257 "\300\301\302 \303$\207" [lsp-treemacs--do-search "textDocument/implementation" lsp--text-document-position-params " Found %s implementations "] 6 (#$ . 85396) "P"]) #@88 Build the ret action for a call hierarchy item using URI and START range. (fn INPUT0) (defalias 'lsp-treemacs--call-hierarchy-ret-action #[257 "\300\301\"\300\302\300\303\"\"\304\305!!\210\306!b\210\307\310!\207" [gethash "uri" "start" "selectionRange" lsp-treemacs--open-file-in-mru lsp--uri-to-path lsp--position-to-point run-hooks xref-after-jump-hook] 7 (#$ . 85771)]) #@45 (fn BUFFER METHOD OUTGOING NODE CALLBACK) (defalias 'lsp-treemacs--call-hierarchy-children #[1285 "\300\301\"rq\210\302\301D\303\304\n\n\n %\305\306%)\207" [plist-get :item lsp-request-async make-closure #[257 "\303\304\305\306\300\301\302$\"!\207" [V0 V1 V2 V3 seq-map make-closure #[257 "\302\203\n\303!\202 \304!\305\306\307\"\210\306\310\"\305\306\311\"\210\305\306\312\"\210\305\306\313\306\314 \"\"\210\315\316\"\317\320\321\322\n!\323\324\325\300\301\302$\326\327\330\"\331\257\f\207" [V0 V1 V2 lsp:call-hierarchy-outgoing-call-to lsp:call-hierarchy-incoming-call-from nil gethash "_name" "kind" "_detail?" "_uri" "_start" "selectionRange" lsp-render-symbol t :label :key :icon lsp-treemacs-symbol-kind->icon :children-async -partial lsp-treemacs--call-hierarchy-children :ret-action make-closure #[128 "\301\300!\207" [V0 lsp-treemacs--call-hierarchy-ret-action] 3 "\n\n(fn &rest _)" nil] :item] 20 "\n\n(fn NODE)"]] 8 "\n\n(fn RESULT)"] :mode detached] 15 (#$ . 86155)]) #@132 Show the incoming call hierarchy for the symbol at point. With a prefix argument, show the outgoing call hierarchy. (fn OUTGOING) (defalias 'lsp-treemacs-call-hierarchy #[257 "\300\301!\204\302\303\304\305\306 \"\"\210p\307\310\311\312\313\314#\315\301\316 \"\"\203)\317\202*\320\321P\322\323\322\324&\322\"!\207" [lsp-feature\? "textDocument/prepareCallHierarchy" user-error "Call hierarchy not supported by the current servers: %s" -map lsp--workspace-print lsp-workspaces select-window display-buffer-in-side-window lsp-treemacs-render seq-map make-closure #[257 "\211\302\303\"\302\304\"\305\306\307\"\310\311\312!\313\314\315\301\300\203!\316\202\"\317\300$\320\321\322 \"\323 \257\f\207" [V0 V1 gethash "kind" "name" :label lsp-render-symbol t :key :icon lsp-treemacs-symbol-kind->icon :children-async -partial lsp-treemacs--call-hierarchy-children "callHierarchy/outgoingCalls" "callHierarchy/incomingCalls" :ret-action make-closure #[128 "\301\300!\207" [V0 lsp-treemacs--call-hierarchy-ret-action] 3 "\n\n(fn &rest _)" nil] :item] 16 "\n\n(fn INPUT0)"] lsp-request lsp--text-document-position-params "Outgoing" "Incoming" " Call Hierarchy" nil "*Call Hierarchy*" t] 11 (#$ . 87172) "P"]) (defconst lsp-treemacs--hierarchy-sub 0) (defconst lsp-treemacs--hierarchy-super 1) (defconst lsp-treemacs--hierarchy-both 2) #@46 (fn RESULT LOADED\=\? &optional DIRECTION) (defalias 'lsp-treemacs--type-hierarchy-render-nodes #[770 "\300\301\302#\"\207" [-map make-closure #[257 "\211\304\305\"\304\306\"\304\307\"\304\310\304\311\"\"\304\312\"\304\313\"\314\n\301=\2030\315\316\317\320#\202; \301=\205;\315\321\317\320#P\322\323\324\n!\325\300\203\\\326\325\327 \330\n#\327 \330 #\"D\202d\331\332\333\301#D\334\335\336#D\"BBBBBB\207" [V0 V1 lsp-treemacs--hierarchy-sub lsp-treemacs--hierarchy-super gethash "name" "kind" "uri" "start" "range" "children" "parents" :label propertize " ↓" face shadow " ↑" :key :icon lsp-treemacs-symbol-kind->icon append :children lsp-treemacs--type-hierarchy-render-nodes nil :children-async -partial lsp-treemacs--type-hierarchy-render :ret-action make-closure #[128 "\302\303\300!!\210\304\301!b\210\305\306!\207" [V0 V1 lsp-treemacs--open-file-in-mru lsp--uri-to-path lsp--position-to-point run-hooks xref-after-jump-hook] 4 "\n\n(fn &rest _)" nil]] 22 "\n\n(fn INPUT0)"]] 8 (#$ . 88522)]) #@36 (fn INPUT0 INPUT1 INPUT2 INPUT3) (defalias 'lsp-treemacs--type-hierarchy-render #[1028 "\300\301\"\300\302\300\303\"\"\304\305\306\307\310\311\312\n\"\313 \314\n\315\316&\317\320##\207" [gethash "uri" "start" "range" nil lsp-request-async "textDocument/typeHierarchy" lsp-make-type-hierarchy-params :text-document lsp-make-text-document-item :uri :position :direction :resolve 1 make-closure #[257 "\303\304\"\303\305\"\301\306\300\n=\203\202\307\300#!\207" [V0 V1 lsp-treemacs--hierarchy-sub gethash "children" "parents" lsp-treemacs--type-hierarchy-render-nodes nil] 8 "\n\n(fn INPUT0)"]] 20 (#$ . 89561)]) #@153 Show the type hierarchy for the symbol at point. With prefix 0 show sub-types. With prefix 1 show super-types. With prefix 2 show both. (fn DIRECTION) (defalias 'lsp-treemacs-type-hierarchy #[257 "\304\305!\204\306\307\310\311\312 \"\"\210\211\206\313\262\312 \314\305\315\211\316 \317#\320\321#\"\211\203Z\322\323\324\325!\326\"=\203=\327\202P =\203H\330\202P\n=\205P\331\332P\333\334$!\210\202^\306\335!\210\211\207" [lsp-treemacs--hierarchy-sub lsp-treemacs--hierarchy-super lsp-treemacs--hierarchy-both lsp--buffer-workspaces lsp--find-workspaces-for "textDocument/typeHierarchy" user-error "Type hierarchy not supported by the current servers: %s" -map lsp--workspace-print lsp-workspaces 0 lsp-request plist-put lsp--text-document-position-params :direction :resolve 1 pop-to-buffer lsp-treemacs-render lsp-treemacs--type-hierarchy-render-nodes vector t "Sub" "Super" "Sub/Super" " Type Hierarchy" nil "*lsp-treemacs-call-hierarchy*" "No class under point."] 9 (#$ . 90200) "P"]) #@28 (fn FOLDER FILE &rest _) (defalias 'lsp-treeemacs--error-list-diags #[642 "\300\301\302\"\303\304\305\306\307\310 \"\"\"\"\207" [-map make-closure #[257 "\211\301\302\"\301\303\"\301\304\301\305\"\"\301\306\"\301\307\"\301\310\"\311\312\313\314\315\316\317#\2037\314\313\320\"\316\321#\2028\322\n\314\313\323\f\f#\316\324#$\325\326 !\327\330\331\300 #\332\300\333\334\335\257\207" [V0 gethash "severity" "message" "start" "range" "line" "character" "source" :id :label format propertize "%s %s %s" face default "[%s]" shadow "" "(%s:%s)" lsp-details-face :icon-literal lsp-treemacs--diagnostic-icon :ret-action make-closure #[128 "\302\300!\210\303\301!b\210\304\305!\207" [V0 V1 lsp-treemacs--open-file-in-mru lsp--position-to-point run-hooks xref-after-jump-hook] 3 "\n\n(fn &rest _)"] :file :diag :actions (["Quick fix..." lsp-treemacs-list-errors-quick-fix] ["Go to..." lsp-treemacs-list-errors-quick-fix])] 22 "\n\n(fn INPUT0)"] -sort #[514 "\300\301\300\302\"\"\300\303\"\300\304\"\300\301\300\302\"\"\300\303\"\300\304\"U\203)W\207W\207" [gethash "start" "range" "character" "line"] 10 "\n\n(fn INPUT0 INPUT1)"] -filter lsp-treemacs--match-diagnostic-severity gethash lsp-diagnostics] 12 (#$ . 91217)]) #@23 (fn FOLDER &rest _) (defalias 'lsp-treemacs-errors--list-files #[385 "\300\301\302\"\303\304 !\"\207" [-keep make-closure #[257 "\301\300\"\205S\302\303!!\205S\304\305\306\307\310!\311\312\313\314\315\316\317\303!\320\"\"\"\"\321\322\323\n\300\"!\324\325#$\326\327!\203@\330\202D\331!\332\333\334\300\n#\335\336\337 \"\257\n\207" [V0 lsp-f-ancestor-of\? lsp-treemacs-errors--diags\? lsp-diagnostics-stats-for :id :label format "%s %s %s" f-filename s-join "/" -filter identity -map-indexed #[514 "\211\301U?\205\302\303!\304\305\"#\207" [lsp-treemacs-file-face-map 0 propertize number-to-string face alist-get] 8 "\n\n(fn INDEX COUNT)"] append nil propertize f-dirname f-relative face lsp-details-face :icon f-directory\? dir-closed f-ext :children -partial lsp-treeemacs--error-list-diags :ret-action make-closure #[128 "\301\300!\207" [V0 lsp-treemacs--open-file-in-mru] 3 "\n\n(fn &rest _)" nil]] 16 "\n\n(fn FILE)"] ht-keys lsp-diagnostics] 6 (#$ . 92474)]) #@51 Select the element under cursor. (fn &rest ARGS) (defalias 'lsp-treemacs-quick-fix #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\2036\313\314\"\315\316\"\315\317\"\320!\210\321\322\323\324\"\325\"!\211b\210\326\327!\207\330C\211\203_:\204D C\310\n\204Z\331\332\333\334\335\336#\337\340\337\"!#\210\341\342\343\"\210 \205f\344\345!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :file :diag lsp-treemacs--open-file-in-mru lsp--position-to-point lsp-get gethash "range" :start call-interactively lsp-execute-code-action "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 93468) nil]) #@60 Cycle through the severity levels shown in the errors list (defalias 'lsp-treemacs-cycle-severity #[0 " U\203\n\n\202\fS\303 \207" [lsp-treemacs-error-list-severity lsp/diagnostic-severity-error lsp/diagnostic-severity-hint lsp-treemacs-errors-list--refresh] 2 (#$ . 94427) nil]) #@14 (fn DIAGS) (defalias 'lsp-treemacs-errors--diags\? #[257 "\300\301\302\303\"\"\207" [seq-some identity seq-map-indexed #[514 "\301U?\205\211X\205\207" [lsp-treemacs-error-list-severity 0] 4 "\n\n(fn COUNT INDEX)"]] 6 (#$ . 94718)]) #@15 (fn FOLDER) (defalias 'lsp-treemacs--build-error-list #[257 "\300\301!\302\"\211\205@\303!\205@\304\305\306\307\310\311#\312!\313\314\315\316\317\320\n\"\"\"\306\321!\310\322#$\323\324\325\326\327\330\n\"\331\332\333\f\"\257\n\207" [append lsp-diagnostics-stats-for nil lsp-treemacs-errors--diags\? :label format propertize "%s %s %s" face default f-filename s-join "/" -filter identity -map-indexed #[514 "\211\302U?\205X\205\303\304!\305\306 \"#\207" [lsp-treemacs-error-list-severity lsp-treemacs-file-face-map 0 propertize number-to-string face alist-get] 8 "\n\n(fn INDEX COUNT)"] f-dirname lsp-lens-face :id :icon root :children -partial lsp-treemacs-errors--list-files :ret-action make-closure #[128 "\301\300!\207" [V0 lsp-treemacs--open-file-in-mru] 3 "\n\n(fn &rest _)" nil]] 14 (#$ . 94966)]) (defvar lsp-treemacs--current-workspaces nil) (defalias 'lsp-treemacs-errors-list--refresh #[0 "\303\203 \203\304\305\306\307\310 \"!\"\202\304\305\311 \211\312H\262\"\313\314\n\315%\207" [lsp-treemacs-error-list-current-project-only lsp-treemacs--current-workspaces lsp-treemacs-errors-buffer-name lsp-treemacs-render -keep lsp-treemacs--build-error-list -flatten -map lsp-workspace-folders lsp-session 1 "Errors List" nil (["Cycle Severity" lsp-treemacs-cycle-severity])] 7]) (defalias 'lsp-treemacs-errors-list #[0 "\303 \304 !\211\203\305\306\n\"!\210\307 \266\2028\307 \306\n\"\305!\210\310\311\"\210\312\313!\210\314\315\307\"\210\314\316\317\320\311$\266\307 \321!\210r\211q\210\312\313!)\207" [lsp-treemacs--current-workspaces lsp-treemacs-errors-buffer-name lsp-treemacs-errors-position-params lsp-workspaces get-buffer select-window display-buffer-in-side-window lsp-treemacs-errors-list--refresh set-window-dedicated-p t lsp-treemacs-error-list-mode 1 add-hook lsp-diagnostics-updated-hook kill-buffer-hook lsp-treemacs--kill-buffer nil pop-to-buffer] 8 nil nil]) #@45 Get the icon for DIAGNOSTIC. (fn SEVERITY) (defalias 'lsp-treemacs--diagnostic-icon #[257 "\211\303\267\202\n\207 \207\n\207" [treemacs-icon-error treemacs-icon-warning treemacs-icon-info #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 6 2 8))] 3 (#$ . 96891)]) #@19 Kill buffer hook. (defalias 'lsp-treemacs--kill-buffer #[0 "\300\301\302\"\207" [remove-hook lsp-diagnostics-updated-hook lsp-treemacs-errors-list--refresh] 3 (#$ . 97202)]) #@44 Keymap for `lsp-treemacs-error-list-mode'. (defvar lsp-treemacs-error-list-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap define-key "x" lsp-treemacs-quick-fix "=" lsp-treemacs-cycle-severity] 5) (#$ . 97382)) #@125 Non-nil if Lsp-Treemacs-Error-List mode is enabled. Use the command `lsp-treemacs-error-list-mode' to change this variable. (defvar lsp-treemacs-error-list-mode nil (#$ . 97640)) (make-variable-buffer-local 'lsp-treemacs-error-list-mode) #@22 (fn &optional ARG) (defalias 'lsp-treemacs-error-list-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [lsp-treemacs-error-list-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks lsp-treemacs-error-list-mode-hook lsp-treemacs-error-list-mode-on-hook lsp-treemacs-error-list-mode-off-hook called-interactively-p any message "Lsp-Treemacs-Error-List mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 97884) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-treemacs-error-list-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\310\211%\207" [lsp-treemacs-error-list-mode-map lsp-treemacs-error-list-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-treemacs-error-list-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-treemacs-error-list-mode] 6) #@19 (fn DIAGNOSTIC) (defalias 'lsp-treemacs--match-diagnostic-severity #[257 "\301!\302!X\207" [lsp-treemacs-error-list-severity lsp:diagnostic-severity\? prefix-numeric-value] 4 (#$ . 99196)]) (provide 'lsp-treemacs)