;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\300\317!\210\300\320!\210\300\321!\210\300\322!\210\300\323!\210\300\324!\210\300\325!\210\300\326!\207" [require dash treemacs-macros treemacs-customization treemacs-logging treemacs-themes treemacs-icons treemacs-faces treemacs-visuals treemacs-rendering treemacs-core-utils treemacs-scope treemacs-follow-mode treemacs-filewatch-mode treemacs-mode treemacs-interface treemacs-persistence treemacs-async treemacs-compatibility treemacs-workspaces treemacs-fringe-indicator treemacs-header-line treemacs-extensions] 2) (defconst treemacs-version "v2.8 (installed 2021.07.20) @ Emacs 28.0.50") #@32 Return the `treemacs-version'. (defalias 'treemacs-version #[0 "\304\305!\203&:\204 C\306\n\204!\307\310\311\312\313\314#\315\316 \"#\210\317\320\321\"\210 \207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-version called-interactively-p interactive nil message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "%s" add-hook pre-command-hook treemacs--restore-eldoc-after-log] 6 (#$ . 876) nil]) #@303 Initialise or toggle treemacs. * If the treemacs window is visible hide it. * If a treemacs buffer exists, but is not visible show it. * If no treemacs buffer exists for the current frame create and show it. * If the workspace is empty additionally ask for the root path of the first project to add. (defalias 'treemacs #[0 "\300 \203 \301\202\302 \203\303\202\304\211\305\267\202$\306\300 !\207\307 \207\310 \207\311\207" [treemacs-get-local-window visible treemacs-get-local-buffer exists none #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (visible 25 exists 30 none 33)) delete-window treemacs-select-window treemacs--init nil] 3 (#$ . 1344) nil]) #@311 Find and focus the current file in the treemacs window. If the current buffer has visits no file or with a prefix ARG ask for the file instead. Will show/create a treemacs buffers if it is not visible/does not exist. For the most part only useful when `treemacs-follow-mode' is not active. (fn &optional ARG) (defalias 'treemacs-find-file #[256 "\211?\205\306p!\211\307\204v\310\262\311\312\313\314 \315 \316\307$\211\205#\317\310\"\262\211\205,\320!\262\"\321!\203Q\211G\322V\203M\211GSH\323=\203M\211\324\325O\202r\211\202r\307\326!\211G\322V\203n\211GSH\323=\203n\211\324\325O\202o\211\262)\262\262\307\327 \211\330H\262\324\307\211\211\203\323\211A\262\242\262\262\211\262\203\323\330H\230\206\272\331\211GSH\323=\203\265\202\270\332P\"\266\204\203\306\307\262\203\323\262\262T\262\202\203\266\211\262\262\211\203\223\333 r\334\335\"\216\336 \203\357\337\202\371\340 \203\370\341\202\371\342\211\343\267\210\202,\344 \266\202,p\345 \210 \204\n\203r\211q\210\346 \210)\347\350\341\"\266\202,\351 \266\202,\210\352\"\211\203Y \353=\203J\354 \210\355`\356\"\242\357=\203J\322u\210\360 \210\361 \211\203X\362`\"\210\210\210\205\221\307\211\203\207\f:\204k C\307@\204\202\363\364\365\366\367\370#\371\372\371\"!#\210\373\374\375\"\210A\205\217\376\377!\262*\207\371\201C\365\367\201D#\"C\211\203\312\f:\204\254 C\307@\204\305\363\364\365\366\367\201E#\371\372\371\"!#\210\373\374\375\"\210B\205\324\376\201F!\207" [file-name-handler-alist treemacs-follow-after-init treemacs-follow-mode major-mode treemacs--saved-eldoc-display treemacs-eldoc-display buffer-file-name nil t read-file-name "File to find: " text-property-not-all point-at-bol point-at-eol button copy-marker treemacs--nearest-path file-remote-p 1 47 0 -1 expand-file-name treemacs-current-workspace 2 s-starts-with\? "/" internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] treemacs-get-local-window visible treemacs-get-local-buffer exists none #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (visible 256 exists 263 none 292)) treemacs--select-visible-window treemacs--setup-buffer treemacs--follow run-hook-with-args treemacs-select-functions treemacs--init treemacs-find-file-node treemacs-mode beginning-of-line get-text-property display image hl-line-highlight get-buffer-window set-window-point 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 treemacs-pulse-on-failure "%s does not fall under any project in the workspace." font-lock-string-face ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face] 18 (#$ . 2051) "P"]) #@433 Find and move point to the tag at point in the treemacs view. Most likely to be useful when `treemacs-tag-follow-mode' is not active. Will ask to change the treemacs root if the file to find is not under the root. If no treemacs buffer exists it will be created with the current file's containing directory as root. Will do nothing if the current buffer is not visiting a file or Emacs cannot find any tags for the current file. (defalias 'treemacs-find-tag #[0 "\3062\324p\211\205\f\307!\204|\307 \211\203{\211\310\311 \211\312H\262\313\310\211\211\203s\211A\262\242\262\262\211\262\203s\312H\230\206Z\314\211GSH\315=\203U\202X\316P\"\266\204\203f\310\262\203s\262\262T\262\202#\266\211\262\262\210\205\203\317 \310\204\276\320\306\321C\211\203\263 :\204\230\nC\310 \204\256\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210\f\205\272\335\336!\262\"\210\204\370\320\306\337C\211\203\355 :\204\322\nC\310 \204\350\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210\f\205\364\335\336!\262\"\210\340=\2034\320\306\341C\211\203) :\204\nC\310 \204$\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210\f\2050\335\336!\262\"\210\204t\320\306\342\324\326\343#D\211\203i :\204N\nC\310 \204d\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210\f\205p\335\336!\262\"\210\344 r\345\346\"\216\347 \203\205\350\202\217\351 \203\216\352\202\217\353\211\354\267\210\202\303\355 \266\202\303p\356 \210 \204\2525\203\262r\211q\210\357 \210)\360\361\352\"\266\202\303\362 \266\202\303\210\363 \262*\210\364$\266\2050\207" [treemacs--project-of-buffer treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure treemacs-follow-after-init --cl-block-__body__-- buffer-file-name nil treemacs-current-workspace 2 0 s-starts-with\? 47 "/" treemacs--flatten&sort-imenu-index throw "Current buffer is not visiting a file." 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 "Current buffer has no tags." unsupported "Treemacs does not support following tags in this major mode." "%s does not fall under any project in the workspace." font-lock-string-face internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] treemacs-get-local-window visible treemacs-get-local-buffer exists none #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (visible 406 exists 413 none 443)) treemacs--select-visible-window treemacs--setup-buffer treemacs--follow run-hook-with-args treemacs-select-functions treemacs--init selected-window treemacs--do-follow-tag treemacs-follow-mode] 17 (#$ . 4973) nil]) #@203 Select the treemacs window if it is visible. Bring it to the foreground if it is not visible. Initialise a new treemacs buffer as calling `treemacs' would if there is no treemacs buffer for this frame. (defalias 'treemacs-select-window #[0 "\302 \203 \303\202\304 \203\305\202\306\211\307\267\2028\310 \207p\311 \210\204( \2030r\211q\210\312 \210)\313\314\305\"\207\315 \207\316\207" [treemacs-follow-after-init treemacs-follow-mode treemacs-get-local-window visible treemacs-get-local-buffer exists none #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (visible 25 exists 28 none 53)) treemacs--select-visible-window treemacs--setup-buffer treemacs--follow run-hook-with-args treemacs-select-functions treemacs--init nil] 5 (#$ . 7895) nil]) #@33 Show the changelog of treemacs. (defalias 'treemacs-show-changelog #[0 "\301\302\303C\"!\207" [treemacs-dir find-file-existing locate-file "Changelog.org"] 4 (#$ . 8691) nil]) #@67 Edit your treemacs workspaces and projects as an `org-mode' file. (defalias 'treemacs-edit-workspaces #[0 "\304\305!\210\304\306!\210\307 \210\310\311!!\210\312 \210\313 \210\314\315 !!\210\316\317\320\"\210\321c\210\n\2032\322c\210\323c\210\324c\210\325 !\210\326 \210\327b\207" [treemacs--org-edit-buffer-name org-mode-map treemacs-show-edit-workspace-help treemacs-persist-file require org outline treemacs--persist switch-to-buffer get-buffer-create erase-buffer org-mode use-local-map copy-keymap local-set-key "" treemacs-finish-edit "#+TITLE: Edit Treemacs Workspaces & Projects\n" "# Call ~treemacs-finish-edit~ or press ~C-c C-c~ when done.\n" "# [[https://github.com/Alexander-Miller/treemacs#conveniently-editing-your-projects-and-workspaces][Click here for detailed documentation.]]\n" "# To cancel you can simply kill this buffer.\n\n" insert-file-contents outline-show-all 0] 3 (#$ . 8874) nil]) #@400 Display the current project, and *only* the current project. Like `treemacs-add-and-display-current-project' this will add the current project to treemacs based on either projectile, the built-in project.el, or the current working directory. However the 'exclusive' part means that it will make the current project the only project, all other projects *will be removed* from the current workspace. (defalias 'treemacs-display-current-project-exclusively #[0 "\3062\363\307 \211\203\265\310!\203,\211G\311V\203(\211GSH\312=\203(\211\313\314O\202M\211\202M\315\316!\211G\311V\203I\211GSH\312=\203I\211\313\314O\202J\211\262)\317\320!!\321 \211\322HG\311U\203\307\315\322H\313\315\211\211\203\267\211A\262\242\262\262\211\262\203\267\322H\230\206\236\323\211GSH\312=\203\231\202\234\324P\"\266\204\203\252\315\262\203\267\262\262T\262\202g\266\211\262\266\202\203\307\325\306\326 \"\210\321 \211\322H\262\204\327\"\210\326 \210\315\211\203 :\204\346\nC\315 \204\374\330\331\332\333\334\335#\336\337\336\"!#\210\340\341\342\"\210\f\205\343\344!\262\266\203\202\360\211\211\322\315\322H\313\315\211\203=\211A\262\242\262\262T\262\n\322H\230\203B\262\202\266\211\237\262I\266\211\322H\204V\345\315\346\"\210*\326 \210\347 \210\322b\210\350\351 \352 \353\315$\211\205o\354\345\"\262\355\356\" >\204~\357!\210\210\315\211\203\247 :\204\214\nC\315 \204\242\330\331\332\333\334\335#\336\337\336\"!#\210\340\341\342\"\210\f\205\256\343\344!\262\266\203\202\360\211?\205\360\325\306\360C\211\203\345 :\204\312\nC\315 \204\340\330\331\332\333\334\361#\336\337\336\"!#\210\340\341\342\"\2103\205\355\343\362!\262\"\2620\207" [file-name-handler-alist treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-success treemacs--open-node-states --cl-block-__body__-- treemacs--find-current-user-project file-remote-p 1 47 0 -1 nil expand-file-name file-name-nondirectory directory-file-name treemacs-current-workspace 2 s-starts-with\? "/" throw treemacs-select-window treemacs-do-add-project-to-workspace 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 t treemacs-add-project-to-workspace treemacs--consolidate-projects text-property-not-all point-at-bol point-at-eol button copy-marker get-text-property :state treemacs--expand-root-node "Not in a project." ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face treemacs-pulse-on-failure] 19 (#$ . 9795) nil]) #@371 Open treemacs and add the current project root to the workspace. The project is determined first by projectile (if treemacs-projectile is installed), then by project.el, then by the current working directory. If the project is already registered with treemacs just move point to its root. An error message is displayed if the current buffer is not part of any project. (defalias 'treemacs-add-and-display-current-project #[0 "\3062E\307 \211\203\310!\203,\211G\311V\203(\211GSH\312=\203(\211\313\314O\202M\211\202M\315\316!\211G\311V\203I\211GSH\312=\203I\211\313\314O\202J\211\262)\317\320!!\321 \204\322\323 !\n\"A\211\204q\324\325\315\211#\262\323 !B\nB\211\211\326\315 \313\315\211\211\203\211A\262\242\262\262\211\262\203\315\326H\313\315\211\211\203\350\211A\262\242\262\262\211\262\203\350\211\326H\211\315\230\206\315\327\211GSH\312=\203\310\202\313\330P\315\"\262\262\203\333\315\262\203\350\262\262T\262\202\231\266\211\262\262\203\371\315\262\203\262\262T\262\202z\266\211\262\206 @I\266\321 \211\326H\262\204]\331\"\210\332 \210\315\211\203N\f:\2042 C\3156\204I\333\334\335\336\337\340#\341\342\341\"!#\210\343\344\345\"\2107\205V\346\347!\262\266\202\202B\332 \210\315\321 \211\326H\262\313\315\211\211\203\275\211A\262\242\262\262\211\262\203\275\326H\230\206\244\327\211GSH\312=\203\237\202\242\330P\"\266\204\203\260\315\262\203\275\262\262T\262\202m\266\211\262\262\203\375\350\315\"\211\205\3668\351=\203\346\352 \210\353`\354\"\242\355=\203\346\311u\210\356 \210\357 \211\203\364\360`\"\210\210\211\262\266\202\202B\361\"\266\202\202B\211?\205B\362\306\363C\211\2037\f:\204 C\3156\2042\333\334\335\336\337\364#\341\342\341\"!#\210\343\344\345\"\2109\205?\346\365!\262\"\2620\207" [file-name-handler-alist treemacs--current-scope-type treemacs--scope-storage treemacs--workspaces treemacs--saved-eldoc-display treemacs-eldoc-display --cl-block-__body__-- treemacs--find-current-user-project file-remote-p 1 47 0 -1 nil expand-file-name file-name-nondirectory directory-file-name treemacs-current-workspace assoc treemacs-scope->current-scope record treemacs-scope-shelf 2 s-starts-with\? "/" treemacs-do-add-project-to-workspace treemacs-select-window 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-find-file-node treemacs-mode beginning-of-line get-text-property display image hl-line-highlight get-buffer-window set-window-point treemacs-add-project-to-workspace throw "Not in a project." ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face treemacs--no-messages treemacs-pulse-on-success major-mode treemacs-pulse-on-failure] 25 (#$ . 12469) nil]) (provide 'treemacs)