;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require treemacs projectile] 2) #@196 Add one of `projectile-known-projects' to the treemacs workspace. With a prefix ARG was for the name of the project instead of using the name of the project's root directory. (fn &optional ARG) (defalias 'treemacs-projectile #[256 "\306\300!\203\341\203\341<\203\341\203\341\307\310\311\"\312\307\211\203\335\211A\262\242\262\262T\262\313!\203PG\314V\203L\211GSH\315=\203L\312\316O\202q\202q\307\317!\211G\314V\203m\211GSH\315=\203m\211\312\316O\202n\211\262)\320 \307\321H\312\307\211\211\203\313\211A\262\242\262\262\211\262\203\313\321H\230\206\262\322\211GSH\315=\203\255\202\260\323P\"\266\204\203\276\307\262\203\313\262\262T\262\202{\266\211\262\266\202\204B\262\202\266\211\237\262\324\325\"?\205\361\326\327!!\320 \211\321H\262\204\330\"\207\331 r\332\333\"\216\334 \210\335\"\211:\205\335\211\242\211\336\267\202\332\243\211:\205j\211\242\243\211?\205h\337\340\314H\341\342#D\211\203]\n:\204B C\307\f\204X\343\344\340\345\341\346#\347\350\347\"!#\210\351\352\353\"\210 \205d\354\355!\262\262\266\202\262\202\333\243\211:\205\325\211\242\243\211?\205\323\356\357!4>\203\220\321H\202\2215\307#b\210\360\340\314H\341\342#D\211\203\307\n:\204\254 C\307\f\204\302\343\344\340\345\341\361#\347\350\347\"!#\210\351\352\353\"\2106\205\317\354\362!\262\262\266\202\262\202\333\307\262\262*\207\363C\211\203\n\n:\204\357 C\307\f\204\343\344\340\345\341\361#\347\350\347\"!#\210\351\352\353\"\2106\205\354\362!\207" [projectile-known-projects file-name-handler-alist treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-success boundp nil -map treemacs--unslash 0 file-remote-p 1 47 -1 expand-file-name treemacs-current-workspace 2 s-starts-with\? "/" completing-read "Project: " file-name-nondirectory directory-file-name treemacs--init internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] treemacs-select-window treemacs-do-add-project-to-workspace #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (success 284 duplicate-name 367)) "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 gethash type-of "A project with the name %s already exists." ((:inherit warning :weight bold)) treemacs-on-failure-pulse-face "It looks like projectile does not know any projects." cl-struct-treemacs-project-tags treemacs--project-positions treemacs-pulse-on-failure] 21 (#$ . 161) nil]) (define-key treemacs-project-map "p" 'treemacs-projectile) #@161 Overwrites the original definition from `treemacs-core-utils'. This version will read a directory based on the current project root instead of the current dir. (defalias 'treemacs--read-first-project-path #[0 "\300 \211\301H\262?\205\302\303\304\3051\306 0\202\307\262\"!\207" [treemacs-current-workspace 2 file-truename read-directory-name "Project root: " (error) projectile-project-root nil] 5 (#$ . 2988)]) #@42 Get the current projectile project root. (defalias 'treemacs--projectile-current-user-project-function #[0 "\301 \211\205 \302!\262\211\205M\303!\203,\211G\304V\203+\211GSH\305=\203+\211\306\307O\207\207\310\311!\211G\304V\203I\211GSH\305=\203I\211\306\307O\202J\211\262)\207" [file-name-handler-alist projectile-project-root file-truename file-remote-p 1 47 0 -1 nil expand-file-name] 5 (#$ . 3413)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs--projectile-current-user-project-function side-effect-free t] 4) #@57 Add created file PATH to projectile's cache. (fn PATH) (defalias 'treemacs-projectile--add-file-to-projectile-cache #[257 "\300!\301\204\302!\262\303\262rq\210\304 \210)\211\205\305!\207" [get-file-buffer nil find-file-noselect t projectile-find-file-hook-function kill-buffer] 5 (#$ . 3964)]) (byte-code "\300\301\302\"\210\303\304\305\"\210\306\307!\207" [add-to-list treemacs--find-user-project-functions treemacs--projectile-current-user-project-function add-hook treemacs-create-file-functions treemacs-projectile--add-file-to-projectile-cache provide treemacs-projectile] 3)