blob: 66cf16b19f38fb5290460edabf8a142859af1bdb (
plain) (
blame)
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
;;; init-project.el --- Project (and Perspective) Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'subr-x)
(use-package project
:ensure nil
:config
(defun project--clojure-switch-to-test (filename project-root)
(let* ((project-src-file (string-remove-prefix project-root filename))
(project-test-file (replace-regexp-in-string "\.clj$" "_test.clj"
(replace-regexp-in-string "^src/" "test/" project-src-file))))
(find-file (expand-file-name project-test-file project-root))))
(defun project--clojure-switch-to-src (test-filename project-root)
(let* ((project-test-file (string-remove-prefix project-root test-filename))
(project-src-file (replace-regexp-in-string "_test\.clj$" ".clj"
(replace-regexp-in-string "^test/" "src/" project-test-file))))
(find-file (expand-file-name project-src-file project-root))))
(defun project-clojure-test-switch ()
(interactive)
(let ((filename (buffer-file-name))
(project-root (expand-file-name (project-root (project-current)))))
(cond ((string-match (concat "^" project-root "test/.*_test\.clj") filename)
(project--clojure-switch-to-src filename project-root))
((string-match (concat "^" project-root "src/.*\.clj") filename)
(project--clojure-switch-to-test filename project-root)))))
(defun project-recentf ()
"Show a list of recently visited files in a project."
(interactive)
(if (boundp 'recentf-list)
(let* ((project-root (expand-file-name (project-root (project-current))))
(project-recentf-files (mapcar
(lambda (f) (file-relative-name f project-root))
(seq-filter (apply-partially 'string-prefix-p project-root) recentf-list))))
(find-file (expand-file-name
(funcall project-read-file-name-function
"Find recent project files"
project-recentf-files)
project-root)))
(message "recentf is not enabled")))
(defun project-switch-src-project ()
(interactive)
(let ((default-directory "~/src/"))
(call-interactively #'project-switch-project)))
(add-to-list 'project-switch-commands '(?h "Recentf" project-recentf) t)
(add-to-list 'project-switch-commands '(?m "Magit" magit-status) t)
(add-to-list 'project-switch-commands '(?q "Replace Regexp" project-query-replace-regexp) t)
;; TODO remove this when happy with project-rootfile
;; project-root and project-try-local copied/modified from https://github.com/karthink/project-x/blob/master/project-x.el
;; (cl-defmethod project-root ((project (head local)))
;; "Return root directory of current PROJECT."
;; (cdr project))
;; (defun project-try-local (dir)
;; "Treat DIR as a project if it contains a .project file."
;; (if-let ((root (locate-dominating-file dir ".project")))
;; (cons 'local root)))
;; Add this hook last so so that vc takes precedence over local
;;(add-hook 'project-find-functions 'project-try-local 90)
:bind
("C-x p P" . project-switch-src-project)
("C-x p M-p" . project-switch-project)
("C-x f" . project-recentf))
(use-package project-rootfile
:after project
:config
(add-to-list 'project-find-functions #'project-rootfile-try-detect t))
(use-package perspective
;; Don't restart persp-mode when re-evaluating, as it clears the current persp list
:init (or persp-mode (persp-mode))
:custom (persp-mode-prefix-key (kbd "C-c x"))
:config
;; Based on jao-buffer-same-mode (https://jao.io/blog/2021-09-08-high-signal-to-noise-emacs-command.html)
(defun persp-switch-buffer-same-mode ()
"Switch to a buffer with the same major mode as the current buffer, respecting
the current perspective."
(interactive)
(let* ((mode major-mode)
(pred (lambda (b)
(let ((b (get-buffer (if (consp b) (car b) b))))
(eq (buffer-local-value 'major-mode b) mode)))))
(pop-to-buffer (persp-read-buffer "Buffer: " nil t pred))))
(defun persp-previous-buffer-same-mode ()
"Switch to the previous buffer in the current perspective, with the same major
mode as the current buffer (or do nothing)"
(interactive)
(let* ((persp-buffers (seq-filter 'persp-is-current-buffer (buffer-list)))
(mode major-mode)
(mode-pred (lambda (b)
(let ((b (get-buffer (if (consp b) (car b) b))))
(and (eq (buffer-local-value 'major-mode b) mode)
(not (eq b (current-buffer)))
(not (get-buffer-window b))))))
(persp-buffers-in-mode (seq-filter mode-pred persp-buffers)))
(when (not (seq-empty-p persp-buffers-in-mode))
(switch-to-buffer (car persp-buffers-in-mode)))))
(defun persp-current-project-root ()
"Return the current project root, falling back to finding it by the perpsective"
(if-let (project (project-current))
(project-root project)
(when-let (persp (persp-name (persp-curr)))
(car (seq-filter (lambda (pr) (string-match-p persp pr)) (project-known-project-roots))))))
(defun switch-project (proj)
"Switch to project or already open project perspective."
(interactive (list (let ((default-directory "~/src/")) ;; TODO make this customisable
(project-prompt-project-dir))))
(let* ((persp-name (file-name-nondirectory (directory-file-name proj)))
(persp (gethash persp-name (perspectives-hash))))
(unless (equal persp (persp-curr))
(unwind-protect
(progn
;; Create or switch to a perspective named after the project
(persp-switch persp-name)
;; If the perspective did not exist, switch to the project
(when (not persp)
(project-switch-project proj)))
;; If the only buffer is the persp scratch buffer, it's safe to kill the perspective if switching project was cancelled
(when (seq-empty-p
(seq-filter
(lambda (b) (not (equal (buffer-name b) (persp-scratch-buffer))))
(persp-buffers (persp-curr))))
(persp-kill persp-name))))))
:bind
("C-x p p" . switch-project)
("C-x C-b" . persp-previous-buffer-same-mode)
("C-x C-S-b" . persp-switch-buffer-same-mode)
("C-c x x" . persp-switch-last)
("C-c x ." . persp-switch-quick))
(provide 'init-project)
;;; init-project.el ends here
|