dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: disambiguate VC root logs on a per-project basis

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-03-23 16:15:40 +02:00
parent 89f1ff4625
commit 251c9f6768
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/.emacs.d/prot-emacs.org
View file

@ -15039,6 +15039,16 @@ the project in DIRECTORY using `project-dired'."
(select-frame-by-name name)
(prot-project--switch directory 'project-dired))))
;;;; Produce a VC root log for the project
(defun prot-project-rename-vc-root-log (&rest _)
"Rename the buffer of `vc-print-root-log' to mention the project."
(when-let ((root (vc-root-dir))
((consp project--list))
((member root (mapcar #'car project--list))))
(rename-buffer (format "*vc-root-log: %s*" root))))
(advice-add #'vc-print-root-log :after #'prot-project-rename-vc-root-log)
;;;; One tab per project

10
emacs/.emacs.d/prot-lisp/prot-project.el
View file

@ -69,6 +69,16 @@ the project in DIRECTORY using `project-dired'."
(select-frame-by-name name)
(prot-project--switch directory 'project-dired))))
;;;; Produce a VC root log for the project
(defun prot-project-rename-vc-root-log (&rest _)
"Rename the buffer of `vc-print-root-log' to mention the project."
(when-let ((root (vc-root-dir))
((consp project--list))
((member root (mapcar #'car project--list))))
(rename-buffer (format "*vc-root-log: %s*" root))))
(advice-add #'vc-print-root-log :after #'prot-project-rename-vc-root-log)
;;;; One tab per project