blob: 6c54a1adf8e5d3be29d8f1d406d122e7dd1a1df4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;; -*- lexical-binding: t; -*-
(setq tab-bar-show 1)
(tab-bar-history-mode)
(defun bd/tab-bar-name-function ()
(let ((project (project-current)))
(if project
(car (last
(file-name-split
(directory-file-name
(project-root project)))))
(tab-bar-tab-name-current))))
(setq tab-bar-tab-name-function #'bd/tab-bar-name-function)
(provide 'bd--project)
|
