.config/emacs/modules/bd--project.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

;; -*- lexical-binding: t; -*-


(setq tab-bar-show 1)

(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)