;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!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\300\316!\210\317\320\321\"\210\317\322\323\"\207" [require hl-line button s dash treemacs-core-utils treemacs-filewatch-mode treemacs-rendering treemacs-scope treemacs-follow-mode treemacs-customization treemacs-workspaces treemacs-persistence treemacs-extensions treemacs-logging autoload ansi-color-apply-on-region "ansi-color" aw-select "ace-window"] 3) #@65 List of all valid values for treemacs buttons' :state property. (defvar treemacs-valid-button-states '(root-node-open root-node-closed dir-node-open dir-node-closed file-node-open file-node-closed tag-node-open tag-node-closed tag-node) (#$ . 626)) #@82 Go to next line. A COUNT argument, moves COUNT lines down. (fn &optional COUNT) (defalias 'treemacs-next-line #[256 "\302 b\210\3031\304\"0\210\202\210\305y\210 \306=\205*\307 \210\310`\311\"\242\312=\205*\313u\207" [treemacs-wrap-around major-mode line-end-position (error) forward-button 0 treemacs-mode beginning-of-line get-text-property display image 1] 4 (#$ . 881) "p"]) #@84 Go to previous line. A COUNT argument, moves COUNT lines up. (fn &optional COUNT) (defalias 'treemacs-previous-line #[256 "\302y\210\3031\304\"0\210\202\210\302y\210 \305=\205)\306 \210\307`\310\"\242\311=\205)\312u\207" [treemacs-wrap-around major-mode 0 (error) backward-button treemacs-mode beginning-of-line get-text-property display image 1] 4 (#$ . 1274) "p"]) #@481 Expand or close the current node. If a prefix ARG is provided the open/close process is done recursively. When opening directories that means that all sub-directories are opened as well. When opening files all their tag sections will be opened. Recursively closing any kind of node means that treemacs will forget about everything that was expanded below that node. Since tags cannot be opened or closed a goto definition action will called on them instead. (fn &optional ARG) (defalias 'treemacs-toggle-node #[256 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203W\313\314\"\211\315\267\202Q\316\"\207\317\"\207\320\"\207\321\"\207\322\"\207\323\324#\207\325\"\207\326\"\207\327\330!\210\331!\207\211\332\333\"\207\334C\211\203\200:\204e C\310\n\204{\335\336\337\340\341\342#\343\344\343\"!#\210\345\346\347\"\210 \205\207\350\351!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-open 32 root-node-closed 37 file-node-open 42 file-node-closed 47 dir-node-open 52 dir-node-closed 57 tag-node-open 63 tag-node-closed 68 tag-node 73)) treemacs--collapse-root-node treemacs--expand-root-node treemacs--collapse-file-node treemacs--expand-file-node treemacs--collapse-dir-node treemacs--expand-dir-node :recursive treemacs--collapse-tag-node treemacs--expand-tag-node other-window 1 treemacs--goto-tag error "[Treemacs] Unexpected button state %s" "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] 10 (#$ . 1657) "P"]) #@679 Same as `treemacs-toggle-node' but will visit a tag node in some conditions. Tag nodes, despite being expandable sections, will be visited in the following conditions: * Tags belong to a .py file and the tag section's first child element's label ends in " definition*". This indicates the section is the parent element in a nested class/function definition and can be moved to. * Tags belong to a .org file and the tag section element possesses a 'org-imenu-marker text property. This indicates that the section is a headline with further org elements below it. The prefix argument ARG is treated the same way as with `treemacs-toggle-node'. (fn &optional ARG) (defalias 'treemacs-toggle-node-prefer-tag-visit #[256 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203X\313\314\"\211\315\267\202R\316\"\207\317!\207\320\"\207\321\"\207\322\"\207\323\324#\207\325\312#\207\325\312#\207\326\327!\210\330!\207\211\331\332\"\207\333C\211\203\201:\204f C\310\n\204|\334\335\336\337\340\341#\342\343\342\"!#\210\344\345\346\"\210 \205\210\347\350!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-open 32 root-node-closed 37 file-node-open 41 file-node-closed 46 dir-node-open 51 dir-node-closed 56 tag-node-open 62 tag-node-closed 68 tag-node 74)) treemacs--collapse-root-node treemacs--expand-root-node treemacs--collapse-file-node treemacs--expand-file-node treemacs--collapse-dir-node treemacs--expand-dir-node :recursive treemacs--visit-or-expand/collapse-tag-node other-window 1 treemacs--goto-tag error "[Treemacs] Unexpected button state %s" "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] 10 (#$ . 3558) nil]) #@341 Run the appropriate TAB action for the current node. In the default configuration this usually means to expand or close the content of the currently selected node. A potential prefix ARG is passed on to the executed action, if possible. This function's exact configuration is stored in `treemacs-TAB-actions-config'. (fn &optional ARG) (defalias 'treemacs-TAB-action #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315\316\"\262\211\205\200\211\236A\211\203D\211!\210 \317=\205~\320 \210\315`\321\"\242\322=\205~\323u\202~\324\325\326\327\"\330\331#D\211\203u\n:\204Z C\312\f\204p\332\333\325\334\330\335#\326\336\326\"!#\210\337\340\341\"\210 \205|\342\343!\262\262\207" [treemacs-TAB-actions-config major-mode treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state treemacs-mode beginning-of-line display image 1 "No TAB action defined for node of type %s." propertize format "%s" face font-lock-type-face message "%s %s" "[Treemacs]" ((:inherit warning :weight bold)) apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 11 (#$ . 5668) "P"]) #@145 Select parent of selected node, if possible. ARG is optional and only available so this function can be used as an action. (fn &optional ARG) (defalias 'treemacs-goto-parent-node #[256 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\205\313\314\"\262\211\203#\211b\207\315C\211\203L:\2041 C\310\n\204G\316\317\320\321\322\323#\324\325\324\"!#\210\326\327\330\"\210 \205S\331\332!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :parent "There is no parent to move up to." 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 (#$ . 6971) nil]) #@77 Select next node at the same depth as currently selected node, if possible. (defalias 'treemacs-next-neighbour #[0 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\205R\313\314\"\315\316\307\"\206#d!\211\203B\313\314\"W\203B\315\316\307\"\206<d!\262\202&\211\205P\313\314\"U\205P\211\266\204\262\211\205Z\211b\262\206\220\310\211\203\207:\204l C\310\n\204\202\317\320\321\322\323\324#\325\326\325\"!#\210\327\330\331\"\210 \205\216\332\333!\262\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :depth next-button next-single-property-change 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] 9 (#$ . 7846) nil]) #@81 Select previous node at the same depth as currently selected node, if possible. (defalias 'treemacs-previous-neighbour #[0 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\205R\313\314\"\315\316T\307\"\206$e!\211\203B\313\314\"W\203B\315\316T\307\"\206<e!\262\202%\211\205P\313\314\"U\205P\211\266\202\262\211\205Z\211b\262\206\220\310\211\203\207:\204l C\310\n\204\202\317\320\321\322\323\324#\325\326\325\"!#\210\327\330\331\"\210 \205\216\332\333!\262\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :depth previous-button previous-single-property-change 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] 8 (#$ . 8803) nil]) #@136 Open current file or tag by vertically splitting `next-window'. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-vertical-split #[256 "\305\306 \307 \310\311$\211\205\312\313\"\262\211\205\305\311\314\315\"\316 \317>\204b\320N\204b\321\322D\211\203T :\2049\nC\311 \204O\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210\f\205[\336\337!\262\266\202\202\304\340\341\316 \311\211#!\210\342 \210\343\344!\210\345\267\202\246\346r\347!q\210\314\350\")!\202\272\351r\347!q\210\314\350\")!\202\272\352\311#\202\272\353!\202\272\320N\211\203\263\211!\202\270\354\355\317#\262\203\302\340!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 select-window next-window split-window-vertically other-window 1 #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 120 root-node-open 120 dir-node-closed 120 dir-node-open 120 file-node-closed 136 file-node-open 136 tag-node-closed 152 tag-node-open 152 tag-node 160)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 9777) "P"]) #@138 Open current file or tag by horizontally splitting `next-window'. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-horizontal-split #[256 "\305\306 \307 \310\311$\211\205\312\313\"\262\211\205\305\311\314\315\"\316 \317>\204b\320N\204b\321\322D\211\203T :\2049\nC\311 \204O\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210\f\205[\336\337!\262\266\202\202\304\340\341\316 \311\211#!\210\342 \210\343\344!\210\345\267\202\246\346r\347!q\210\314\350\")!\202\272\351r\347!q\210\314\350\")!\202\272\352\311#\202\272\353!\202\272\320N\211\203\263\211!\202\270\354\355\317#\262\203\302\340!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 select-window next-window split-window-horizontally other-window 1 #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 120 root-node-open 120 dir-node-closed 120 dir-node-open 120 file-node-closed 136 file-node-open 136 tag-node-closed 152 tag-node-open 152 tag-node 160)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 11706) "P"]) #@224 Open current file or tag within the window the file is already opened in. If the file/tag is no visible opened in any window use `next-window' instead. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-no-split #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\374\312\315\316\"\317 \320>\204b\321N\204b\322\323D\211\203T :\2049\nC\312 \204O\324\325\326\327\330\331#\332\333\332\"!#\210\334\335\336\"\210\f\205[\337\340!\262\266\202\202\373\341 \203\201\342 r\343\344\"\216\345\312\211 \346=\203|\347\202}\346#\210*\210\350\211\205\212\351!\262\211\205\223\352!\262\211\205\234\353!\262\206\247\354\317 \312\211#!\210\355\267\202\335\356r\357!q\210\315\360\")!\202\361\361r\357!q\210\315\360\")!\202\361\362\312#\202\361\363!\202\361\321N\211\203\352\211!\202\357\364\365\320#\262\203\371\350!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-position text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 one-window-p internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] split-window left right select-window treemacs--nearest-path get-file-buffer get-buffer-window next-window #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 175 root-node-open 175 dir-node-closed 175 dir-node-open 175 file-node-closed 191 file-node-open 191 tag-node-closed 207 tag-node-open 207 tag-node 215)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 13642) "P"]) #@133 Open current file or tag in window selected by `ace-window'. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-ace #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\343\312\315\316\"\317 \320>\204b\321N\204b\322\323D\211\203T :\2049\nC\312 \204O\324\325\326\327\330\331#\332\333\332\"!#\210\334\335\336\"\210\f\205[\337\340!\262\266\202\202\342\341 \203\201\342 r\343\344\"\216\345\312\211 \346=\203|\347\202}\346#\210*\210\350\351\352!\206\216\353\317 \312\211#!\210\354\267\202\304\355r\356!q\210\315\357\")!\202\330\360r\356!q\210\315\357\")!\202\330\361\312#\202\330\362!\202\330\321N\211\203\321\211!\202\326\363\364\320#\262\203\340\350!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-position text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 one-window-p internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] split-window left right select-window aw-select "Select window" next-window #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 150 root-node-open 150 dir-node-closed 150 dir-node-open 150 file-node-closed 166 file-node-open 166 tag-node-closed 182 tag-node-open 182 tag-node 190)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 15986) "P"]) #@137 Open current file or tag in window selected by `get-mru-window'. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-in-most-recently-used-window #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\346\312\315\316\"\317 \320>\204b\321N\204b\322\323D\211\203T :\2049\nC\312 \204O\324\325\326\327\330\331#\332\333\332\"!#\210\334\335\336\"\210\f\205[\337\340!\262\266\202\202\345\341 \203\201\342 r\343\344\"\216\345\312\211 \346=\203|\347\202}\346#\210*\210\350\351\352 \312\353#\206\221\354\317 \312\211#!\210\355\267\202\307\356r\357!q\210\315\360\")!\202\333\361r\357!q\210\315\360\")!\202\333\362\312#\202\333\363!\202\333\321N\211\203\324\211!\202\331\364\365\320#\262\203\343\350!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-position text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 one-window-p internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] split-window left right select-window get-mru-window selected-frame :not-selected next-window #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 153 root-node-open 153 dir-node-closed 153 dir-node-open 153 file-node-closed 169 file-node-open 169 tag-node-closed 185 tag-node-open 185 tag-node 193)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 18139) "P"]) #@149 Open current file by horizontally splitting window selected by `ace-window'. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-ace-horizontal-split #[256 "\305\306 \307 \310\311$\211\205\312\313\"\262\211\205\313\311\314\315\"\316 \317>\204b\320N\204b\321\322D\211\203T :\2049\nC\311 \204O\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210\f\205[\336\337!\262\266\202\202\312\340\341\342!\206o\343\316 \311\211#!\210\344 \210\345\346!\210\347\267\202\254\350r\351!q\210\314\352\")!\202\300\353r\351!q\210\314\352\")!\202\300\354\311#\202\300\355!\202\300\320N\211\203\271\211!\202\276\356\357\317#\262\203\310\340!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 select-window aw-select "Select window" next-window split-window-horizontally other-window 1 #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 126 root-node-open 126 dir-node-closed 126 dir-node-open 126 file-node-closed 142 file-node-open 142 tag-node-closed 158 tag-node-open 158 tag-node 166)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 20348) "P"]) #@147 Open current file by vertically splitting window selected by `ace-window'. Stay in current window with a prefix argument ARG. (fn &optional ARG) (defalias 'treemacs-visit-node-ace-vertical-split #[256 "\305\306 \307 \310\311$\211\205\312\313\"\262\211\205\313\311\314\315\"\316 \317>\204b\320N\204b\321\322D\211\203T :\2049\nC\311 \204O\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210\f\205[\336\337!\262\266\202\202\312\340\341\342!\206o\343\316 \311\211#!\210\344 \210\345\346!\210\347\267\202\254\350r\351!q\210\314\352\")!\202\300\353r\351!q\210\314\352\")!\202\300\354\311#\202\300\355!\202\300\320N\211\203\271\211!\202\276\356\357\317#\262\203\310\340!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node tag-node-closed tag-node-open file-node-closed file-node-open dir-node-closed dir-node-open root-node-closed root-node-open) :treemacs-visit-action "%s" "Node is neither a file, a directory or a tag - 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 select-window aw-select "Select window" next-window split-window-vertically other-window 1 #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 126 root-node-open 126 dir-node-closed 126 dir-node-open 126 file-node-closed 142 file-node-open 142 tag-node-closed 158 tag-node-open 158 tag-node 166)) dired marker-buffer :path find-file treemacs--visit-or-expand/collapse-tag-node treemacs--goto-tag error "No match achieved even though button's state %s was part of the set of valid states %s"] 12 (#$ . 22340) "P"]) #@154 Run `treemacs-default-visit-action' for the current button. A potential prefix ARG is passed on to the executed action, if possible. (fn &optional ARG) (defalias 'treemacs-visit-node-default #[256 "\301\"\207" [treemacs-default-visit-action funcall-interactively] 4 (#$ . 24326) "P"]) #@332 Run the appropriate RET action for the current button. In the default configuration this usually means to open the content of the currently selected node. A potential prefix ARG is passed on to the executed action, if possible. This function's exact configuration is stored in `treemacs-RET-actions-config'. (fn &optional ARG) (defalias 'treemacs-RET-action #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315\316\"\262\211\205\200\211\236A\211\203D\211!\210 \317=\205~\320 \210\315`\321\"\242\322=\205~\323u\202~\324\325\326\327\"\330\331#D\211\203u\n:\204Z C\312\f\204p\332\333\325\334\330\335#\326\336\326\"!#\210\337\340\341\"\210 \205|\342\343!\262\262\207" [treemacs-RET-actions-config major-mode treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state treemacs-mode beginning-of-line display image 1 "No RET action defined for node of type %s." propertize format "%s" face font-lock-type-face message "%s %s" "[Treemacs]" ((:inherit warning :weight bold)) apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 11 (#$ . 24621) "P"]) #@289 Define the behaviour of `treemacs-RET-action'. Determines that a button with a given STATE should lead to the execution of ACTION. The list of possible states can be found in `treemacs-valid-button-states'. ACTION should be one of the `treemacs-visit-node-*' commands. (fn STATE ACTION) (defalias 'treemacs-define-RET-action #[514 "\301\"BB\211\207" [treemacs-RET-actions-config assq-delete-all] 5 (#$ . 25916)]) #@289 Define the behaviour of `treemacs-TAB-action'. Determines that a button with a given STATE should lead to the execution of ACTION. The list of possible states can be found in `treemacs-valid-button-states'. ACTION should be one of the `treemacs-visit-node-*' commands. (fn STATE ACTION) (defalias 'treemacs-define-TAB-action #[514 "\301\"BB\211\207" [treemacs-TAB-actions-config assq-delete-all] 5 (#$ . 26344)]) #@343 Run the appropriate COLLAPSE action for the current button. In the default configuration this usually means to close the content of the currently selected node. A potential prefix ARG is passed on to the executed action, if possible. This function's exact configuration is stored in `treemacs-COLLAPSE-actions-config'. (fn &optional ARG) (defalias 'treemacs-COLLAPSE-action #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315\316\"\262\211\205\200\211\236A\211\203D\211!\210 \317=\205~\320 \210\315`\321\"\242\322=\205~\323u\202~\324\325\326\327\"\330\331#D\211\203u\n:\204Z C\312\f\204p\332\333\325\334\330\335#\326\336\326\"!#\210\337\340\341\"\210 \205|\342\343!\262\262\207" [treemacs-COLLAPSE-actions-config major-mode treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state treemacs-mode beginning-of-line display image 1 "No COLLAPSE action defined for node of type %s." propertize format "%s" face font-lock-type-face message "%s %s" "[Treemacs]" ((:inherit warning :weight bold)) apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 11 (#$ . 26772) "P"]) #@294 Define the behaviour of `treemacs-COLLAPSE-action'. Determines that a button with a given STATE should lead to the execution of ACTION. The list of possible states can be found in `treemacs-valid-button-states'. ACTION should be one of the `treemacs-visit-node-*' commands. (fn STATE ACTION) (defalias 'treemacs-define-COLLAPSE-action #[514 "\301\"BB\211\207" [treemacs-COLLAPSE-actions-config assq-delete-all] 5 (#$ . 28093)]) #@136 Open current file according to its mime type in an external application. Treemacs knows how to open files on linux, windows and macos. (defalias 'treemacs-visit-node-in-external-application #[0 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315\316\"\262\211\203\201\317\267\202I\320\321\322\323\324\314\211%\"\207\325\326\327\"!\207\312\330\331\312\332\333\326\334\335!\"%)\207\336\337\340!\341\342#D\211\203y\n:\204^ C\312\f\204t\343\344\337\345\341\346#\326\347\326\"!#\210\350\351\352\"\210 \205\200\353\354!\207\355C\211\203\252\n:\204\217 C\312\f\204\245\343\344\337\345\341\346#\326\347\326\"!#\210\350\351\352\"\210 \205\261\353\354!\207" [system-type process-connection-type treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :path #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (windows-nt 38 darwin 49 gnu/linux 56)) w32-shell-execute "open" replace-regexp-in-string "/" "\\" shell-command format "open \"%s\"" start-process "" "sh" "-c" "xdg-open %s; sleep 1" shell-quote-argument "Don't know how to open files on %s." propertize symbol-name face font-lock-string-face message "%s %s" "[Treemacs]" ((:inherit warning :weight bold)) apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face "Nothing to open here."] 10 (#$ . 28536) nil]) #@110 Quit treemacs with `bury-buffer'. With a prefix ARG call `treemacs-kill-buffer' instead. (fn &optional ARG) (defalias 'treemacs-quit #[256 "\211\203\300 \207\301 \210\302\303!\207" [treemacs-kill-buffer bury-buffer run-hooks treemacs-quit-hook] 3 (#$ . 30070) "P"]) #@27 Kill the treemacs buffer. (defalias 'treemacs-kill-buffer #[0 "\205\301 \203\302 \210\202\303 \210\304\305!\207" [treemacs--in-this-buffer one-window-p kill-this-buffer kill-buffer-and-window run-hooks treemacs-kill-hook] 2 (#$ . 30345) nil]) #@241 Delete node at point. A delete action must always be confirmed. Directories are deleted recursively. By default files are deleted by moving them to the trash. With a prefix ARG they will instead be wiped irreversibly. (fn &optional ARG) (defalias 'treemacs-delete #[256 "\3062!\307\310 \311 \312\313$\211\205\314\315\"\262\211\203\352\316\317\"\320>\204Y\321\306\322C\211\203N:\2043 C\313\n\204I\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205U\336\337!\262\"\210\313\340K\210?\316\341\"\325\342\343!!\327\344#\345!\203\261\346\331\347\325\345!\327\350##!\203\214\351\f\"\210\202\221\321\306:\204\226 C\313\n\204\250\323\324\325\326\327\352#\331\353!#\210\333\334\335\"\"\210\202\221\354!\203\355\346\331\355\"!\203\310\351\f\"\210\202\221\321\306:\204\322 C\313\n\204\344\323\324\325\326\327\352#\331\353!#\210\333\334\335\"\"\210\202\221\356!\203*\346\331\357\"!\203\360\315\f#\210\202\221\321\306:\204 C\313\n\204!\323\324\325\326\327\352#\331\353!#\210\333\334\335\"\"\210\202\221\321\306\361C\211\203U:\204: C\313\n\204P\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205\\\336\337!\262C\211\203\206:\204k C\313\n\204\201\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205\215\336\337!\262\"\210\362\315\"\210\313C\363\364\365# \"\210\211\242\211\203\265\211@\366 \"\210A\266\202\202\243\266@\204CA\211\203B\211@\211\243\211\367!B>\204\327\370\371\372D\"\210\211\373H\367!B>\204\352\370\371\372D\"\210\374H\375!\2039\211Crq\210\376D\313#\211\377H\374H\211\203\211\211\201F\201G\201FH\"I\266\210\201H\201I\"\210\211\377\313I\266\211\201F\313I\266*\266A\266\202\202\276\210\315A\211\203\224\211@\211\243\211\367!B>\204`\370\371\372D\"\210\211\373H\367!B>\204s\370\371\372D\"\210\374H\375!\203\213\211Crq\210\201J!\210*\266A\266\202\202G\210)\201K\201L\"\210:\204\247 C\313\n\204\301\323\324\325\326\327\352#\331\201M\325\327\344#\"#\210\333\334\335\"\210)\266E\201N=\205\201O \210\316`\201P\"\242\201Q=\205\373u\202\201RC\211\203:\204\372 C\313\n\204\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205\336\337!\262\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure delete-by-moving-to-trash treemacs--filewatch-index --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state (file-node-open file-node-closed dir-node-open dir-node-closed) throw "Only files and directories can be deleted." 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 ignore :path file-name-nondirectory directory-file-name font-lock-string-face file-symlink-p yes-or-no-p "Remove link '%s -> %s' ? " font-lock-face delete-file font-lock-keyword-face "Cancelled." file-regular-p "Delete '%s' ? " file-directory-p "Recursively delete '%s' ? " delete-directory "Item is neither a file, a link or a directory - treemacs does not know how to delete it. (Maybe it no longer exists?)" treemacs--kill-buffers-after-deletion maphash make-closure #[514 "\300\230\206\303\211GSH\304=\203\202\305P\"\266\202\2056\211@A\306!\210\307\n\"\210\301\301\242B\240\266\202\207" [V0 V1 treemacs--collapsed-filewatch-index s-starts-with\? 47 "/" file-notify-rm-watch remhash] 7 "\n\n(fn WATCHED-PATH WATCH-INFO)"] remhash type-of signal wrong-type-argument treemacs-scope-shelf 1 2 buffer-live-p gethash 3 treemacs-filewatch-mode treemacs--scope-storage cl-struct-treemacs-scope-shelf-tags treemacs-override-workspace treemacs-dom major-mode 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\205+\211@\301\"\210A\266\202\202\207" [treemacs-dom remhash 1 2 3 delete 7] 9 "\n\n(fn IT)"] treemacs-delete-single-node run-hook-with-args treemacs-delete-file-functions "Deleted %s." treemacs-mode beginning-of-line display image "Nothing to delete here."] 21 (#$ . 30602) "P"]) #@320 Create a new file. Enter first the directory to create the new file in, then the new file's name. The pre-selection for what directory to create in is based on the "nearest" path to point - the containing directory for tags and files or the directory itself, using $HOME when there is no path at or near point to grab. (defalias 'treemacs-create-file #[0 "\300\301!\207" [treemacs--create-file/dir t] 2 (#$ . 34865) nil]) #@123 Move file (or directory) at point. Destination may also be a filename, in which case the moved file will also be renamed. (defalias 'treemacs-move-file #[0 "\300\301!\207" [treemacs--copy-or-move :move] 2 (#$ . 35294) nil]) #@124 Copy file (or directory) at point. Destination may also be a filename, in which case the copied file will also be renamed. (defalias 'treemacs-copy-file #[0 "\300\301!\207" [treemacs--copy-or-move :copy] 2 (#$ . 35525) nil]) #@212 Rename the currently selected node. Buffers visiting the renamed file or visiting a file inside a renamed directory and windows showing them will be reloaded. The list of recent files will likewise be updated. (defalias 'treemacs-rename #[0 "\3062\306\307\310 \311 \312\313$\211\205\314\315\"\262\211\204P\316\306\317C\211\203E:\204* C\313\n\204@\320\321\322\323\324\325#\326\327\326\"!#\210\330\331\332\"\210 \205L\333\334!\262\"\210\335\336\"\211\313\337 \340!\f>\204g\341\342\343D\"\210\211\344H\262\345\313\211\211\203\317\211A\262\242\262\262\211\262\203\317\340! >\204\231\341\342\346D\"\210\344H\230\206\266\347\211GSH\350=\203\261\202\264\351P\"\266\204\203\302\313\262\203\317\262\262T\262\202p\266\211\262\262\313\211\211\204\316\306\352C\211\203:\204\355 C\313\n\204\320\321\322\323\324\325#\326\327\326\"!#\210\330\331\332\"\210 \205\333\334!\262\"\210\353!\204O\316\306\354C\211\203D:\204) C\313\n\204?\320\321\322\323\324\325#\326\327\326\"!#\210\330\331\332\"\210 \205K\333\334!\262\"\210\355\356\357!\"\262\360!\211G\361V\203s\211GSH\350=\203s\211\345\362O\202t\211\262\262\363\"\262\353!\203\300\316\306\364\322\324@#D\211\203\265:\204\232 C\313\n\204\260\320\321\322\323\324\325#\326\327\326\"!#\210\330\331\332\"\210 \205\274\333\334!\262\"\210\313\365K\210\366\"\266\367\"\210\315AB\211\203*\211@\211\243\211\340!C>\204\356\341\342\370D\"\210\211\361H\340!C>\204\341\342\370D\"\210\344H\371!\203!\211Drq\210\372 \nE#\210\373p \"\210*\266A\266\202\202\325\210)\374\"\210\375\"\211\203iF\376=\203T\377 \210\335`\201H\"\242\201I=\203T\361u\210\201J \210\201K \211\203h\201L`\"\210\210\210\201M\201N#\210\201O\322\357\201P!!\324@#\322\324@#E\211\203\265:\204\230 C\313\n\204\260\320\321\322\323\324\201Q#\326\327\326\"!#\210\330\331\332\"\210G\205\277\333\201R!\262\266\205\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure cl-struct-treemacs-workspace-tags cl-struct-treemacs-project-tags --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t throw "Nothing to rename 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 :path treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 0 treemacs-project s-starts-with\? 47 "/" "Found nothing to rename here." file-exists-p "The file to be renamed does not exist." treemacs--read-string "New name: " file-name-nondirectory file-name-directory 1 -1 treemacs-join-path "A file named %s already exists." ignore rename-file treemacs--replace-recentf-entry treemacs-scope-shelf buffer-live-p treemacs--on-rename treemacs--do-refresh treemacs--reload-buffers-after-rename treemacs-find-file-node treemacs-mode beginning-of-line font-lock-string-face treemacs-silent-refresh treemacs--scope-storage cl-struct-treemacs-scope-shelf-tags treemacs-override-workspace treemacs-filewatch-mode major-mode treemacs-pulse-on-success display image hl-line-highlight get-buffer-window set-window-point run-hook-with-args treemacs-rename-file-functions "Renamed %s to %s." directory-file-name font-lock-keyword-face treemacs-on-success-pulse-face] 16 (#$ . 35757) nil]) #@323 Create a new directory. Enter first the directory to create the new dir in, then the new dir's name. The pre-selection for what directory to create in is based on the "nearest" path to point - the containing directory for tags and files or the directory itself, using $HOME when there is no path at or near point to grab. (defalias 'treemacs-create-dir #[0 "\300\301!\207" [treemacs--create-file/dir nil] 2 (#$ . 39272) nil]) #@47 Toggle the hiding and displaying of dotfiles. (defalias 'treemacs-toggle-show-dotfiles #[0 "? \211\203L\211@\211\243\211\306!\n>\204\307\310\311D\"\210\211\312H\306!\n>\204.\307\310\311D\"\210\313H\314!\203C\211rq\210\315p\316\"\210*\266A\266\202\202\210\f:\204U C\317\204q\320\321\322\323\324\325#\326\327\203m\330\202n\331\"#\210\332\333\334\"\207" [treemacs-show-hidden-files treemacs--scope-storage cl-struct-treemacs-scope-shelf-tags treemacs-override-workspace treemacs--saved-eldoc-display treemacs-eldoc-display type-of signal wrong-type-argument treemacs-scope-shelf 1 2 buffer-live-p treemacs--do-refresh all nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Dotfiles will now be %s" "displayed." "hidden." add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--no-messages] 9 (#$ . 39704) nil]) #@96 Toggle whether the local treemacs buffer should have a fixed width. See also `treemacs-width.' (defalias 'treemacs-toggle-fixed-width #[0 "\305 \211\203@r\211q\210?\211\205\306\n:\204 C\307\f\204:\310\311\312\313\314\315#\316\317\312\2033\320\2024\321\314\322#\"#\210\323\324\325\")\207\n:\204H C\307\f\204Z\310\311\312\313\314\326#\316\327!#\210\323\324\325\"\207" [treemacs--width-is-locked window-size-fixed treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-get-local-buffer width nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Window width has been %s." "locked" "unlocked" font-lock-string-face add-hook pre-command-hook treemacs--restore-eldoc-after-log ((:inherit warning :weight bold)) "There is no treemacs buffer in the current scope."] 11 (#$ . 40589) nil]) #@127 Select a new value for `treemacs-width'. With a prefix ARG simply reset the width of the treemacs window. (fn &optional ARG) (defalias 'treemacs-set-width #[256 "\211\204 \301\302\303\"!\304!\207" [treemacs-width read-number format "New Width (current = %s): " treemacs--set-width] 5 (#$ . 41450) "P"]) #@46 Copy the absolute path of the node at point. (defalias 'treemacs-copy-absolute-path-at-point #[0 "\3052\354\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315\316\"\262\211\204Z\317\305\320C\211\203O:\2044 C\312\n\204J\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205V\334\335!\262\"\210\211;\204\225\317\305\336C\211\203\212:\204o C\312\n\204\205\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205\221\334\335!\262\"\210\337!\203\256\211GSH\340=\203\251\211\202\254\211\341P\262\342!\210\343\323\325\344#D\211\203\340:\204\305 C\312\n\204\333\321\322\323\324\325\345#\327\330\327\"!#\210\331\332\333\"\210\f\205\347\334\346!\262\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-pulse-on-success --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :path throw "There is nothing to copy 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 "Path at point is not a file." file-directory-p 47 "/" kill-new "Copied absolute path: %s" font-lock-string-face font-lock-keyword-face treemacs-on-success-pulse-face] 11 (#$ . 41764) nil]) #@66 Copy the path of the node at point relative to the project root. (defalias 'treemacs-copy-relative-path-at-point #[0 "\3062\307\310 \311 \312\313$\211\205\314\315\"\262\211\205\316\317\"\262\307\310 \311 \312\313$\211\2050\314\315\"\262\211\2059\320!\262\204u\321\306\322C\211\203j:\204O C\313\n\204e\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205q\336\337!\262\"\210;\204\260\321\306\340C\211\203\245:\204\212 C\313\n\204\240\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205\254\336\337!\262\"\210\341!\203\311\211GSH\342=\203\304\202\307\343P\262\344\345\346!\f>\204\334\347\350\351D\"\210\352H\"!\353\325\327\354#D\211\203:\204\364 C\313\n\204\n\323\324\325\326\327\355#\331\332\331\"!#\210\333\334\335\"\210 \205\336\356!\262\262\266\2020\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure cl-struct-treemacs-project-tags treemacs-pulse-on-success --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :path treemacs-project-of-node throw "There is nothing to copy 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 "Path at point is not a file." file-directory-p 47 "/" kill-new file-relative-name type-of signal wrong-type-argument treemacs-project 2 "Copied relative path: %s" font-lock-string-face font-lock-keyword-face treemacs-on-success-pulse-face] 12 (#$ . 43179) nil]) #@54 Copy the absolute path of the current treemacs root. (defalias 'treemacs-copy-project-path-at-point #[0 "\3062\365\307\310 \311 \312\313$\211\205\314\315\"\262\211\205\316!\262\211\204Y\317\306\320C\211\203N:\2043 C\313\n\204I\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205U\334\335!\262\"\210\336!\f>\204h\337\340\341D\"\210\211\342H;\204\245\317\306\343C\211\203\232:\204 C\313\n\204\225\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205\241\334\335!\262\"\210\344\336!\f>\204\265\337\340\341D\"\210\342H!\345\323\325\346#D\211\203\347:\204\314 C\313\n\204\342\321\322\323\324\325\347#\327\330\327\"!#\210\331\332\333\"\210 \205\356\334\350!\262\262\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure cl-struct-treemacs-project-tags treemacs-pulse-on-success --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs-project-of-node throw "There is nothing to copy 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 type-of signal wrong-type-argument treemacs-project 2 "Project at point is not a file." kill-new "Copied project path: %s" font-lock-string-face font-lock-keyword-face treemacs-on-success-pulse-face] 11 (#$ . 44848) nil]) #@174 Same as `delete-other-windows', but will not delete the treemacs window. If this command is run when the treemacs window is selected `next-window' will also not be deleted. (defalias 'treemacs-delete-other-windows #[0 "\302 r\303\304\"\216\305 \211\306 =\203\307\310 !\210\311 \210\211\2057p\312 \210\204) \2031r\211q\210\313 \210)\314\315\316\"\262\262*\207" [treemacs-follow-after-init treemacs-follow-mode internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] treemacs-get-local-window selected-window select-window next-window delete-other-windows treemacs--setup-buffer treemacs--follow run-hook-with-args treemacs-select-functions exists] 6 (#$ . 46350) nil]) #@441 Temporarily resort the entire treemacs buffer. SORT-METHOD is a cons of a string describing the method and the actual sort value, as returned by `treemacs--sort-value-selection'. SORT-METHOD will be provided when this function is called from `treemacs-resort' and will be interactively read otherwise. This way this function can be bound directly, without the need to call `treemacs-resort' with a prefix arg. (fn &optional SORT-METHOD) (defalias 'treemacs-temp-resort-root #[256 "\211\206\304 \211A\262\242\211\305\306 \210)\n:\204 C\307 \2045\310\311\312\313\314\315#\316\317\312\314\320#\"#\210\321\322\323\")\207" [treemacs-sorting treemacs--no-messages treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--sort-value-selection t treemacs-refresh nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Temporarily resorted everything with sort method '%s.'" font-lock-type-face add-hook pre-command-hook treemacs--restore-eldoc-after-log] 13 (#$ . 47094) nil]) #@436 Temporarily resort the current directory. SORT-METHOD is a cons of a string describing the method and the actual sort value, as returned by `treemacs--sort-value-selection'. SORT-METHOD will be provided when this function is called from `treemacs-resort' and will be interactively read otherwise. This way this function can be bound directly, without the need to call `treemacs-resort' with a prefix arg. (fn &optional SORT-METHOD) (defalias 'treemacs-temp-resort-current-dir #[256 "\211\206\304 \211A\262\242\211\305\306 \307 \310\311$\211\205\312\313\"\262\211\205\222\314\315\"\211\316\267\202\217\317!\210 :\204;\nC\311 \204l\320\321\322\323\324\325#\326\327\322\330\331 T\310\"\206Ve\332\n\310\"\206_d\"\324\333#\322\n\324\334###\210\335\336\337\"\202\220\340!\210\331T\310\"\206\200eb\210\317!\210 :\204\216\nC\311 \204\277\320\321\322\323\324\325#\326\327\322\330\331 T\310\"\206\251e\332\n\310\"\206\262d\"\324\333#\322\n\324\334###\210\335\336\337\"\202\220\314\341\"\211\203\356\211\211\205\327\314\342\"\262\211\205\340\343!\262\204\356\314\341\"\262\202\312\211\203`\344 \345 \331T\310\"\206\377eb\210\340!\210\331T\310\"\206eb\210\317!\210\346\347 \"\210\350!\210 :\204&\nC\311 \204W\320\321\322\323\324\325#\326\327\322\330\331\nT\310\"\206Ae\332 \310\"\206Jd\"\324\333#\322 \324\334###\210\335\336\337\"\266\202\202\212\313\351 \210) :\204n\nC\311 \204\206\320\321\322\323\324\325#\326\352\322\n\324\334#\"#\210\335\336\337\"\262\202\220\311\262\262)\207" [treemacs-sorting treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs--sort-value-selection text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dir-node-closed 47 dir-node-open 115 tag-node 198 tag-node-closed 198 tag-node-open 198 file-node-closed 198 file-node-open 198)) treemacs--expand-dir-node message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Resorted %s with sort method '%s'." buffer-substring-no-properties previous-single-property-change next-single-property-change font-lock-string-face font-lock-type-face add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--collapse-dir-node :parent :path file-directory-p line-number-at-pos window-point set-window-point selected-window goto-line treemacs-refresh "Resorted root directory with sort method '%s'."] 20 (#$ . 48118) nil]) #@552 Select a new permanent value for `treemacs-sorting' and refresh. With a single prefix ARG use the new sort value to *temporarily* resort the (closest) directory at point. With a double prefix ARG use the new sort value to *temporarily* resort the entire treemacs view. Temporary sorting will only stick around until the next refresh, either manual or automatic via `treemacs-filewatch-mode'. Instead of calling this with a prefix arg you can also directly call `treemacs-temp-resort-current-dir' and `treemacs-temp-resort-root'. (fn &optional ARG) (defalias 'treemacs-resort #[256 "\301:\203=\242\211\302\267\2026\243\211\204\303 \266\202A \266\202A\243\211\204/\304 \266\202A \266\202A \266\202A\211 \266\305=\205V\306 \210\307`\310\"\242\311=\205V\312u\207" [major-mode #[0 "\304 \211\211A\262\242\211\305\306 \210)\n:\204 C\307 \2042\310\311\312\313\314\315#\316\317\312\314\320#\"#\210\321\322\323\"\207" [treemacs-sorting treemacs--no-messages treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--sort-value-selection t treemacs-refresh nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Sorting method changed to '%s'." font-lock-type-face add-hook pre-command-hook treemacs--restore-eldoc-after-log] 13] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 14 16 34)) treemacs-temp-resort-current-dir treemacs-temp-resort-root treemacs-mode beginning-of-line get-text-property display image 1] 5 (#$ . 50671) "P"]) #@68 Scroll forward COUNT lines in `next-window'. (fn &optional COUNT) (defalias 'treemacs-next-line-other-window #[256 "\301\302\303 !r\304\305\"\216\306@\307\"\210\310!*\262)\207" [treemacs--ready-to-follow nil internal--before-with-selected-window next-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord scroll-up-line] 5 (#$ . 52214) "p"]) #@69 Scroll backward COUNT lines in `next-window'. (fn &optional COUNT) (defalias 'treemacs-previous-line-other-window #[256 "\301\302\303 !r\304\305\"\216\306@\307\"\210\310!*\262)\207" [treemacs--ready-to-follow nil internal--before-with-selected-window next-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord scroll-down-line] 5 (#$ . 52622) "p"]) #@127 Scroll forward COUNT pages in `next-window'. For slower scrolling see `treemacs-next-line-other-window' (fn &optional COUNT) (defalias 'treemacs-next-page-other-window #[256 "\301\302\303 !r\304\305\"\216\306@\307\"\210\31015\206\311\312\211W\205/\301\313\301!\266\211T\262\202\266\2020\2029db\262*\262)\207" [treemacs--ready-to-follow nil internal--before-with-selected-window next-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord (end-of-buffer) 1 0 scroll-up] 7 (#$ . 53038) "p"]) #@132 Scroll backward COUNT pages in `next-window'. For slower scrolling see `treemacs-previous-line-other-window' (fn &optional COUNT) (defalias 'treemacs-previous-page-other-window #[256 "\301\302\303 !r\304\305\"\216\306@\307\"\210\31015\206\311\312\211W\205/\301\313\301!\266\211T\262\202\266\2020\2029eb\262*\262)\207" [treemacs--ready-to-follow nil internal--before-with-selected-window next-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord (beginning-of-buffer) 1 0 scroll-down] 7 (#$ . 53605) "p"]) #@37 Move to the next project root node. (defalias 'treemacs-next-project #[0 "\305\306 \307\"\211`U\204\211dU\203B\310C\211\203::\204 C\311\n\2045\312\313\314\315\316\317#\320\321\320\"!#\210\322\323\324\"\210 \205A\325\326!\207\211b\210\327\f!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-recenter-after-project-jump next-single-char-property-change point-at-eol :project "There is no next project to move to." nil 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 treemacs--maybe-recenter] 9 (#$ . 54188) nil]) #@37 Move to the next project root node. (defalias 'treemacs-previous-project #[0 "\305\306 \307\"\211`U\204\211eU\203B\310C\211\203::\204 C\311\n\2045\312\313\314\315\316\317#\320\321\320\"!#\210\322\323\324\"\210 \205A\325\326!\207\211b\210\327\f!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-recenter-after-project-jump previous-single-char-property-change point-at-bol :project "There is no previous project to move to." nil 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 treemacs--maybe-recenter] 9 (#$ . 54939) nil]) #@39 Give the project at point a new name. (defalias 'treemacs-rename-project #[0 "\306\3072|\310\311 \312 \313\306$\211\205\314\315\"\262\211\205\316!\262\211\203C\317! >\2044\320\321\322D\"\210\211\323H\324\317! >\203U\317! >\204O\320\321\322D\"\210\325H\202V\n\306#\326\327\"\330\331\317! >\204p\320\321\322D\"\210\323H\"\306\310\311 \312 \313\306$\211\205\206\314\315\"\262\332 \211\205\301\211\205\301\326\333\"\334\335\313\"\206\240d\315\"\211\203\277\326\333\"W\203\277\334\335\313\"\206\270d\315\"\262\202\242\262\262\211\205\313\336\337\"\262\211\205\326\333\"\340\341T\313\"\206\340e!\211\203\376\326\333\"W\203\376\340\341T\313\"\206\370e!\262\202\341\211\205\f\326\333\"U\205\f\211\266\202\262\211\205\336\337\"\262\211\205#\326\337\"\262\211\205.\326\327\"\262\211\2059\326\342\"\262\211\203G\326\343\"\202R\211\205P\344!\262\345 \211\205r\346!r\347\350\"\216\351@\352\"\210\323\353\354 \312 \"]*\262\355 !\203\267\356\307\357\360\361\362#D\211\203\253\f:\204\217 C\306@\204\246\363\364\360\365\361\366#\367\370\367\"!#\210\371\372\373\"\210A\205\263\374\375!\262\"\210  \230\203\367\356\307\376C\211\203\353\f:\204\317 C\306@\204\346\363\364\360\365\361\366#\367\370\367\"!#\210\371\372\373\"\210A\205\363\374\375!\262\"\210\317! >\204\320\321\322D\"\210\211\323 I\266\306B\335 \313\"\206db\210\311 \312 |\210\377!\210 \201I=\203\213\201J\324\317! >\203X\317! >\204Q\320\321\322D\"\210\325H\202Z\n\306#!\210\201K\324\317! >\203\204\317! >\204}\320\321\322D\"\210\325H\202\206\n\306#!\210\201L\267\202j\201M\306\"\211\203\321C\201N=\203\274\201O \210\326`\201P\"\242\201Q=\203\274\323u\210\201R \210\201S \211\203\320\201T`\"\210\210\210\202\211\324D\306#\2038E\204\366\201UF\201V\201W!!\"\2048\201M\306\"\211\2034C\201N=\203\201O \210\326`\201P\"\242\201Q=\203\323u\210\201R \210\201S \211\2033\201T`\"\210\210\210\202\211\201X\203\213\211 !\203\213\201M \306\"\211\203\206C\201N=\203q\201O \210\326`\201P\"\242\201Q=\203q\323u\210\201R \210\201S \211\203\205\201T`\"\210\210\266\202\211\203\333\211!\203\333\201M\306\"\211\203\326C\201N=\203\301\201O \210\326`\201P\"\242\201Q=\203\301\323u\210\201R \210\201S \211\203\325\201T`\"\210\210\266\202\211\211;\203\n\201Y!\211G\323V\203\211GSH\201Z=\203\211\201[\201\\O\202\211\262\202u\211@\201]=\203\"G\325V\205u\201^!\202u\211@;\203<G\325V\2037\201^!\202u@\202u\317@! >\203mG\325V\203T\201^!\202u\317@! >\204f\320\321\322@D\"\210@\325H\202u\201_\201`\"\262!\204\211\211;\203\254\201Y!\211G\323V\203\246\211GSH\201Z=\203\246\211\201[\201\\O\202\247\211\262\202\211@\201]=\203\304G\325V\205\201^!\202\211@;\203\336G\325V\203\331\201^!\202@\202\317@! >\203G\325V\203\366\201^!\202\317@! >\204\320\321\322@D\"\210@\325H\202\201_\201`\"\262\262\202w\201M\306\"\211\203[C\201N=\203F\201O \210\326`\201P\"\242\201Q=\203F\323u\210\201R \210\201S \211\203Z\201T`\"\210\210\266\202\211\201a!\210\202\211\204ub\210\202\211\201b1\206\201a!0\210\202\211\306\266C\201N=\203\250\201O \210\326`\201P\"\242\201Q=\203\250\323u\210\326`\201c\"\203\271\335`\201c\"b\210\211\203\351`\346!r\347\201d\"\216\351@\352\"\210\201[G\201eS!\210)\201T\201f \"\210*\266\201g\201h#\210\201i\360\361\362#\360 \361\362#E\211\203/\f:\204 C\306@\204*\363\364\360\365\361\201j#\367\370\367\"!#\210\371\372\373\"\210H\2059\374\201k!\262\266\212)\266\204\202y\201lC\211\203o\f:\204S C\306@\204j\363\364\360\365\361\366#\367\370\367\"!#\210\371\372\373\"\210A\205w\374\375!\262\2620\210)C\201N=\205\234\201O \210\326`\201P\"\242\201Q=\205\234\323u\207" [buffer-read-only cl-struct-treemacs-project-tags treemacs--project-positions treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display nil --cl-block-__body__-- text-property-not-all point-at-bol point-at-eol button copy-marker t treemacs-project-of-node type-of signal wrong-type-argument treemacs-project 1 gethash 2 get-text-property :state treemacs--read-string "New name: " point-marker :depth next-button next-single-property-change button-get :path previous-button previous-single-property-change :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 count-screen-lines window-start treemacs--is-name-invalid\? throw "'%s' is an invalid name." propertize face font-lock-type-face message "%s %s" "[Treemacs]" ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face "The new name is the same as the old name." treemacs--add-root-element treemacs--no-messages treemacs-pulse-on-failure treemacs--last-highlight major-mode treemacs-dom treemacs-show-hidden-files treemacs-dotfiles-regex scroll-margin treemacs-pulse-on-success root-node-open treemacs--collapse-root-node treemacs--expand-root-node #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 659 root-node-open 659 file-node-closed 725 file-node-open 725 dir-node-closed 725 dir-node-open 725 tag-node 1376 tag-node-closed 1376 tag-node-open 1376)) 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 butlast error "Path type did not match: %S" treemacs-goto-node (error) invisible #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] recenter selected-window run-hook-with-args treemacs-rename-project-functions "Renamed project %s to %s." font-lock-keyword-face treemacs-on-success-pulse-face "There is no project here."] 25 (#$ . 55702) nil]) #@274 Add a project at given PATH to the current workspace. The PATH's directory name will be used as a NAME for a project. The NAME can (or must) be entered manually with either a prefix arg or if a project with the auto-selected name already exists. (fn PATH &optional NAME) (defalias 'treemacs-add-project-to-workspace #[513 "\306\307!!\310\311 \312!>\204\313\314\315D\"\210\211\316H\262\317\310\211\211\203b\211A\262\242\262\262\211\262\203b\312! >\204G\313\314\320D\"\210\321H\230\203U\310\262\203b\262\262T\262\202 \266\211\262\n\204o\211\203\202\322\323?\205|\306\307!!\"\266\203\202\205\266\203\324\"\211:\203.\211\242\211\325\267\266\202/\243\211:\203\363\211\242\243\211\204\361\326\327\312! >\204\271\313\314\320D\"\210\321H\330\331#D\211\203\347 :\204\314\fC\310 \204\342\332\333\327\334\330\335#\336\337\336\"!#\210\340\341\342\"\210.\205\357\343\344!\266\266\266\202/\243\211:\203D\211\242\243\211\204B\345\327 \330\346#E\211\2038 :\204\fC\310 \2043\332\333\327\334\330\347#\336\337\336\"!#\210\340\341\342\"\210/\205@\343\350!\266\266\266\202/\243\211:\203\223\211\242\243\211\204\221\351\327\330\346#D\211\203\207 :\204l\fC\310 \204\202\332\333\327\334\330\347#\336\337\336\"!#\210\340\341\342\"\210/\205\217\343\350!\266\266\266\202/\243\211:\203\211\242\243\211\204\352\312! >\203\306\312! >\204\300\313\314\320D\"\210\316H\202\3070\310#b\210\353\327\312! >\204\336\313\314\320D\"\210\316H\330\346#D\211\203\f :\204\361\fC\310 \204\332\333\327\334\330\347#\336\337\336\"!#\210\340\341\342\"\210/\205\343\350!\266\266\266\202/\243\211:\203\243\211\242\243\211\204\241\352\312! >\203K\312! >\204E\313\314\320D\"\210\316H\202L0\310#b\210\354\327\312! >\204c\313\314\320D\"\210\321H\330\331#\327\n\330\346#E\211\203\227 :\204|\fC\310 \204\222\332\333\327\334\330\347#\336\337\336\"!#\210\340\341\342\"\210/\205\237\343\350!\266\266\266\202/\243\211:\203(\211\242\243\211\204&\352\312! >\203\326\312! >\204\320\313\314\320D\"\210\316H\202\3270\310#b\210\355\327\312! >\204\356\313\314\320D\"\210\321H\330\331#D\211\203 :\204\fC\310 \204\332\333\327\334\330\347#\336\337\336\"!#\210\340\341\342\"\210/\205$\343\350!\266\266\266\202/\210\210\310\207" [cl-struct-treemacs-workspace-tags cl-struct-treemacs-project-tags current-prefix-arg treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages file-name-nondirectory directory-file-name nil treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 0 treemacs-project 1 treemacs--read-string "Project Name: " treemacs-do-add-project-to-workspace #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (success 152 invalid-path 248 invalid-name 329 duplicate-project 408 includes-project 541 duplicate-name 680)) "Added project '%s' to the workspace." propertize face font-lock-type-face message "%s %s" "[Treemacs]" font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face "Path '%s' is invalid: %s" font-lock-string-face ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face "Name '%s' is invalid." gethash "A project for '%s' already exists. Projects may not overlap." "Project '%s' is included in '%s'. Projects May not overlap." "A project with the name %s already exists." treemacs-pulse-on-success treemacs-pulse-on-failure treemacs--project-positions] 16 (#$ . 62073) "DProject root: "]) (byte-code "\300\301\302\"\210\303\301\302\304#\207" [defalias treemacs-add-project treemacs-add-project-to-workspace make-obsolete "v2.2.1"] 4) #@129 Remove the project at point from the current workspace. With a prefix ARG select project to remove by name. (fn &optional ARG) (defalias 'treemacs-remove-project-from-workspace #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315!\262\312\204$\204H\316 \262\306\307 \310 \311\312$\211\2059\313\314\"\262\211\205B\315!\262\232?\262\211\203!\312\306\307 \310 \311\312$\211\205^\313\314\"\262\317 \211\205\231\211\205\231\320\321\"\322\323\311\"\206xd\314\"\211\203\227\320\321\"W\203\227\322\323\311\"\206\220d\314\"\262\202z\262\262\211\205\243\324\325\"\262\211\205\346\320\321\"\326\327T\311\"\206\270e!\211\203\326\320\321\"W\203\326\326\327T\311\"\206\320e!\262\202\271\211\205\344\320\321\"U\205\344\211\266\202\262\211\205\360\324\325\"\262\211\205\373\320\325\"\262\211\205\320\330\"\262\211\205\320\331\"\262\211\203\320\332\"\202*\211\205(\333!\262\334 \211\205J\335!r\336\337\"\216\340@\341\"\210\342\343\344 \310 \"]*\262\345\f!\210\346\267\202\250\347\312\"\211\203\202 \350=\203s\351 \210\320`\352\"\242\353=\203s\342u\210\354 \210\355 \211\203\201\356`\"\210\210\210\202\307\357\n\312#\203\317 \204\236\360\f\361\362!!\"\204\317\347\312\"\211\203\313 \350=\203\274\351 \210\320`\352\"\242\353=\203\274\342u\210\354 \210\355 \211\203\312\356`\"\210\210\210\202\307\363\203\211 !\203\347 \312\"\211\203\n \350=\203\373\351 \210\320`\352\"\242\353=\203\373\342u\210\354 \210\355 \211\203 \356`\"\210\210\266\202\307\203N\211!\203N\347\312\"\211\203I \350=\203:\351 \210\320`\352\"\242\353=\203:\342u\210\354 \210\355 \211\203H\356`\"\210\210\266\202\307\211;\203u\364!\211G\342V\203o\211GSH\365=\203o\211\366\367O\202p\211\262\202\326\211@\370=\203\211G\371V\205\326\372!\202\326\211@;\203\241G\371V\203\234\372!\202\326@\202\326\373@! >\203\320G\371V\203\267\372!\202\326\373@! >\204\311\374\375\376@D\"\210@\371H\202\326\377\201F\"\262!\204l\211\211;\203\364!\211G\342V\203\377\211GSH\365=\203\377\211\366\367O\202\211\262\202e\211@\370=\203G\371V\205e\372!\202e\211@;\2031G\371V\203,\372!\202e@\202e\373@! >\203_G\371V\203G\372!\202e\373@! >\204X\374\375\376@D\"\210@\371H\202e\377\201F\"\262\262\202\330\347\312\"\211\203\231 \350=\203\212\351 \210\320`\352\"\242\353=\203\212\342u\210\354 \210\355 \211\203\230\356`\"\210\210\266\202\307\201G!\210\202\307\204\263b\210\202\307\201H1\304\201G!0\210\202\307\312\266 \350=\203\335\351 \210\320`\352\"\242\353=\203\335\342u\210\320`\201I\"\203\356\323`\201I\"b\210\211\205`\335!r\336\201J\"\216\340@\341\"\210\366@\201KS!\210)\356\201L \"*\262\262\266\212)\202$\345!\211\201M\267\202\370\201N \210\201O\201P\373! >\204G\374\375\376D\"\210\342H\201Q\201R#D\211\203\226A:\204aBCA\312BC\204\213\201S\201T\201P\201U\201Q\201V#\201W\201X\201W\"!#\210\201Y\201Z\201[\"\210D\205\242\201\\\201]!\207\201^C\211\203\353A:\204\266BCA\312BC\204\340\201S\201T\201P\201U\201Q\201_#\201W\201X\201W\"!#\210\201Y\201Z\201[\"\210E\205\367\201\\\201`!\207\211:\205\201\211\242\211\201a=\205\243\211:\205}\211\242\243\211?\205{\201b\201P\201Q\201c#D\211\203kA:\2046BCA\312BC\204`\201S\201T\201P\201U\201Q\201_#\201W\201X\201W\"!#\210\201Y\201Z\201[\"\210E\205w\201\\\201`!\262\262\266\202\262\262\207" [treemacs--ready-to-follow major-mode treemacs-dom treemacs-show-hidden-files treemacs-dotfiles-regex cl-struct-treemacs-project-tags text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs-project-of-node treemacs--select-project-by-name 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 treemacs-do-remove-project-from-workspace #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 341 root-node-open 341 file-node-closed 390 file-node-open 390 dir-node-closed 390 dir-node-open 390 tag-node 926 tag-node-closed 926 tag-node-open 926)) treemacs-find-file-node treemacs-mode beginning-of-line display image hl-line-highlight get-buffer-window set-window-point gethash 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 signal wrong-type-argument treemacs-project error scroll-margin treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-success treemacs-pulse-on-failure "Path type did not match: %S" treemacs-goto-node (error) invisible #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] recenter selected-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (success 1068 cannot-delete-last-project 1187)) whitespace-cleanup "Removed project %s from the workspace." propertize face font-lock-type-face message "%s %s" "[Treemacs]" font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face "Cannot delete the last project." ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face invalid-project "Cannot delete project: %s" font-lock-string-face] 20 (#$ . 65862) "P"]) #@25 Create a new workspace. (defalias 'treemacs-create-workspace #[0 "\306 \211:\205'\211\242\211\307\267\202$\243\211:\205l\211\242\243\211?\205j\310\311\312!>\2041\313\314\315D\"\210\316H\317\320#D\211\203_ :\204D\nC\321 \204Z\322\323\311\324\317\325#\326\327\326\"!#\210\330\331\332\"\210\f\205f\333\334!\262\262\266\202\262\202%\243\211:\205\275\211\242\243\211?\205\273\335\311\317\336#D\211\203\260 :\204\225\nC\321 \204\253\322\323\311\324\317\337#\326\327\326\"!#\210\330\331\332\"\210 \205\267\333\340!\262\262\266\202\262\202%\243\211:\205\211\242\243\211?\205\341\311\312!>\204\344\313\314\315D\"\210\316H\317\336#D\211\203 :\204\367\nC\321 \204 \322\323\311\324\317\337#\326\327\326\"!#\210\330\331\332\"\210 \205\333\340!\262\262\266\202\262\202%\321\262\207" [cl-struct-treemacs-workspace-tags treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-success treemacs-pulse-on-failure treemacs-do-create-workspace #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (success 15 invalid-name 113 duplicate-name 194)) "Workspace %s successfully created." propertize type-of signal wrong-type-argument treemacs-workspace 1 face font-lock-type-face nil message "%s %s" "[Treemacs]" font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face "Name '%s' is invalid." font-lock-string-face ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face "A workspace with the name %s already exists."] 14 (#$ . 71742) nil]) #@21 Delete a workspace. (defalias 'treemacs-remove-workspace #[0 "\306\307\310\"\211\311=\203;\312C\211\2033:\204 C\307\n\204.\313\314\315\316\317\320#\321\322\321\"!#\210\323\324\325\"\210 \205:\326\327!\207\211:\203\376\211\242\211\330\267\202\374\243\211:\205\224\211\242\243\211?\205\222\331\315\317\332#D\211\203\207:\204l C\307\n\204\202\313\314\315\316\317\320#\321\322\321\"!#\210\323\324\325\"\210 \205\216\326\327!\262\262\266\202\207\243\211:\205\373\211\242\243\211:\205\371\211\243\211?\205\367\333\315\334!\f>\204\276\335\336\337D\"\210\340H\317\332#D\211\203\354:\204\321 C\307\n\204\347\313\314\315\316\317\341#\321\322\321\"!#\210\323\324\325\"\210 \205\363\326\342!\262\262\262\266\202\207\307\207\211\343=\205\307\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure cl-struct-treemacs-workspace-tags treemacs-pulse-on-success treemacs-do-remove-workspace nil :ask-to-confirm only-one-workspace "You cannot delete the last workspace." 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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (workspace-not-found 72 success 149)) "Workspace with name '%s' does not exist" font-lock-type-face "Workspace %s was deleted." type-of signal wrong-type-argument treemacs-workspace 1 font-lock-keyword-face treemacs-on-success-pulse-face user-cancel] 15 (#$ . 73401) nil]) #@379 Select a different workspace for treemacs. With a prefix ARG clean up buffers after the switch. A single prefix argument will delete all file visiting buffers, 2 prefix arguments will clean up all open buffers (except for treemacs itself and the scratch and messages buffers). Without a prefix argument `treemacs-workspace-switch-cleanup' will be followed instead. (fn ARG) (defalias 'treemacs-switch-workspace #[257 "\306 \211\307=\2039\310C\211\2031:\204 C\311\n\204,\312\313\314\315\316\317#\320\321\320\"!#\210\322\323\324\"\210 \2058\325\326!\207\211:\205\341\211\242\211\327=\205\337\243\211:\205\335\211\242\243\211?\205\333\330:\203\217\242\211\331\267\202\211\243\211\204r\332\202s\f\262\202\212\243\211\204\203\333\202\204\f\262\202\212\f\262\202\220\f!\210\334\314\335! >\204\243\336\337\340D\"\210\341H!D\211\203\317:\204\264 C\311\n\204\312\312\313\314\315\316\342#\320\321\320\"!#\210\322\323\324\"\210$\205\327\325\343!\262\262\266\202\262\262\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-workspace-switch-cleanup cl-struct-treemacs-workspace-tags treemacs-do-switch-workspace only-one-workspace "There are no other workspaces to select." nil 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 success treemacs--maybe-clean-buffers-on-workspace-switch #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 103 16 120)) files all "Selected workspace %s." type-of signal wrong-type-argument treemacs-workspace 1 font-lock-keyword-face treemacs-on-success-pulse-face treemacs-pulse-on-success] 15 (#$ . 75026) "P"]) #@297 Set the current workspace as the default fallback. With a non-nil prefix ARG choose the fallback instead. The fallback workspace is the one treemacs will select when it is opened for the first time and the current file at the time is not part of any of treemacs' workspaces. (fn &optional ARG) (defalias 'treemacs-set-fallback-workspace #[256 "\3062\240\211\203 \307 \202\310 \211\204I\311\306\312C\211\203>:\204# C\313\n\2049\314\315\316\317\320\321#\322\323\322\"!#\210\324\325\326\"\210 \205E\327\330!\262\"\210\331\f\332\333\"\"\334 \210\335\316\336! >\204e\337\340\341D\"\210\342H\320\343#D\211\203\223:\204x C\313\n\204\216\314\315\316\317\320\344#\322\323\322\"!#\210\324\325\326\"\210&\205\233\327\345!\262\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs--workspaces cl-struct-treemacs-workspace-tags --cl-block-__body__-- treemacs--select-workspace-by-name treemacs-current-workspace throw "There is no workspace with that name." nil 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 sort make-closure #[514 "\300\232\207" [V0] 4 "\n\n(fn WS _)"] treemacs--persist "Selected workspace %s as fallback." type-of signal wrong-type-argument treemacs-workspace 1 font-lock-type-face font-lock-keyword-face treemacs-on-success-pulse-face treemacs-pulse-on-success] 12 (#$ . 76877) "P"]) #@31 Select a workspace to rename. (defalias 'treemacs-rename-workspace #[0 "\306 \211:\205\327\211\242\211\307\267\202\324\243\211:\205~\211\242\243\211:\205|\211\242\243\211?\205z\310\311\312\313#\311\314!>\204A\315\316\317D\"\210\320H\312\313#E\211\203o :\204T\nC\321 \204j\322\323\311\324\312\325#\326\327\326\"!#\210\330\331\332\"\210\f\205v\333\334!\262\266\202\266\202\266\202\262\202\325\243\211:\205\317\211\242\243\211?\205\315\335\311\312\336#D\211\203\302 :\204\247\nC\321 \204\275\322\323\311\324\312\337#\326\327\326\"!#\210\330\331\332\"\210 \205\311\333\340!\262\262\266\202\262\202\325\321\262\207" [cl-struct-treemacs-workspace-tags treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-success treemacs-pulse-on-failure treemacs-do-rename-workspace #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (success 15 invalid-name 131)) "Workspace %s successfully renamed to %s." propertize face font-lock-type-face type-of signal wrong-type-argument treemacs-workspace 1 nil message "%s %s" "[Treemacs]" font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face "Name '%s' is invalid." font-lock-string-face ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face] 17 (#$ . 78434) nil]) #@31 Refresh the project at point. (defalias 'treemacs-refresh #[0 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203 \312\313p\314!\")\207 :\204(\nC\310 \204:\315\316\317\320\321\322#\323\324!#\210\325\326\327\"\207" [treemacs--no-recenter treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs--do-refresh treemacs-project-of-node message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format "There is nothing to refresh." add-hook pre-command-hook treemacs--restore-eldoc-after-log] 7 (#$ . 79853) nil]) #@122 Close the project at point. With a prefix ARG also forget about all the nodes opened in the project. (fn &optional ARG) (defalias 'treemacs-collapse-project #[256 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315!\262\211\203\214\316\317!>\203=\317!>\2047\320\321\322D\"\210\323H\202> \312#\324\325\"\n>\203X\312\211b\210\326\"\210\327\330!\210\210\331C\211\203\203\f:\204g C\312*\204~\332\333\334\335\336\337#\340\341\340\"!#\210\342\343\344\"\210+\205\213\345\346!\207\347C\211\203\266\f:\204\232 C\312*\204\261\332\333\334\335\336\350#\340\341\340\"!#\210\342\343\344\"\210,\205\276\345\351!\207" [cl-struct-treemacs-project-tags treemacs--project-positions treemacs--open-node-states treemacs--last-highlight treemacs--saved-eldoc-display treemacs-eldoc-display text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs-project-of-node gethash type-of signal wrong-type-argument treemacs-project 2 get-text-property :state treemacs--collapse-root-node treemacs--maybe-recenter on-distance "Collapsed current project" message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face "There is nothing to close here." ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face treemacs--no-messages treemacs-pulse-on-success treemacs-pulse-on-failure] 10 (#$ . 80504) "P"]) #@119 Collapses all projects. With a prefix ARG also forget about all the nodes opened in the projects. (fn &optional ARG) (defalias 'treemacs-collapse-all-projects #[256 "\212\306\307 \310! >\204\311\312\313D\"\210\211\314H\262\211\203^\211@\315\310!\n>\203=\310!\n>\2047\311\312\316D\"\210\314H\202> \306#\211\203V\317\320\"\321=\203V\211b\210\322\"\210\210A\266\202\202\210)\323\324!\210\325C\211\203\216\f:\204r C\306#\204\211\326\327\330\331\332\333#\334\335\334\"!#\210\336\337\340\"\210$\205\226\341\342!\207" [treemacs--last-highlight cl-struct-treemacs-workspace-tags cl-struct-treemacs-project-tags treemacs--project-positions treemacs--saved-eldoc-display treemacs-eldoc-display nil treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 gethash treemacs-project get-text-property :state root-node-open treemacs--collapse-root-node treemacs--maybe-recenter on-distance "Collapsed all projects" message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face treemacs--no-messages treemacs-pulse-on-success] 9 (#$ . 81997) "P"]) #@147 Collapses all projects except the project at point. With a prefix ARG also forget about all the nodes opened in the projects. (fn &optional ARG) (defalias 'treemacs-collapse-other-projects #[256 "\212\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\315!\262\316 \317!>\204-\320\321\322D\"\210\211\323H\262\211\203~\211@\211=\204w\324\317! >\203\\\317! >\204V\320\321\325D\"\210\323H\202]\n\312#\211\203v\326\327\"\330=\203v\211b\210\331\"\210\210A\266\202\2022\266)\332\333!\210\334C\211\203\256 :\204\223\fC\312 \204\251\335\336\337\340\341\342#\343\344\343\"!#\210\345\346\347\"\210*\205\266\350\351!\207" [cl-struct-treemacs-workspace-tags cl-struct-treemacs-project-tags treemacs--project-positions treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs-project-of-node treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 gethash treemacs-project get-text-property :state root-node-open treemacs--collapse-root-node treemacs--maybe-recenter on-distance "Collapsed all other projects" message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face treemacs-pulse-on-success] 9 (#$ . 83226) "P"]) #@622 Peek at the content of the node at point. This will display the file (or tag) at point in `next-window' much like `treemacs-visit-node-no-split' would. The difference that the file is not really (or rather permanently) opened - any command other than `treemacs-peek', `treemacs-next-line-other-window', `treemacs-previous-line-other-window', `treemacs-next-page-other-window' or `treemacs-previous-page-other-window' will cause it to be closed again and the previously shown buffer to be restored. The buffer visiting the peeked file will also be killed again, unless it was already open before being used for peeking. (defalias 'treemacs-peek #[0 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\205\327\312\315\316\"\317 \320>\204b\321N\204b\322\323D\211\203T :\2049\nC\312 \204O\324\325\326\327\330\331#\332\333\332\"!#\210\334\335\336\"\210\f\205[\337\340!\262\266\202\202\326\341 \203\201\342 r\343\344\"\216\345\312\211 \346=\203|\347\202}\346#\210*\210\350\211\205\212\351!\262\211\205\223\352!\262\211\205\234\353!\262\206\247\354\317 \312\211#!\210\355\267\202\274\356!\202\320\356\314\"\202\320\321N\211\203\311\211!\202\316\357\360\320#\262\350!\210\266\202)\207" [treemacs--ready-to-follow treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-position text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state selected-window (tag-node file-node-closed file-node-open) :treemacs-visit-action "%s" "Only files and tags are peekable." 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 one-window-p internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] split-window left right select-window treemacs--nearest-path get-file-buffer get-buffer-window next-window #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file-node-closed 175 file-node-open 175 tag-node 181)) treemacs--setup-peek-buffer error "No match achieved even though button's state %s was part of the set of valid states %s"] 11 (#$ . 84641) nil]) #@108 Move treemacs' root one level upward. Only works with a single project in the workspace. (fn &optional _) (defalias 'treemacs-root-up #[256 "\3062\362\307 \310!>\204\311\312\313D\"\210\211\314H\262G\315U\204V\316\306\317C\211\203K :\2040\nC\320 \204F\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210\f\205R\334\335!\262\"\210\336\337 \340 \341\320$\211\205f\342\343\"\262\211\204q\344`!\262\345!\211\320\307 \310!>\204\207\311\312\313D\"\210\211\314H\262\346\320\211\211\203\357\211A\262\242\262\262\211\262\203\357\310! >\204\271\311\312\347D\"\210\314H\230\206\326\350\211GSH\351=\203\321\202\324\352P\"\266\204\203\342\320\262\203\357\262\262T\262\202\220\266\211\262\262\262\310! >\204\311\312\347D\"\210\211\314H\211\211;\2031\353!\211G\315V\203+\211GSH\351=\203+\211\346\354O\202,\211\262\202\217\211@\355=\203EG\314V\205\217\356!\202\217\211@;\203]G\314V\203X\356!\202\217@\202\217\310@! >\203\213G\314V\203s\356!\202\217\310@! >\204\204\311\312\347@D\"\210@\314H\202\217\357\360\"\262\211\352\232\203\233\211\202\236\361!\343\320?\230\266\202?\205\354\362\363\"\210\364 \210\365\"\210\366\320\"\211\205\352@\367=\203\332\370 \210\371`\372\"\242\373=\203\332\315u\210\374 \210\375 \211\203\350\376`\"\210\210\211\262*\266\204\2620\207" [cl-struct-treemacs-workspace-tags treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure cl-struct-treemacs-project-tags --cl-block-__body__-- treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 1 throw "Ad-hoc navigation is only possible when there is but a single project in the workspace." nil 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 text-property-not-all point-at-bol point-at-eol button copy-marker t previous-button treemacs--nearest-path 0 treemacs-project s-starts-with\? 47 "/" file-name-directory -1 :custom butlast error "Path type did not match: %S" file-name-nondirectory treemacs-do-remove-project-from-workspace :ignore-last-project-restriction treemacs--reset-dom treemacs-do-add-project-to-workspace treemacs-find-file-node treemacs-mode beginning-of-line get-text-property display image hl-line-highlight get-buffer-window set-window-point treemacs-pulse-on-success major-mode] 17 (#$ . 86968) "P"]) #@119 Move treemacs' root into the directory at point. Only works with a single project in the workspace. (fn &optional _) (defalias 'treemacs-root-down #[256 "\3062J\307 \310!>\204\311\312\313D\"\210\211\314H\262G\315U\204V\316\306\317C\211\203K :\2040\nC\320 \204F\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210\f\205R\334\335!\262\"\210\336\337 \340 \341\320$\211\205f\342\343\"\262\211\203\344\345\"\211\346>\203\336\344\347\"\343\320\350\336\337 \340 \341\320$\211\205\217\342\343\"\262\211\205\230\351!\262\352\"\210\353 \210\354\355!\"\210\356\320\"\211\205\3268\357=\203\306\360 \210\344`\361\"\242\362=\203\306\315u\210\363 \210\364 \211\203\324\365`\"\210\210\211\262*\262\202\366C\211\203 :\204\354\nC\320 \204\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210\f\205\334\335!\262\262\202G\367C\211\203> :\204#\nC\320 \2049\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210\f\205E\334\335!\262\2620\207" [cl-struct-treemacs-workspace-tags treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-pulse-on-success --cl-block-__body__-- treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 1 throw "Free navigation is only possible when there is but a single project in the workspace." nil 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 text-property-not-all point-at-bol point-at-eol button copy-marker t get-text-property :state (dir-node-closed dir-node-open) :path treemacs-do-remove-project-from-workspace treemacs-project-of-node :ignore-last-project-restriction treemacs--reset-dom treemacs-do-add-project-to-workspace file-name-nondirectory treemacs-find-file-node treemacs-mode beginning-of-line display image hl-line-highlight get-buffer-window set-window-point "Button at point is not a directory." "There is no directory to move into here." major-mode] 11 (#$ . 89520) "P"]) #@42 Display a list of all active extensions. (defalias 'treemacs-show-extensions #[0 "\300C\301\302\211\203\233\211@\211\242\243\303\304\305\"!J\303\304\306\"!J\nB\262\n\307B\310BD\211\203\222\211@\211\242\243B\262\211\203\211\211\203z\211@\304\311\312@!\313\"A\211\203`\312!\202a\314\262\315\"@\316N\317\"$B\262A\266\202\202B\266\202\213\320\321\"B\262\266A\266\202\202+\266A\266\202\202\266\322\323!\324!\210\325 \210\326 \210\327\330\331\332\237\"\"c\210\333 \210\334b\210\335y\207" ["#+TITLE: Treemacs Active Extensions\n" #[514 "\300\301#\207" [propertize font-lock-face] 6 "\n\n(fn TXT FACE)"] (("* Directory Extensions" . directory) ("* Project Extensions" . project) ("* Root Extetensions" . root)) intern format "treemacs--%s-top-extensions" "treemacs--%s-bottom-extensions" "** Top" "** Bottom" " - %s\n with predicate %s\n defined in %s" symbol-name font-lock-keyword-face "None" font-lock-function-name-face :defined-in font-lock-string-face " - None" font-lock-comment-face get-buffer-create "*Treemacs Extension Overview*" switch-to-buffer org-mode erase-buffer apply concat mapcar #[257 "\211\300P\207" ["\n"] 3 "\n\n(fn IT)"] org-reveal 0 nil] 25 (#$ . 91666) nil]) #@63 Switch position of the project at point and the one above it. (defalias 'treemacs-move-project-up #[0 "\3062\345\307 \310!>\204\311\312\313D\"\210\211\314H\315\316 \317 \320\321$\211\205(\322\323\"\262\211\2051\324!\262\211\204o\325\306\326C\211\203b :\204G\nC\321 \204]\327\330\331\332\333\334#\335\336\335\"!#\210\337\340\341\"\210\f\205i\342\343!\262\"\206s\344\"\211S\345V\203\263\325\306\346C\211\203\246 :\204\213\nC\321 \204\241\327\330\331\332\333\334#\335\336\335\"!#\210\337\340\341\"\210\f\205\255\342\343!\262\"\206\266\2118\347!\347!\321\350@A@A$\210)\233\211\240\266\233\211\240\266\351 \210\352 \266\2100\207" [cl-struct-treemacs-workspace-tags treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure buffer-read-only --cl-block-__body__-- treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs-project-of-node throw "There is nothing to move 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 -elem-index 0 "There is no project to switch places with above." treemacs--get-bounds-of-project transpose-regions treemacs--persist recenter] 15 (#$ . 92912) nil]) #@63 Switch position of the project at point and the one below it. (defalias 'treemacs-move-project-down #[0 "\3062\346\307 \310!>\204\311\312\313D\"\210\211\314H\315\316 \317 \320\321$\211\205(\322\323\"\262\211\2051\324!\262\211\204o\325\306\326C\211\203b :\204G\nC\321 \204]\327\330\331\332\333\334#\335\336\335\"!#\210\337\340\341\"\210\f\205i\342\343!\262\"\206s\344\"\211T\211GY\203\264\325\306\345C\211\203\247 :\204\214\nC\321 \204\242\327\330\331\332\333\334#\335\336\335\"!#\210\337\340\341\"\210\f\205\256\342\343!\262\"\206\267\2118\346!\346!\321\347@A@A$\210)\233\211\240\266\233\211\240\266\350 \210\351 \266\2100\207" [cl-struct-treemacs-workspace-tags treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure buffer-read-only --cl-block-__body__-- treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 text-property-not-all point-at-bol point-at-eol button nil copy-marker t treemacs-project-of-node throw "There is nothing to move 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 -elem-index "There is no project to switch places with below." treemacs--get-bounds-of-project transpose-regions treemacs--persist recenter] 15 (#$ . 94361) nil]) #@54 Finish editing your workspaces and apply the change. (defalias 'treemacs-finish-edit #[0 "\3062\216\307 \232\204A\310\306\311C\211\2036 :\204\nC\312 \2041\313\314\315\316\317\320#\321\322\321\"!#\210\323\324\325\"\210\f\205=\326\327!\262\"\210\330 \210~\210\331 \210\332\333 !\333 \204\210\310\306\334C\211\203} :\204b\nC\312 \204x\313\314\315\316\317\320#\321\322\321\"!#\210\323\324\325\"\210\f\205\204\326\327!\262\"\210\335!\211:\203\304\211\242\211\336=\205\277\243\211:\205\275\211\242\243\211:\205\273\211\242\243\211?\205\271\337\"\266\202\266\202\266\202\262\262\202\211\211\340=\205\211\341 \211\203\346\211@\211r\211q\210\342\305!\210\312)\210A\266\202\202\314\210\343\322\344\345\346\"\"\312@\312\347%\210\350 \210\351\352 \353!A>\204 \354\355\356D\"\210\211\357H\262!\211\203P\360\361B!C\"A\211\2046\362\363\312\211#\262\361B!BCBC\353!D>\204F\354\355\363D\"\210\211\211\364I\266\202C\360\361B!C\"A\211\204o\362\363\312\211#\262\361B!BCBC\353!D>\204\354\355\363D\"\210\211\211\364\312E\365\312\211\211\2035\211A\262\242\262\262\211\262\2035\312\353!A>\204\261\354\355\356D\"\210\364H\365\312\211\211\203\211A\262\242\262\262\211\262\203\353!F>\204\337\354\355\366D\"\210\211\364H\211\312\230\206\374\367\211GSH\370=\203\367\202\372\371P\312\"\262\262\203\n\312\262\203\262\262T\262\202\270\266\211\262\262\203(\312\262\2035\262\262T\262\202\211\266\211\262\206@E@I\266\372 \210\373 \203Y\374 G\364U\203Y\375 \210\202_\376 \210\377 \210\201G\201H!\210 :\204o\nC\312 \204\205\313\314\315\316\317\201I#\321\201J!#\210\323\324\325\"\262\2620\207" [treemacs--org-edit-buffer-name treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs--project-of-buffer --cl-block-__body__-- buffer-name throw "This is not a valid treemacs workspace edit buffer" nil 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 treemacs--org-edit-remove-validation-msg whitespace-cleanup treemacs--read-persist-lines buffer-string "The buffer is empty, there is nothing here to save." treemacs--validate-persist-lines error treemacs--org-edit-display-validation-msg success buffer-list make-local-variable write-region concat mapcar #[257 "\211\300P\207" ["\n"] 3 "\n\n(fn IT)"] :silent treemacs--restore treemacs--select-workspace-by-name treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 1 assoc treemacs-scope->current-scope record treemacs-scope-shelf 2 0 treemacs-project s-starts-with\? 47 "/" treemacs--consolidate-projects treemacs-get-local-window window-list kill-buffer quit-window kill-buffer-and-window treemacs-persist-file cl-struct-treemacs-workspace-tags treemacs--current-scope-type treemacs--scope-storage cl-struct-treemacs-scope-shelf-tags treemacs--workspaces cl-struct-treemacs-project-tags run-hooks treemacs-workspace-edit-hook font-lock-keyword-face "Edit completed successfully."] 25 (#$ . 95811) nil]) #@133 Close the parent of the node at point. Prefix ARG will be passed on to the closing function (see `treemacs-toggle-node'.) (fn ARG) (defalias 'treemacs-collapse-parent-node #[257 "\306\307 \310 \311\312$\211\205\313\314\"\262\211\203x\315\316\"\211\203=\312\211b\210\317!\210 \320=\205w\321 \210\322`\323\"\242\324=\205w\325u\207\203E\326\202F\327C\211\203n\n:\204S C\312\f\204i\330\331\332\333\334\335#\336\337\336\"!#\210\340\341\342\"\210 \205u\343\344!\262\207\211\203\200\326\202\201\327C\211\203\251\n:\204\216 C\312\f\204\244\330\331\332\333\334\335#\336\337\336\"!#\210\340\341\342\"\210 \205\260\343\344!\207" [treemacs--last-highlight major-mode treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :parent treemacs-toggle-node treemacs-mode beginning-of-line get-text-property display image 1 "Already at root." "There is nothing to close 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] 11 (#$ . 99033) "P"]) #@274 Run an asynchronous shell command in the root of the current project. Output will only be saved and displayed if prefix ARG is non-nil. Every instance of the string `$path' will be replaced with the (properly quoted) absolute path of the project root. (fn &optional ARG) (defalias 'treemacs-run-shell-command-in-project-root #[256 "\306\307!\310\311 \312 \313\314$\211\205\315\316\"\262\317\320!\211\203 \321!\210\210\322\320!\314\3232g\204\224\324\323\325C\211\203X:\204= C\314\n\204S\326\327\330\331\332\333#\334\335\334\"!#\210\336\337\340\"\210 \205_\341\342!\262C\211\203\211:\204n C\314\n\204\204\326\327\330\331\332\333#\334\335\334\"!#\210\336\337\340\"\210 \205\220\341\342!\262\"\210\343!\344!\f>\204\246\345\346\347D\"\210\211\350H\351>\203\324\323\352C\211\203\331:\204\276 C\314\n\204\324\326\327\330\331\332\333#\334\335\334\"!#\210\336\337\340\"\210 \205\340\341\342!\262C\211\203\n:\204\357 C\314\n\204\326\327\330\331\332\333#\334\335\334\"!#\210\336\337\340\"\210 \205\341\342!\262\"\210\344!\f>\204$\345\346\347D\"\210\211\353H\262\354\355\356!#\262\206@\314<\357\320!)\360\361\320\362=> E\363\364\365\366\367\370\371$&\n\372\373#\210)\262\2620\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure cl-struct-treemacs-project-tags default-directory read-shell-command "Command: " text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-buffer "*Treemacs Shell Command*" kill-buffer get-buffer-create --cl-block-__body__-- throw "There is no project here." message #1="%s %s" propertize "[Treemacs]" face #2=((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face treemacs-project-of-node type-of signal wrong-type-argument treemacs-project 3 (local-unreadable remote-unreadable extension) "Project path is not readable." 2 s-replace "$path" shell-quote-argument generate-new-buffer make-process :name :command :connection-type pipe :filter pfuture--append-output-to-buffer :sentinel make-closure #[514 "\306!?\205|\307!\310U\203I\300\203#\311\302!\210\312\313!\210\314ed\"\210\202{ :\204+\fC\315 \204=\316\317\320\321\322\323#\324\325!#\210\326\327\330\"\210\331\301!\210\202{ :\204Q\fC\315 \204g\316\317\320\321\322\332#\324\333\307!\"#\210\326\327\330\"\210\316\334r\302q\210\335 )\"\210\331\301!\210\315\207" [V0 V1 V2 treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages process-live-p process-exit-status 0 pop-to-buffer require ansi-color ansi-color-apply-on-region nil message #1# propertize "[Treemacs]" face font-lock-keyword-face format "Shell command completed successfully." add-hook pre-command-hook treemacs--restore-eldoc-after-log kill-buffer #2# "Shell command failed with exit code %s and output:" "%s" buffer-string] 9 "\n\n(fn PROCESS STATUS)"] process-put buffer buffer-list-update-hook shell-file-name shell-command-switch] 22 (#$ . 100287) "P"]) #@513 Run a shell command on the current node. Output will only be saved and displayed if prefix ARG is non-nil. Will use the location of the current node as working directory. If the current node is not a file/dir, then the next-closest file node will be used. If all nodes are non-files, or if there is no node at point, $HOME will be set as the working directory. Every instance of the string `$path' will be replaced with the (properly quoted) absolute path of the node (if it is present). (fn &optional ARG) (defalias 'treemacs-run-shell-command-for-current-node #[256 "\305\306!\307\310 \311 \312\313$\211\205\314\315\"\262\316\317!\211\203 \320!\210\210\321\317!\211\205-\322\323\"\262\2049\324\262\202\341\211\203C\325!\204X\326!\262\211\203R\325!\204\341\324\262\202\341\211\211;\203\327!\211G\330V\203y\211GSH\331=\203y\211\332\333O\202z\211\262\202\335\211@\334=\203\223G\335V\205\335\336!\202\335\211@;\203\253G\335V\203\246\336!\202\335@\202\335\337@!>\203\331G\335V\203\301\336!\202\335\337@!>\204\322\340\341\342@D\"\210@\335H\202\335\343\344\"\262\262\203\374\322\345\"\346>\203\374\347\350\351\322\323\"!#\262\211\206\313\352\317!)\353\354\317\355 \f\nE\356\357\360\361\362\363\364$&\n\365\366#\210)\207" [cl-struct-treemacs-project-tags default-directory buffer-list-update-hook shell-file-name shell-command-switch read-shell-command "Command: " text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-buffer "*Treemacs Shell Command*" kill-buffer get-buffer-create get-text-property :path "~/" file-exists-p treemacs--nearest-path file-name-directory 1 47 0 -1 :custom 2 butlast type-of signal wrong-type-argument treemacs-project error "Path type did not match: %S" :state (file-node-open file-node-closed dir-node-open dir-node-closed) s-replace "$path" shell-quote-argument generate-new-buffer make-process :name :command :connection-type pipe :filter pfuture--append-output-to-buffer :sentinel make-closure #[514 "\306!?\205\201\307!\310U\203N\300\203(\311\302!\210\312\313!\210\314\315\316\"\210\315ed\"\210\202\200 :\2040\fC\317 \204B\320\321\322\323\324\325#\326\327!#\210\330\331\332\"\210\333\301!\210\202\200 :\204V\fC\317 \204l\320\321\322\323\324\334#\326\335\307!\"#\210\330\331\332\"\210\320\336r\302q\210\337 )\"\210\333\301!\210\317\207" [V0 V1 V2 treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages process-live-p process-exit-status 0 pop-to-buffer require ansi-color autoload ansi-color-apply-on-region "ansi-color" nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Shell command completed successfully." add-hook pre-command-hook treemacs--restore-eldoc-after-log kill-buffer ((:inherit warning :weight bold)) "Shell command failed with exit code %s and output:" "%s" buffer-string] 9 "\n\n(fn PROCESS STATUS)"] process-put buffer] 21 (#$ . 103381) "P"]) #@174 Close everything except the view on the current file. This command is best understood as a combination of `treemacs-collapse-all-projects' followed by `treemacs-find-file'. (defalias 'treemacs-narrow-to-current-file #[0 "\305 \211\203\306\211\307r\211q\210\310\311!\210)\312 +\207 :\204!\fC\306\n\2043\313\314\315\316\317\320#\321\322!#\210\323\324\325\"\207" [treemacs-pulse-on-success treemacs-pulse-on-failure treemacs--no-messages treemacs--saved-eldoc-display treemacs-eldoc-display treemacs-get-local-buffer nil t treemacs-collapse-all-projects :forget-all treemacs-find-file message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format "There is no treemacs buffer" add-hook pre-command-hook treemacs--restore-eldoc-after-log] 8 (#$ . 106357) nil]) #@438 Select the scope for treemacs buffers. The default (and only) option is scoping by frame, which means that every Emacs frame (and only an Emacs frame) will have its own unique treemacs buffer. Additional scope types can be enabled by installing the appropriate package. The following packages offer additional scope types: * treemacs-persp * treemacs-perspective To programmatically set the scope type see `treemacs-set-scope-type'. (defalias 'treemacs-select-scope-type #[0 "\305\306\"\307\310!\"A\211\2044 :\204\nC\311 \204/\312\313\314\315\316\317#\320\321\314\316\322#\"#\210\323\324\325\"\207\211\f=\203Y :\204B\nC\311 \204T\312\313\314\315\316\317#\320\326!#\210\323\324\325\"\207\327!\210 :\204e\nC\311 \204}\312\313\314\315\316\317#\320\330\314\316\322#\"#\210\323\324\325\"\207" [treemacs-scope-types treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs--current-scope-type completing-read "Select Treemacs Scope: " assoc intern nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Nothing selected, type %s remains in effect." font-lock-type-face add-hook pre-command-hook treemacs--restore-eldoc-after-log "New scope type is same as old, nothing has changed." treemacs--do-set-scope-type "Scope of type %s is now in effect."] 11 (#$ . 107154) nil]) #@67 Collapse all nodes matching any of `treemacs-litter-directories'. (defalias 'treemacs-cleanup-litter #[0 "\306\307\" \211\203\211@\211\243\211\310!\n>\204\311\312\313D\"\210\211\314H\310!\n>\204/\311\312\313D\"\210\315H\316!\203v\211rq\210\317\320\321 \322 \323\317$\211\205P\324\325\"\262\326 \211\205\213\211\205\213\327\330\"\331\332\323\"\206jd\325\"\211\203\211\327\330\"W\203\211\331\332\323\"\206\202d\325\"\262\202l\262\262\211\205\225\333\334\"\262\211\205\330\327\330\"\335\336T\323\"\206\252e!\211\203\310\327\330\"W\203\310\335\336T\323\"\206\302e!\262\202\253\211\205\326\327\330\"U\205\326\211\266\202\262\211\205\342\333\334\"\262\211\205\355\327\334\"\262\211\205\370\327\337\"\262\211\205\327\340\"\262\211\203\327\341\"\202\211\205\342!\262\343 \211\205<\344!r\345\346\"\216\347@\350\"\210\314\351\352 \322 \"]*\262\310 ! >\204M\311\312\353 D\"\210\n\315H\211\203\202\211@\354\310!@>\204h\311\312\355D\"\210\315H\356A\317#\262\345\357#\"\210A\266\202\202Q\210\360\267\202\361\317\"\211\203\267B\362=\203\250\363 \210\327`\364\"\242\365=\203\250\314u\210\366 \210\367 \211\203\266\370`\"\210\210\210\202\356A\317#\203C\204\326\371D\372\373!!\"\204\361\317\"\211\203B\362=\203\365\363 \210\327`\364\"\242\365=\203\365\314u\210\366 \210\367 \211\203\370`\"\210\210\210\202\374\203I\211 !\203I\361 \317\"\211\203DB\362=\2035\363 \210\327`\364\"\242\365=\2035\314u\210\366 \210\367 \211\203C\370`\"\210\210\266\202\203\211\211!\203\211\361\317\"\211\203\204B\362=\203u\363 \210\327`\364\"\242\365=\203u\314u\210\366 \210\367 \211\203\203\370`\"\210\210\266\202\211;\203\262\375!\211G\314V\203\254\211GSH\376=\203\254\211\377\201JO\202\255\211\262\202\211@\201K=\203\312G\315V\205\201L!\202\211@;\203\344G\315V\203\337\201L!\202@\202\310@!@>\203G\315V\203\375\201L!\202\310@!@>\204\311\312\355@D\"\210@\315H\202\201M\201N\"\262!\204\303\211\211;\203P\375!\211G\314V\203J\211GSH\376=\203J\211\377\201JO\202K\211\262\202\274\211@\201K=\203hG\315V\205\274\201L!\202\274\211@;\203\202G\315V\203}\201L!\202\274@\202\274\310@!@>\203\264G\315V\203\233\201L!\202\274\310@!@>\204\255\311\312\355@D\"\210@\315H\202\274\201M\201N\"\262\262\202!\361\317\"\211\203\361B\362=\203\342\363 \210\327`\364\"\242\365=\203\342\314u\210\366 \210\367 \211\203\360\370`\"\210\210\266\202\201O!\210\202\204 b\210\202\201P1\201O!0\210\202\317\266B\362=\2036\363 \210\327`\364\"\242\365=\2036\314u\210\327`\201Q\"\203G\332`\201Q\"b\210\211\203s`\344!r\345\201R\"\216\347@\350\"\210\377E\201SS!\210)\370\201T \"\210*\266\266\n+\266A\266\202\202\210\201UC\211\203\310F:\204\223GCF\317GH\204\275\201V\201W\201X\201Y\201Z\201[#\201\\\201]\201\\\"!#\210\201^\201_\201`\"\210I\205\324\201a\201b!\207" [treemacs-litter-directories treemacs--scope-storage cl-struct-treemacs-scope-shelf-tags treemacs-override-workspace treemacs--ready-to-follow cl-struct-treemacs-workspace-tags -map regexp-quote type-of signal wrong-type-argument treemacs-scope-shelf 1 2 buffer-live-p nil 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 count-screen-lines window-start treemacs-workspace treemacs-walk-reentry-dom treemacs-project gethash #[257 "\211\303H\211;\205]\304\300\305\304\211\211\203E\211A\262\242\262\262\211\262\203E\304\306\307#)\266\203\211\262\204E\262\262T\262\202\266\211\262\205]\310\301\"\211\205[\211b\210\311\312!\262\207" [V0 V1 inhibit-changing-match-data 1 nil 0 t string-match treemacs-find-node treemacs-toggle-node :purge] 15 "\n\n(fn DOM-NODE)"] #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (root-node-closed 393 root-node-open 393 file-node-closed 443 file-node-open 443 dir-node-closed 443 dir-node-open 443 tag-node 1014 tag-node-closed 1014 tag-node-open 1014)) 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 cl-struct-treemacs-project-tags treemacs-dom major-mode treemacs-show-hidden-files treemacs-dotfiles-regex scroll-margin treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-success -1 :custom butlast error "Path type did not match: %S" treemacs-goto-node (error) invisible #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] recenter selected-window "Cleanup complete." message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-success-pulse-face] 25 (#$ . 108505) nil]) #@62 Showcase a catalogue of all treemacs themes and their icons. (defalias 'treemacs-icon-catalogue #[0 "\302\303\304!!\210\305 \210\237\211\203s\211@\306\307\310! >\204\"\311\312\313D\"\210\314H\"c\210\315c\210\316c\210\315c\210\310! >\204@\311\312\313D\"\210\211\317H\320\321\322!\323\324$\325C\326\327\330\"\"\210\326\327\331\"\"\210\332\333\242\237\"c\210\334 \210\335 \266A\266\202\202 \210\336b\207" [treemacs--themes cl-struct-treemacs-theme-tags switch-to-buffer get-buffer-create "*Treemacs Icons*" erase-buffer format "* Theme %s\n\n" type-of signal wrong-type-argument treemacs-theme 1 " |------+------------|\n" " | Icon | Extensions |\n" 3 make-hash-table :size hash-table-count :test equal nil maphash make-closure #[514 "\301\302\303#\304\300\305#\211\203\"\306\"\203\210\202&\211B\266\202\202&C\262\305\307\300#\210\207" [V0 get-text-property 0 display gethash nil memql puthash] 9 "\n\n(fn EXT ICON)"] #[514 "\300\301\302\303\304\305#\306\307\310\311\"\"#\300\242B\240\207" [V0 format " | %s | %s |\n" propertize "x" display s-join " " -map prin1-to-string] 11 "\n\n(fn DISPLAY EXTS)"] apply concat org-mode org-table-align 0] 9 (#$ . 114019) nil]) (provide 'treemacs-interface)