;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require treemacs s f treemacs-extensions treemacs-icons lsp-treemacs-themes lsp-mode lsp-lens] 2) (defconst lsp-treemacs-deps-buffer-name "*Java Dependency List*") (custom-declare-group 'lsp-treemacs nil "Language Server Protocol client." :group 'tools :tag "Language Server") #@67 The params which will be used by `display-buffer-in-side-window'. (defvar lsp-treemacs-deps-position-params (byte-code "\302B\303\304 BE\207" [treemacs-position treemacs-width side (slot . 1) window-width] 4) (#$ . 483)) (defvar lsp-treemacs-symbols-position-params (byte-code "\302B\303\304 BE\207" [treemacs-position treemacs-width side (slot . 2) window-width] 4)) (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\320\321\322\323\324DD\325\326\327%\210\320\330\322\323\331DD\325\326\327%\210\320\332\322\323\333DD\334\326\335%\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-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))] 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] 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 (#$ . 2116)]) #@20 (fn DIAGNOSTICS) (defalias 'lsp-treemacs--diagnostics-match-selected-severity #[257 "\300\301\"\207" [-some lsp-treemacs--match-diagnostic-severity] 4 (#$ . 2315)]) #@37 Get root folders containing errors. (defalias 'lsp-treemacs--root-folders #[0 "\300 \301\302\303\"\304\302\305\"\306 \211\307H\262\"\"\207" [lsp-diagnostics -map make-closure #[257 "\301\302\303\304\305#\302\306!\304\307\300\"#\310\311\300\"!\302\312!\304\313#$B\207" [V0 format propertize "%s %s %s" face default f-filename lsp-treemacs--face lsp-treemacs--diag-statistics lsp-treemacs--project-diagnostics f-dirname lsp-lens-face] 9 "\n\n(fn ROOT-FOLDER)"] -filter #[257 "\301\302\303\"\304\300!\"\207" [V0 -some make-closure #[257 "\211\211A\262\242\301\300\"\205\302!\207" [V0 s-starts-with\? lsp-treemacs--diagnostics-match-selected-severity] 7 "\n\n(fn INPUT0)"] ht->alist] 5 "\n\n(fn FOLDER-NAME)"] lsp-session 1] 8 (#$ . 2489)]) #@34 Select the element under cursor. (defalias 'lsp-treemacs-quick-fix #[0 "\301\302\303 \304 \305\306$\211\205\307\310\"\262\311\"\211:\203@\312A!\203@\211\211\211A\262\242\306r\313!q\210\314\306\211\"\212\315\316!b\210\317\320!+\207\321\322!\207" [lsp--buffer-workspaces button-get text-property-not-all point-at-bol point-at-eol button nil copy-marker t :data ht\? find-file-noselect lsp--try-project-root-workspaces lsp--position-to-point :start lsp-execute-code-action-by-kind "quickfix" user-error "Not on a diagnostic"] 8 (#$ . 3250) nil]) #@60 Cycle through the severity levels shown in the errors list (defalias 'lsp-treemacs-cycle-severity #[0 "\301U\203\n\302\202\fS\303 \207" [lsp-treemacs-error-list-severity 1 3 lsp-treemacs--after-diagnostics] 2 (#$ . 3810) nil]) #@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 (#$ . 4048)]) #@26 Open file. (fn &rest _) (defalias 'lsp-treemacs-open-file #[128 "\300\301\302 \303 \304\305$\211\205\306\307\"\262\310\"\311!\207" [button-get text-property-not-all point-at-bol point-at-eol button nil copy-marker t :key lsp-treemacs--open-file-in-mru] 7 (#$ . 4244) nil]) #@27 Open error. (fn &rest _) (defalias 'lsp-treemacs-open-error #[128 "\300\301\302 \303 \304\305$\211\205\306\307\"\262\310\"\211A\262\242\311\312\311\313\"\"\314!\210\315!b\207" [button-get text-property-not-all point-at-bol point-at-eol button nil copy-marker t :data gethash "start" "range" find-file-other-window lsp--position-to-point] 8 (#$ . 4529) nil]) #@80 Calculate ROOT-FOLDER face based on DIAGNOSTICS. (fn ROOT-FOLDER DIAGNOSTICS) (defalias 'lsp-treemacs--face #[514 "\211\301!\302\303\304\"\"\305!\306\"\211A\207" [lsp-treemacs-face-map ht->alist -keep make-closure #[257 "\211\211A\262\242\301\300\"\205\302\303\304\"!\207" [V0 s-starts-with\? lsp:diagnostic-severity\? -min-by #[514 "\300\301\"\300\301\"\206 \302\206\302V\207" [gethash "severity" 0] 6 "\n\n(fn INPUT0 INPUT1)"]] 8 "\n\n(fn INPUT0)"] -min assoc] 9 (#$ . 4903)]) #@80 Calculate ROOT-FOLDER face based on DIAGNOSTICS. (fn ROOT-FOLDER DIAGNOSTICS) (defalias 'lsp-treemacs--project-diagnostics #[514 "\300\301\302\303\304\"\"\"\207" [apply append ht-map make-closure #[514 "\301\300\"\205\302!\205\211\207" [V0 s-starts-with\? lsp-treemacs--diagnostics-match-selected-severity] 5 "\n\n(fn FILE-NAME FILE-DIAGS)"]] 8 (#$ . 5410)]) #@63 Calculate FILE-DIAGNOSTICS statistics. (fn FILE-DIAGNOSTICS) (defalias 'lsp-treemacs--diag-statistics #[257 "\300\301\302\303\304\305\306\307\310\311\n\"\"\"\"\"\207" [s-join "/" -map #[257 "\211\211A\262\242\301\302\303G!!\304\305\"A#\207" [lsp-treemacs-file-face-map propertize f-filename number-to-string face assoc] 10 "\n\n(fn INPUT0)"] -sort #[514 "@@W\207" [] 6 "\n\n(fn INPUT0 INPUT1)"] -group-by lsp:diagnostic-severity\? -filter lsp-treemacs--match-diagnostic-severity] 12 (#$ . 5785)]) #@59 Get files with errors in PROJECT-ROOT. (fn PROJECT-ROOT) (defalias 'lsp-treemacs--get-files #[257 "\300 \301!\302\303\304\"\"\207" [lsp-diagnostics ht->alist -keep make-closure #[257 "\211\211A\262\242\301\300\"\2054\302!\2054\303\304\305\306\307#\304\310!\306\307#\311!\304\312\313 \300\"!\306\314#$B\207" [V0 s-starts-with\? lsp-treemacs--diagnostics-match-selected-severity format propertize "%s %s %s" face default f-filename lsp-treemacs--diag-statistics f-dirname f-relative lsp-lens-face] 14 "\n\n(fn INPUT0)"]] 7 (#$ . 6300)]) #@43 Get errors for FILE-NAME. (fn FILE-NAME) (defalias 'lsp-treemacs--errors #[257 "\300\301\302\"\303\304\305\306\307\310 \"\"\"\"\207" [mapcar make-closure #[257 "\300B\207" [V0] 3 "\n\n(fn IT)"] -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] 10 (#$ . 6857)]) #@47 Get the icon for DIAGNOSTIC. (fn DIAGNOSTIC) (defalias 'lsp-treemacs--diagnostic-icon #[257 "\303!\211\304\267\202 \207 \207\n\207" [treemacs-icon-error treemacs-icon-warning treemacs-icon-info lsp:diagnostic-severity\? #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 9 2 11))] 4 (#$ . 7351)]) (defvar treemacs-icon-lsp-error-open nil) (defvar treemacs-icon-lsp-error-closed nil) (defvar treemacs-lsp-error-open-state 'treemacs-lsp-error-open-state) (defvar treemacs-lsp-error-closed-state 'treemacs-lsp-error-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\210\306\307\"\210\306 \307\"\207" [treemacs-lsp-error-open-state treemacs-lsp-error-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states treemacs-define-RET-action lsp-treemacs-open-error] 3) #@62 Expand treemacs nodes of type `lsp-error'. (fn &optional _) (defalias 'treemacs-expand-lsp-error #[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-error-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-error] 12 (#$ . 8244) nil]) #@69 Execute expansion of treemacs nodes of type `lsp-error'. (fn NODE) (defalias 'treemacs--do-expand-lsp-error #[257 "\306\307\310\"!\307\311\"T\307\312\"\313\314#\262\212`\314\211\315\316T\317\"\206&e\320\317\"\206/d\321\322$\210\323 \210\324\307\310\"A!\212\211G\325\326 \327\"\316T\317\"\206Oe\262Zb\210c\210\330!\266)\210\320\317\"\206hdb\210\331\332\333\nGY\204\203 @\f=\203\203 A =\204\207\334!\210\nHP@\314\203>\n\211\203=\211@\335\307\312\"C\"\336\337\314\211\211\211\211&\340\341H#\210\f\203\312\f\211\342\342HBI\266\343U?\205\324\344\345\346D\331\347\350\327%\266\202\347\211\351!\345\352#\317\353\354\355\356\327\321\357\311\312\360&\n\343U\205;\203\361\202\333F\266\202\343\314\211\2034\211A\262\242\262\262T\262B\262\202\266A\266\202\202\225\210\211\237\266\204\"c\210\362`\"\262\307\312\"\313\314#\211\203\225\211\211\363\nI\266\211\364H\211\203}\211@\313\314#\211\363\fI\266A\266\202\202d\210\211\365H\211\203\220\211\211\366\366HBI\266\266\202\254\336\337\314\211\211 \314\211&\262\340\341H#\266\367\307\312\"!\210)\262)<\203\340\370\326 \371 \317\314$\211\205\315\372\327\"\262\325!\307\357\"\232\203\336\341y\210\266\207" [treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation treemacs-indentation-string lsp-treemacs--errors get-text-property :data :depth :path gethash nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-error-open-state beginning-of-line lsp-treemacs--diagnostic-icon next-button point-at-bol t delete-char apply concat "\n" treemacs--build-indentation-cache append record treemacs-dom-node puthash 1 3 0 ". " face font-lock-string-face propertize icon lsp:diagnostic-message 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-space-between-root-nodes treemacs-move-forward-on-expand] 36 (#$ . 9410)]) #@64 Collapse treemacs nodes of type `lsp-error'. (fn &optional _) (defalias 'treemacs-collapse-lsp-error #[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-error-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-error] 12 (#$ . 11533) nil]) #@57 Collapse treemacs nodes of type `lsp-error'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-error #[257 "\212\302\303\304\305\"A!\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--diagnostic-icon get-text-property :data next-button point-at-bol t previous-single-property-change button delete-char put-text-property next-single-property-change :state treemacs-lsp-error-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 (#$ . 12706)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-error-open-state treemacs-collapse-lsp-error treemacs-lsp-error-closed-state treemacs-expand-lsp-error] 3) (defvar treemacs-icon-lsp-files-open nil) (defvar treemacs-icon-lsp-files-closed nil) (defvar treemacs-lsp-files-open-state 'treemacs-lsp-files-open-state) (defvar treemacs-lsp-files-closed-state 'treemacs-lsp-files-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\210\306\307\"\210\306 \307\"\207" [treemacs-lsp-files-open-state treemacs-lsp-files-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states treemacs-define-RET-action lsp-treemacs-open-file] 3) #@62 Expand treemacs nodes of type `lsp-files'. (fn &optional _) (defalias 'treemacs-expand-lsp-files #[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-files-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-files] 12 (#$ . 14846) nil]) #@69 Execute expansion of treemacs nodes of type `lsp-files'. (fn NODE) (defalias 'treemacs--do-expand-lsp-files #[257 "\306\307\310\"!\307\311\"T\307\312\"\313\314#\262\212`\314\211\315\316T\317\"\206&e\320\317\"\206/d\321\322$\210\323 \210\307\310\"\324\325!!\227\313\n\314#\206^\313\326 \"\203Z\327\224T\314O\202[\n\f#\262\262\212\211G\330\331 \332\"\316T\317\"\206se\262Zb\210c\210\333!\266)\210\320\317\"\206\214db\210\334\335\336 GY\204\253@@A=\203\253@AB=\204\257\337!\210 HP@\314\203\232\n\211\203\231\211@\211A\313\340\"\313\341\"\313\342\313\343\"\"\313\344\"\313\345\"\346\347\350\351\352#\203\364\347\346\353 \"\351\354#\202\365\355\347\346\356#\351\357#$\360\307\312\"C\"\361\362\314\211\211\211\211&\363\364H#\210\2032\211\365\365HBI\266\327U?\205< \366 A!\347\317\367\370\371\372\332\321C\373#\311\312\310\374&\327U\205nD\203m\375\202n\336F\266\211\327\314\211\203\220\211A\262\242\262\262T\262B\262\202t\266A\266\202\202\275\210\211\237\266\204\"c\210\376`\"\262\307\312\"\313\314#\211\203\371\211\211\377\nI\266\211\201FH\211\203\333\211@\313\314#\211\377\fI\266A\266\202\202\302\210\211\201GH\211\203\364\211\211\201H\201HHBI\266\266\202\361\362\314\211\211 \314\211&\262\363\364H#\266\201I\307\312\"!\210)\262)E\203L\201J\331 \201K \317\314$\211\2059\201L\332\"\262\330!\307\373\"\232\203J\364y\210\266\207" [treemacs-dom buffer-read-only treemacs-icons treemacs-file-extension-regex treemacs-icon-fallback treemacs--indentation-string-cache lsp-treemacs--errors get-text-property :key :depth :path gethash nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-files-open-state beginning-of-line file-name-nondirectory directory-file-name string-match 0 next-button point-at-bol t delete-char apply concat "\n" treemacs--build-indentation-cache "source" "message" "start" "range" "line" "character" format propertize "%s %s %s" face default "[%s]" shadow "" "(%s:%s)" lsp-lens-face append record treemacs-dom-node puthash 1 3 lsp-treemacs--diagnostic-icon (t) category default-button :custom :parent :data "\n\n" count-lines 5 treemacs--indentation-string-cache-key treemacs-indentation treemacs-indentation-string treemacs-lsp-error-open-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand 7 2 4 treemacs--reentry text-property-not-all point-at-eol copy-marker] 45 (#$ . 16013)]) #@64 Collapse treemacs nodes of type `lsp-files'. (fn &optional _) (defalias 'treemacs-collapse-lsp-files #[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-files-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-files] 12 (#$ . 18570) nil]) #@57 Collapse treemacs nodes of type `lsp-files'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-files #[257 "\212\305\306\307\"\310\311!!\227\312 \305#\206*\312\313\n\"\203&\314\224T\305O\202' #\262\262\212\211G\315\316 \317\"\320T\321\"\206?e\262Zb\210c\210\322!\266)\210\323\320T\321\"\206Ye\324\321\"\206ad\325\326$\210\315\327 !\211\203\200\306\330\"T\331\317\"\306\330\"\262U\204\207\332 \266\202\343\324\321\"\206\217d\205\301\306\330\"\315\324\321\"\206\240d\317\"\211\203\277\306\330\"W\203\277\315\324\321\"\206\270d\317\"\262\202\242\262\211\203\335\333\320T\321\"\206\317e!\324\321\"\206\330d\262\202\336d|\266\306\334\"\312\f\305#\211\335H\336H\211\203\211\211\337\340\337H\"I\266\210\211\203\341\342\"\210\211\335\305I\266\202-\336H\211\203+\211\211\337\340\337H\"I\266\266*\305\207" [buffer-read-only treemacs-icons treemacs-file-extension-regex treemacs-icon-fallback treemacs-dom nil get-text-property :key file-name-nondirectory directory-file-name gethash string-match 0 next-button point-at-bol t previous-single-property-change button delete-char put-text-property next-single-property-change :state treemacs-lsp-files-closed-state point-at-eol :depth copy-marker delete-trailing-whitespace previous-button :path 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 (#$ . 19743)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-files-open-state treemacs-collapse-lsp-files treemacs-lsp-files-closed-state treemacs-expand-lsp-files] 3) (defvar treemacs-icon-lsp-projects-open (byte-code "\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 root] 8)) (defvar treemacs-icon-lsp-projects-closed (byte-code "\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 root] 8)) (defvar treemacs-lsp-projects-open-state 'treemacs-lsp-projects-open-state) (defvar treemacs-lsp-projects-closed-state 'treemacs-lsp-projects-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\210\306\307\"\210\306 \307\"\207" [treemacs-lsp-projects-open-state treemacs-lsp-projects-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states treemacs-define-RET-action lsp-treemacs-open-file] 3) #@65 Expand treemacs nodes of type `lsp-projects'. (fn &optional _) (defalias 'treemacs-expand-lsp-projects #[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-projects-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-projects] 12 (#$ . 22577) nil]) #@72 Execute expansion of treemacs nodes of type `lsp-projects'. (fn NODE) (defalias 'treemacs--do-expand-lsp-projects #[257 "\306\307\310\"!\307\311\"T\307\312\"\313\314#\262\212`\314\211\315\316T\317\"\206&e\320\317\"\206/d\321\322$\210\323 \210\212\nG\324\325 \326\"\316T\317\"\206Ge\262Zb\210\nc\210\327!\266)\320\317\"\206_db\210\330\331\332 GY\204{\f@ =\203{\fA6=\204\333!\210 HP@\314\203R\n\211\203Q\211@\334\307\312\"@C\"\335\336\314\211\211\211\211&\337\340H#\210\f\203\303\f\211\341\341HBI\266\342U?\205\315@\343\344!!\227\3137\314#\206\366\313\3458\"\203\360\342\224T\314O\202\36179#\262\262\346A\317\347\350\351\352\326\321:\353\311\312\310@&\n\342U\205&;\203%\354\202&\332F\266\202\342\314\211\203H\211A\262\242\262\262T\262B\262\202,\266A\266\202\202\215\210\211\237\266\204\"c\210\355`\"\262\307\312\"\313\314#\211\203\251\211\211\356\nI\266\211\357H\211\203\221\211@\313\314#\211\356\fI\266A\266\202\202x\210\211\360H\211\203\244\211\211\361\361HBI\266\266\202\300\335\336\314\211\211 \314\211&\262\337\340H#\266\362\307\312\"!\210)\262)<\203\364\363\325 \364 \317\314$\211\205\341\365\326\"\262\324!\307\353\"\232\203\362\340y\210\266\207" [treemacs-dom buffer-read-only treemacs-icon-lsp-projects-open treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation lsp-treemacs--get-files get-text-property :key :depth :path gethash nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-projects-open-state beginning-of-line next-button point-at-bol t delete-char apply concat "\n" treemacs--build-indentation-cache append record treemacs-dom-node puthash 1 3 0 file-name-nondirectory directory-file-name string-match propertize (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 treemacs-icons treemacs-file-extension-regex treemacs-icon-fallback treemacs-lsp-files-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 36 (#$ . 23756)]) #@67 Collapse treemacs nodes of type `lsp-projects'. (fn &optional _) (defalias 'treemacs-collapse-lsp-projects #[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-projects-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-projects] 12 (#$ . 25991) nil]) #@60 Collapse treemacs nodes of type `lsp-projects'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-projects #[257 "\212\303\212 G\304\305 \306\"\307T\310\"\206e\262Zb\210 c\210\311!\266)\312\307T\310\"\206-e\313\310\"\2065d\314\315$\210\304\316 !\211\203T\317\320\"T\321\306\"\317\320\"\262U\204[\322 \266\202\267\313\310\"\206cd\205\225\317\320\"\304\313\310\"\206td\306\"\211\203\223\317\320\"W\203\223\304\313\310\"\206\214d\306\"\262\202v\262\211\203\261\323\307T\310\"\206\243e!\313\310\"\206\254d\262\202\262d|\266\317\324\"\325\n\303#\211\326H\327H\211\203\327\211\211\330\331\330H\"I\266\210\211\203\353\332\333\"\210\211\326\303I\266\202\327H\211\203\377\211\211\330\331\330H\"I\266\266*\303\207" [buffer-read-only treemacs-icon-lsp-projects-closed treemacs-dom nil next-button point-at-bol t previous-single-property-change button delete-char put-text-property next-single-property-change :state treemacs-lsp-projects-closed-state point-at-eol get-text-property :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 (#$ . 27176)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-projects-open-state treemacs-collapse-lsp-projects treemacs-lsp-projects-closed-state treemacs-expand-lsp-projects] 3) (defvar treemacs-icon-lsp-error-list-open "") (defvar treemacs-icon-lsp-error-list-closed "") (defvar treemacs-lsp-error-list-open-state 'treemacs-lsp-error-list-open-state) (defvar treemacs-lsp-error-list-closed-state 'treemacs-lsp-error-list-closed-state) (byte-code "\302\303\"\210\302\304 \"\210\302\305 \"\210\302\305\"\207" [treemacs-lsp-error-list-open-state treemacs-lsp-error-list-closed-state add-to-list treemacs--open-node-states treemacs--closed-node-states treemacs-valid-button-states] 3) #@67 Expand treemacs nodes of type `lsp-error-list'. (fn &optional _) (defalias 'treemacs-expand-lsp-error-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-error-list-closed-state "This function cannot expand a node of type '%s'." "%s" font-lock-type-face treemacs--do-expand-lsp-error-list] 12 (#$ . 29272) nil]) #@74 Execute expansion of treemacs nodes of type `lsp-error-list'. (fn NODE) (defalias 'treemacs--do-expand-lsp-error-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\203F\n\211\203E\211@\326\307\311\"AC\"\327\330\313\211\211\211\211&\331\332H#\210\f\203\233\f\211\333\333HBI\266\334U?\205\245\3132\334\313\211\211\203\337\211A\262\242\262\262\211\262\203\337\332H3\230\203\322\313\262\203\337\262\262T\262\202\254\266\211\262\211\333H\312\335\313#\266\202\336@\316\337\340\341\342\343\3204\344\310\311\345A&\n\334U\2055\203\346\202\324F\266\202\334\313\211\203<\211A\262\242\262\262T\262B\262\202 \266A\266\202\202e\210\211\237\266\204\"c\210\347`\"\262\307\311\"\312\313#\211\203\235\211\211\350\nI\266\211\351H\211\203\205\211@\312\313#\211\350\fI\266A\266\202\202l\210\211\352H\211\203\230\211\211\353\353HBI\266\266\202\264\327\330\313\211\211 \313\211&\262\331\332H#\266\354\307\311\"!\210)\262)6\203\350\355\356 \357 \316\313$\211\205\325\360\343\"\262\361!\307\344\"\232\203\346\332y\210\266\207" [treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key treemacs-indentation treemacs-indentation-string lsp-treemacs--root-folders get-text-property :depth :path gethash nil put-text-property previous-single-property-change button next-single-property-change :state treemacs-lsp-error-list-open-state apply concat "\n" treemacs--build-indentation-cache append record treemacs-dom-node puthash 1 3 0 root propertize (t) category default-button :custom t :parent :key "\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--themes lsp-treemacs-theme treemacs-lsp-projects-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 36 (#$ . 30459)]) #@69 Collapse treemacs nodes of type `lsp-error-list'. (fn &optional _) (defalias 'treemacs-collapse-lsp-error-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-error-list-open-state "This function cannot collapse a node of type '%s'." "%s" font-lock-type-face treemacs--do-collapse-lsp-error-list] 12 (#$ . 32557) nil]) #@62 Collapse treemacs nodes of type `lsp-error-list'. (fn NODE) (defalias 'treemacs--do-collapse-lsp-error-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-error-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 (#$ . 33750)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [treemacs-define-TAB-action treemacs-lsp-error-list-open-state treemacs-collapse-lsp-error-list treemacs-lsp-error-list-closed-state treemacs-expand-lsp-error-list] 3) (defalias 'treemacs-LSP-ERROR-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-error-list-closed-state nil record treemacs-project "" LSP-Errors 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-error-list] 25]) #@28 After diagnostics handler. (defalias 'lsp-treemacs--after-diagnostics #[0 "\212\3001r\301\302!q\210\303\304\305\")0\202\306\262)\207" [(error) get-buffer-create "*LSP Error List*" treemacs-update-node (:custom LSP-Errors) t nil] 3 (#$ . 35951)]) #@19 Kill buffer hook. (defalias 'lsp-treemacs--kill-buffer #[0 "\300\301\302\"\207" [remove-hook lsp-diagnostics-updated-hook lsp-treemacs--after-diagnostics] 3 (#$ . 36208)]) #@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) (#$ . 36386)) #@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 (#$ . 36644)) (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 (#$ . 36888) (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) #@21 Display error list. (defalias 'lsp-treemacs-errors-list #[0 "\302\303!\211\203\304\305\306\"!\210\307 \207\310\303!\305\311\"\304!\210\312\313\"\210\314 \210\315\316\"\210\317\320!\210\321\300!\210\322\321\301!\210\323\324 \210\325\326\307\"\210\325\327\330\323\313$\207" [treemacs-default-visit-action treemacs-space-between-root-nodes get-buffer "*LSP Error List*" select-window display-buffer-in-side-window ((side . bottom)) lsp-treemacs--after-diagnostics get-buffer-create ((side . bottom)) set-window-dedicated-p t treemacs-initialize lsp-treemacs--set-mode-line-format " LSP Errors View " lsp-treemacs-error-list-mode 1 make-local-variable treemacs-RET-action nil treemacs-LSP-ERROR-LIST-extension add-hook lsp-diagnostics-updated-hook kill-buffer-hook lsp-treemacs--kill-buffer] 8 (#$ . 38200) nil]) #@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 nil] 3 (#$ . 39024)]) #@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 (#$ . 39754)]) #@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 (#$ . 40100)]) #@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 (#$ . 40458)]) (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 (#$ . 41303) 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 (#$ . 42474)]) #@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 (#$ . 44613) 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 (#$ . 45790)]) (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 (#$ . 48042)]) #@19 (fn LEFT RIGHT) (defalias 'lsp-treemacs-sort-by-kind #[514 "\300\301\"\300\301\"\205\211\205V\207" [plist-get :kind] 8 (#$ . 48230)]) #@19 (fn LEFT RIGHT) (defalias 'lsp-treemacs-sort-by-name #[514 "\300\301\"\300\301\"\302\227\227\"\207" [plist-get :label string>] 7 (#$ . 48383)]) (byte-code "\300\301\302\303\304DD\305\306\307%\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)))] 6) #@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\205O\311\312\313\314!\315\316\317\320\"\301\"\205:\321\322\301\"D\323 \324 \325\317\326\"\257\"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 #[128 "\302 !\210\303\300!b\210\304\305!\207" [V0 lsp-treemacs--symbols-last-buffer pop-to-buffer lsp--position-to-point run-hooks xref-after-jump-hook] 3 "\n\n(fn &rest _)"]] 22 "\n\n(fn INPUT0)"] #[257 "\300\301\"\300\302\"\300\303\300\304\"\"\300\305\"\300\306\"\307\203'\310\311\312#\202(\313\314\315 !\316\n\317\320\321\322 !?\205F\323\324\"D\325\326\327\"D\"BBBBBBBBBB\207" [gethash "name" "kind" "start" "selectionRange" "children" "deprecated" :label propertize face lsp-face-semhl-deprecated :key :icon lsp-treemacs-symbol-kind->icon :kind :location start-range append seq-empty-p :children lsp-treemacs--symbols->tree :ret-action make-closure #[128 "\302 !\210\303\300!b\210\304\305!\207" [V0 lsp-treemacs--symbols-last-buffer pop-to-buffer lsp--position-to-point run-hooks xref-after-jump-hook] 3 "\n\n(fn &rest _)"]] 22 "\n\n(fn INPUT0)"]] 12 (#$ . 48914)]) #@28 After diagnostics handler. (defalias 'lsp-treemacs--update-symbols #[0 "\302\301!\210?\205\303\304\305\306#\307\310\311\"\312\205\313GV\314$\207" [lsp-treemacs--symbols header-line-format make-local-variable propertize "No symbol information." face shadow lsp-treemacs-render lsp-treemacs--symbols->tree nil " LSP Symbols " 30 "*LSP Symbols List*"] 5 (#$ . 50931)]) (defalias 'lsp-treemacs--update #[0 "p\304\305!=?\205Xr\306q\210\307 )\203U\310\311!\203B\203*\312 =\203*p =\204U\313\311\314\315\316 \"\317\320\321%\210\322\300!\210\312 p\202U\323 \203Ur\306q\210\322\303!\210\324\325 \210)p\211\207" [lsp-treemacs--symbols-tick lsp-treemacs--symbols-current-buffer lsp-treemacs--symbols-last-buffer lsp-treemacs--symbols get-buffer "*scratch*" "*LSP Symbols List*" 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 "\212r\301q\210\302\300!\210\211\303 *\207" [lsp-treemacs--symbols "*LSP Symbols List*" 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 (#$ . 52178) nil]) (eval-after-load 'winum #[0 "\302\300!\205'\303\235\204\303B\304\235\204\304B \235\203\"\207 B\211\207" [winum-ignored-buffers lsp-treemacs-deps-buffer-name boundp "*LSP Symbols List*" "*LSP Error List*"] 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 (#$ . 53159)]) (defalias 'lsp-treemacs--kill-symbols-buffer #[0 "\205\301!\207" [lsp-treemacs--symbols-timer cancel-timer] 2]) #@20 Show symbols view. (defalias 'lsp-treemacs-symbols #[0 "p\304\305!\211\203\306\307\"!\266\202=\310\305!\307\"\306!\210\311\312\"\210\313\301!\210\314\313\302!\210\315\316\317\320\321#\322\323\324\315\312$\266r\211q\210\321 )\207" [lsp-treemacs-symbols-position-params treemacs-default-visit-action treemacs-space-between-root-nodes lsp-treemacs--symbols-timer get-buffer "*LSP Symbols List*" select-window display-buffer-in-side-window get-buffer-create set-window-dedicated-p t make-local-variable treemacs-RET-action nil run-at-time 0 1.0 lsp-treemacs--update add-hook kill-buffer-hook lsp-treemacs--kill-symbols-buffer] 9 (#$ . 57218) 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 (#$ . 57882)]) #@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 (#$ . 58382)])) (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 gethash "uri" lsp--uri-to-path f-exists\? "path" f-parent "projectUri" user-error "No element under point."] 8 (#$ . 58850)]) #@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 (#$ . 59390)]) #@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 puthash "projectUri" 4 "rootPath" gethash "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 (#$ . 60518)]) #@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 (#$ . 61467)]) (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 (#$ . 62270) 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@\312\306\307\"!\203i\351\306\330\"\310\352\"\310\311\"\310\353\"EC\"\354\355\315\211\211\211\211&\356\357H #\210\f\203\f\211\360\360HBI\266\361U?\205\362\315\"\363\211\310\352\"\364\365#\333\366\367\370\371\341\335A\372\327\330\373\310\352\"\310\311\"\310\353\"E\374&\n\361U\205cB\203b\375\202c\347F\266\202\202\371\351\306\330\"\310\352\"\310\311\"\310\353\"EC\"\354\355\315\211\211\211\211&\356\357H #\210\f\203\245\f\211\360\360HBI\266\361U?\205\257\340\315\"\363\211\310\352\"\364\365#\333\366\367\370\371\341\335C\372\327\330\373\310\352\"\310\311\"\310\353\"E\307&\n\361U\205\366B\203\365\375\202\366\347F\266\202\361\315\211\203\211A\262\242\262\262T\262B\262\202\374\266A\266\202\202\306\210\211\237\266\204\"c\210\376`\"\262\306\330\"\310 \315#\211\203\201\211\211\377\nI\266\211\201EH\211\203c\211@\310 \315#\211\377\fI\266A\266\202\202J\210\211\201FH\211\203|\211\211\201G\201GHBI\266\266\202\230\354\355\315\211\211 \315\211&\262\356\357H #\266\201H\306\330\"!\210)\262)D\203\324\201I\343 \201J \333\315$\211\205\301\201K\341\"\262\342!\306\372\"\232\203\322\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 append "name" "path" 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] 41 (#$ . 63469)]) #@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 (#$ . 66521) 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 (#$ . 67726)]) (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 puthash "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 (#$ . 70424) 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@\326\307\311\"\312\327\"\312\330\"\312\331\"EC\"\332\333\313\211\211\211\211&\334\335H#\210\f\203\247\f\211\336\336HBI\266\337U?\205\261\340\313\"\341\211\312\327\"\342\343#\316\344\345\346\347\350\3208\351\310\311\352\312\327\"\312\330\"\312\331\"E\353&\n\337U\205\3709\203\367\354\202\370\324F\266\202\337\313\211\203\211A\262\242\262\262T\262B\262\202\376\266A\266\202\202e\210\211\237\266\204\"c\210\355`\"\262\307\311\"\312\313#\211\203{\211\211\356\nI\266\211\357H\211\203c\211@\312\313#\211\356\fI\266A\266\202\202J\210\211\360H\211\203v\211\211\361\361HBI\266\266\202\222\332\333\313\211\211 \313\211&\262\334\335H#\266\362\307\311\"!\210)\262):\203\306\363\364 \365 \316\313$\211\205\263\366\350\"\262\367!\307\351\"\232\203\304\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 append "name" "uri" "path" 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] 40 (#$ . 71643)]) #@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 (#$ . 73716) 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 (#$ . 74941)]) (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 (#$ . 77231) nil]) #@21 Display error list. (defalias 'lsp-treemacs-java-deps-list #[0 "\304!\211\203\305\306!\206\307 \"!\207\310!\307 \"\305!\210\311\312\"\210\313 \210\314\315\"\210\316\312!\210\317\302!\210\320\317\303!\210\321\322 \207" [lsp-treemacs-deps-buffer-name lsp-treemacs-deps-position-params treemacs-space-between-root-nodes treemacs-default-visit-action 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 nil treemacs-RET-action treemacs-LSP-TREEMACS-DEPS-LIST-extension] 6 (#$ . 77536) 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 (#$ . 78232)]) #@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) (#$ . 78517)) #@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 (#$ . 78731)) (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 (#$ . 78971) (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 (#$ . 81221)]) #@16 (fn PROJECT) (defalias 'lsp-treemacs--on-folder-added #[257 "\300\301H!\207" [lsp-workspace-folders-add 2] 4 (#$ . 81358)]) (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\310\"\"\210\306\307\311\"\"*\207" [treemacs-create-project-functions treemacs-delete-project-functions treemacs-current-workspace remove lsp-treemacs--on-folder-added lsp-treemacs--on-folder-remove seq-do make-closure #[257 "\301\302\303\"\300\304H\"\205\305!\207" [V0 -none\? make-closure #[257 "\301\302H\300\"\207" [V0 f-same\? 2] 4 "\n\n(fn PROJECT)"] 2 treemacs-add-project-to-workspace] 5 "\n\n(fn FOLDER)"] #[257 "\301\302\303\"\300\304H\"\211\205\305!\207" [V0 -first make-closure #[257 "\301\302H\300\"\207" [V0 f-same\? 2] 4 "\n\n(fn PROJECT)"] 2 treemacs-do-remove-project-from-workspace] 5 "\n\n(fn FOLDER)"]] 7 (#$ . 81814)]) (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 (#$ . 83152) (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 (#$ . 85680)]) (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 (#$ . 86113) 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 (#$ . 86885)])) (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) (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 (#$ . 87404)]) (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 (#$ . 88100) nil]) #@64 Execute expansion of treemacs nodes of type `node'. (fn NODE) (defalias 'treemacs--do-expand-node #[257 "\306\307\"\310!\311\312\"\311\313\"\314!\203!\266\206\202]\315\"\2034 \2034\315\"A\266\206\202]\203Zp\316\317#\"\266\315\"A\206[\320\321\322\323\324#\325BBC\266\206\202]\266\206\306\326\"T\306\327\"\315\n\330#\262\212`\330\211\331\332T\333\"\206}e\334\333\"\206\206d\335\336$\210\337 \210\340\306\307\"\341\"\212\211G\342\343 \341\"\332T\333\"\206\246e\262Zb\210c\210\344!\266)\210\334\333\"\206\277db\210\345\346\347\fGY\204\334 @@=\203\334 AA=\204\340\350!\210\fHP@\330\203\242\n\211\203\241\211@\311\312\"\311\320\"\311\351\"\311\313\"\352\306\327\"C\"\353\354\330\211\211\211\211&\355\356H\n#\210\2033\211\357\357HBI\266 \360U?\205=\n\340\330\"\321\333\361\362\363\364\341\335B\365 \326\327\351\312\307\313&\360U\205vC\203u\366\202v\347F\266\206\360\330\211\203\230\211A\262\242\262\262T\262B\262\202|\266A\266\202\202\356\210\211\237\266\204\"c\210\367`\"\262\306\327\"\315\n\330#\211\203\371\211\211\370\nI\266\211\371H\211\203\341\211@\315\n\330#\211\370\fI\266A\266\202\202\310\210\211\372H\211\203\364\211\211\373\373HBI\266\266\202\353\354\330\211\211 \330\211&\262\355\356H\n#\266\374\306\327\"!\210)\262)D\203D\375\343 \376 \333\330$\211\2051\377\341\"\262\342!\306\365\"\232\203B\356y\210\266\207" [lsp-treemacs--generic-cache lsp-treemacs-use-cache treemacs-dom buffer-read-only treemacs--indentation-string-cache treemacs--indentation-string-cache-key get-text-property :item lsp-treemacs--node-key plist-get :children :children-async functionp gethash make-closure #[257 "\304\305\301!!\205r\301q\210\306\300\307B\n#\210\307\310 *\207" [V0 V1 lsp-treemacs--generic-cache lsp-treemacs-use-cache buffer-live-p get-buffer puthash t lsp-treemacs-generic-refresh] 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 treemacs-indentation-string treemacs-node-closed-state treemacs-space-between-root-nodes treemacs-move-forward-on-expand] 46 (#$ . 89247)]) #@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 (#$ . 91935) 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 (#$ . 93088)]) (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 (#$ . 95096) 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 (#$ . 96255)]) #@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 (#$ . 98175) 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 (#$ . 99340)]) (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\307\262P\207" [treemacs--themes lsp-treemacs-theme plist-get :children :children-async " ▾ " " ▸ " " " :icon-literal :icon nil 0 1 3 gethash] 12 (#$ . 101472)]) #@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-lens-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 (#$ . 102031)]) #@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 (#$ . 103441)]) #@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-lens-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 (#$ . 103707)]) (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]) (defalias 'lsp-treemacs-generic-refresh #[0 "\3011 \302\303\304\302\")0\207\305\207" [inhibit-read-only (error) t treemacs-update-node (:custom LSP-Generic) nil] 3]) #@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 (#$ . 104807) "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) (#$ . 105533)) #@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 (#$ . 105849)) (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 (#$ . 106083) (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-lens-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 (#$ . 107934)]) #@29 (fn NAME KEYS &rest BODY) (defalias 'lsp-treemacs-define-action '(macro . #[642 "\300\301\302\303\"\304\305\306\307\310\311\312\fB\313B\" BB\314BBB\257\207" [defun (&rest args) format "Code action %s" (interactive) if-let (node (treemacs-node-at-point)) -let apply vector &plist ((button-get node :item)) ((treemacs-pulse-on-failure "No node at point"))] 15 (#$ . 109051)])) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put lsp-treemacs-define-action doc-string-elt 3 lisp-indent-function 2] 5) #@74 (fn TREE TITLE EXPAND-DEPTH &optional BUFFER-NAME RIGHT-CLICK-ACTIONS) (defalias 'lsp-treemacs-render #[1283 "\305\206\306!r\211q\210\307 \210\310\300!\210\311\310\301!\210\310\302!\210\n\206)\312\313\314\"\211\262\310\303!\210\310\304!\210\315\316\"\210\317 \210\203H\320\321\"\210p)\207" [treemacs-default-visit-action lsp-treemacs--right-click-actions lsp-treemacs--generic-cache lsp-treemacs-tree face-remapping-alist get-buffer-create "*LSP Lookup*" lsp-treemacs-initialize make-local-variable treemacs-RET-action make-hash-table :test equal ((button . default)) lsp-treemacs--set-mode-line-format lsp-treemacs-generic-refresh lsp-treemacs--expand LSP-Generic] 9 (#$ . 109581)]) (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 (#$ . 110355)]) #@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 (#$ . 110852)]) #@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 (#$ . 112013) "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 (#$ . 112413) "P"]) #@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\"\305\307\"\305\310\"\305\311\"\305\312\305\313\"\"\2051\314\315P\316\317#P\320\321\322\323\n!\324\325\326\300\301\302$\327\330\331  #\332\257\f\207" [V0 V1 V2 lsp:call-hierarchy-outgoing-call-to lsp:call-hierarchy-incoming-call-from gethash "name" "kind" "detail" "uri" "start" "selectionRange" propertize " - " face lsp-lens-face :label :key :icon lsp-treemacs-symbol-kind->icon :children-async -partial lsp-treemacs--call-hierarchy-children :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] :item] 21 "\n\n(fn NODE)"]] 8 "\n\n(fn RESULT)"] :mode detached] 15 (#$ . 112789)]) #@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\"!\207" [lsp--find-workspaces-for "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\"\302\305\"\306\205\307\310P\311\312#P\313\314\315!\316\317\320\301\300\203.\321\202/\322\300$\323\f\257\n\207" [V0 V1 gethash "name" "kind" "detail" :label propertize " - " face lsp-lens-face :key :icon lsp-treemacs-symbol-kind->icon :children-async -partial lsp-treemacs--call-hierarchy-children "callHierarchy/outgoingCalls" "callHierarchy/incomingCalls" :item] 17 "\n\n(fn INPUT0)"] lsp-request lsp--text-document-position-params "Outgoing" "Incoming" " Call Hierarchy" nil "*Call Hierarchy*"] 10 (#$ . 113895) "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 (#$ . 115165)]) #@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 (#$ . 116205)]) #@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 (#$ . 116845) "P"]) (provide 'lsp-treemacs)