;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\305\306\307\"\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\207" [require treemacs persp-mode eieio dash remove-hook persp-activated-functions treemacs--remove-treemacs-window-in-new-frames defalias treemacs-persp-scope-p eieio-make-class-predicate treemacs-persp-scope treemacs-persp-scope--eieio-childp eieio-make-child-predicate treemacs-persp-scope-child-p make-obsolete "use (cl-typep ... \\='treemacs-persp-scope) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (treemacs-scope) nil (:abstract t)] 6) #@78 You cannot create a new object of type `treemacs-persp-scope'. (fn &rest _) (defalias 'treemacs-persp-scope #[128 "\300\301!\207" [error "Class treemacs-persp-scope is abstract"] 3 (#$ . 772)]) (byte-code "\300\301\302\303B\"\210\304\305\306\307\306\310%\210\304\311\306\312\306\313%\210\304\314\306\315\306\316%\210\304\317\306\320\306\321%\207" [add-to-list treemacs-scope-types Perspectives treemacs-persp-scope cl-generic-define-method treemacs-scope->current-scope nil ((_ (subclass treemacs-persp-scope))) #[257 "\300 \206\301\207" [get-current-persp none] 2 "\n\n(fn _)"] treemacs-scope->current-scope-name ((_ (subclass treemacs-persp-scope)) persp) #[514 "\211\301=\203\302\207\303\304\305!>\204\306\307\310D\"\210\311H\"\207" [cl-struct-perspective-tags none "No Perspective" format "Perspective %s" type-of signal wrong-type-argument perspective 1] 8 "\n\n(fn _ PERSP)"] treemacs-scope->setup ((_ (subclass treemacs-persp-scope))) #[257 "\300\301\302\"\210\300\303\304\"\210\305 \207" [add-hook persp-activated-functions treemacs-persp--on-perspective-switch persp-before-kill-functions treemacs--on-scope-kill treemacs-persp--ensure-workspace-exists] 4 "\n\n(fn _)"] treemacs-scope->cleanup ((_ (subclass treemacs-persp-scope))) #[257 "\300\301\302\"\210\300\303\304\"\207" [remove-hook persp-activated-functions treemacs-persp--on-perspective-switch persp-before-kill-functions treemacs--on-scope-kill] 4 "\n\n(fn _)"]] 6) #@146 Hook running after the perspective was switched. Will select a workspace for the now active perspective, creating it if necessary. (fn &rest _) (defalias 'treemacs-persp--on-perspective-switch #[128 "\300\301\302\303#\207" [run-with-timer 0.1 nil #[0 "\301\302 \210\303 )\207" [treemacs--ready-to-follow nil treemacs-persp--ensure-workspace-exists treemacs--change-buffer-on-scope-change] 1]] 5 (#$ . 2226)]) #@131 Make sure a workspace exists for the given PERSP-NAME. Matching happens by name. If no workspace can be found it will be created. (defalias 'treemacs-persp--ensure-workspace-exists #[0 "\303\304!\"\305!\206\306!\307\304! \"A\211\204)\310\311\312\211#\262\304!B B\211\211\313I\266\314 \211\203L\211@\211r\211q\210\315\302!\210\312)\210A\266\202\2022\210\316\317!\210\207" [treemacs--current-scope-type treemacs--scope-storage treemacs--project-of-buffer treemacs-scope->current-scope-name treemacs-scope->current-scope treemacs--select-workspace-by-name treemacs-persp--create-workspace assoc record treemacs-scope-shelf nil 2 buffer-list make-local-variable run-hooks treemacs-switch-workspace-hook] 7 (#$ . 2644)]) #@220 Create a new workspace for the given persp NAME. Projects will be found as per `treemacs--find-user-project-functions'. If that does not return anything the projects of the fallback workspace will be copied. (fn NAME) (defalias 'treemacs-persp--create-workspace #[257 "\3042\214\305!\211@A@\306 \307\310=\204<:\204 C\307\n\2041\311\312\313\314\315\316#\317\320\"#\210\321\322\323\"\210\324\304 @\"\210\203V\325\326\327\330!!\331\332\333!&C\262\202~ @\211\334H\211\203|\211@\325\326\335H\331\334H\332\336H&B\262A\266\202\202[\266\211\334I\266\324\304\"\266\2050\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs--workspaces --cl-block-__body__-- treemacs-do-create-workspace treemacs--find-current-user-project nil success message "%s %s" propertize "[Treemacs]" face font-lock-keyword-face format "Failed to create workspace for perspective: %s, using fallback instead." add-hook pre-command-hook treemacs--restore-eldoc-after-log throw make-treemacs-project :name file-name-nondirectory directory-file-name :path :path-status treemacs--get-path-status 2 1 3] 17 (#$ . 3385)]) (provide 'treemacs-persp)