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


;; turn tabs on, undo/redo mode
(setq tab-bar-show 1)
(tab-bar-history-mode)


;; bind tabs to 'Meta' like a browser
(mapcar (lambda (i)
          (keymap-global-set (format "M-%d" i)
                             (lambda ()
                               (interactive)
                               (tab-bar-select-tab i))))
        (number-sequence 0 9))


;; use project name if it exists
(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--tabs)