Henrik Lissner 2023-02-20 22:47:23 -05:00
parent 06c794faf5
commit 1eb3fd3449
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
13 changed files with 15 additions and 28 deletions

View file

@ -19,20 +19,7 @@
(defun +tabs-disable-centaur-tabs-mode-maybe-h ()
"Disable `centaur-tabs-mode' in current buffer."
(when (centaur-tabs-mode-on-p)
(centaur-tabs-local-mode))))
(defadvice! +tabs--fixed-centaur-tabs-project-name-a ()
:override #'centaur-tabs-project-name
(let ((project-name (cdr (project-current))))
;; In earlier versions of project.el, `project-current' returned a cons
;; cell (VCBACKEND . PROJECTROOT). In more recent versions it returns
;; (TYPE VCBACKEND PROJECTROOT), which throws an error.
;; REVIEW This should be upstreamed.
(when (listp project-name)
(setq project-name (cadr project-name)))
(if project-name
(format "Project: %s" (expand-file-name project-name))
centaur-tabs-common-group-name))))
(centaur-tabs-local-mode)))))
;; TODO tab-bar-mode (emacs 27)