1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
;;; persp-projectile.el --- Perspective integration with Projectile
;; Copyright (C) 2014-2021 Daniel Wu, Bozhidar Batsov
;; Author: Daniel Wu
;; Created: 2014-04-14
;; Keywords: project, convenience
;; Version: 1.0.0
;; Package-Requires: ((perspective "1.9") (projectile "2.4") (cl-lib "0.3"))
;; This file is NOT part of GNU Emacs.
;;; License:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;
;; This library bridges perspective mode to the awesome library
;; Projectile. The idea is to create a separate perspective when
;; switching project. A perspective is an independent workspace for
;; Emacs, similar to multiple desktops in Gnome and MacOS. I often
;; work on many projects at the same time, and using perspective and
;; projectile together allows me to easily know which project I'm
;; current in, and focus on files that only belong to current project
;; when switching buffer.
;; To use this library, put this file in your Emacs load path, and
;; call (require 'persp-projectile)
;; See perspective.el on github: https://github.com/nex3/perspective-el
;;; Code:
(require 'perspective)
(require 'projectile)
;; TODO: this may be incompatible helm which let's you find stuff in new frame
(defmacro projectile-persp-bridge (func-name)
"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."
`(defadvice ,func-name (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)))))
(projectile-persp-bridge projectile-dired)
(projectile-persp-bridge projectile-find-file)
;;;###autoload
(defun projectile-persp-switch-project (project-to-switch)
"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."
(interactive (list (projectile-completing-read "Switch to project: "
(projectile-relevant-known-projects))))
(let* ((name (or projectile-project-name
(funcall projectile-project-name-function project-to-switch)))
(persp (gethash name (perspectives-hash))))
(cond
;; project-specific perspective already exists
((and persp (not (equal persp (persp-curr))))
(persp-switch name))
;; persp exists but not match with projectile-name
((and persp (not (equal persp name)))
(persp-switch name)
(projectile-switch-project-by-name project-to-switch))
;; project-specific perspective doesn't exist
((not persp)
(let ((frame (selected-frame)))
(persp-switch name)
(projectile-switch-project-by-name project-to-switch)
;; Clean up if we switched to a new frame. `helm' for one allows finding
;; files in new frames so this is a real possibility.
(when (not (equal frame (selected-frame)))
(with-selected-frame frame
(persp-kill name))))))))
(defadvice persp-init-frame (after projectile-persp-init-frame activate)
"Rename initial perspective to `projectile-project-name' when a
new frame is created in a known project."
(with-selected-frame frame
(when (projectile-project-p)
(persp-rename (projectile-project-name)))))
(define-key projectile-mode-map [remap projectile-switch-project] 'projectile-persp-switch-project)
(provide 'persp-projectile)
;;; persp-projectile.el ends here
|
