;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require perspective projectile] 2) #@268 Create advice to create a perspective before invoking function FUNC-NAME. The advice provides bridge between perspective and projectile functions when switch between projects. After switching to a new project, this advice creates a new perspective for that project. (defalias 'projectile-persp-bridge '(macro . #[(func-name) "\301\302BB\207" [func-name defadvice ((before projectile-create-perspective-after-switching-projects activate) "Create a dedicated perspective for current project's window after switching projects." (let ((project-name (projectile-project-name))) (when (and persp-mode (projectile-project-p)) (persp-switch project-name))))] 3 (#$ . 164)])) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice projectile-dired (projectile-create-perspective-after-switching-projects nil t (advice lambda nil #1="Create a dedicated perspective for current project's window after switching projects." #2=(let ((project-name (projectile-project-name))) (when (and persp-mode (projectile-project-p)) (persp-switch project-name))))) before nil ad-activate projectile-find-file (projectile-create-perspective-after-switching-projects nil t (advice lambda nil #1# #2#))] 5) #@412 Switch to a project or perspective we have visited before. If the perspective of corresponding project does not exist, this function will call `persp-switch' to create one and switch to that before `projectile-switch-project' invokes `projectile-switch-project-action'. Otherwise, this function calls `persp-switch' to switch to an existing perspective of the project unless we're already in that perspective. (defalias 'projectile-persp-switch-project #[(project-to-switch) "\206 \n!\306 \307 \"\211\203\f\310 \232\204\311 !\202^\f\2033\f \232\2043\311 !\210\312\n!\202^\f?\205^\313 \311 !\210\312\n!\210 \313 \232?\205]\313 p\314\216\315 \316\"\210\317 !+)*\207" [projectile-project-name projectile-project-name-function project-to-switch name persp frame gethash perspectives-hash persp-curr persp-switch projectile-switch-project-by-name selected-frame #[nil "\302!\203 \303\304\"\210\305 !\205 q\207" [#1=#:old-frame #2=#:old-buffer frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord persp-kill #2# #1#] 4 (#$ . 1412) (list (projectile-completing-read "Switch to project: " (projectile-relevant-known-projects)))]) (byte-code "\301\302\303\304\305$\210\306\302\305\"\210\307\310\311#\210\312\313!\207" [projectile-mode-map ad-add-advice persp-init-frame (projectile-persp-init-frame nil t (advice lambda nil "Rename initial perspective to `projectile-project-name' when a\nnew frame is created in a known project." (with-selected-frame frame (when (projectile-project-p) (persp-rename (projectile-project-name)))))) after nil ad-activate define-key [remap projectile-switch-project] projectile-persp-switch-project provide persp-projectile] 5)