;; -*- 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)