Henrik Lissner
2023-02-20 22:47:23 -05:00
parent 06c794faf5
commit 1eb3fd3449
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)

View File

@@ -1,4 +1,4 @@
;; -*- no-byte-compile: t; -*-
;;; ui/tabs/packages.el
(package! centaur-tabs :pin "f4cef95acbd2eb99c8db3b6cdde74a6e0a966a0a")
(package! centaur-tabs :pin "a2890d968d877b269a814a691356fc5877833c39")