   (tab-new)
   (tab-rename name))
 
-(defun harmsway-tab-name-fn ()
-  "Return a suitable tab name, including project name."
-  (or (proviso-current-project-name)
-      (tab-bar-tab-name-current-with-count)))
+;; (defun harmsway-tab-name-fn ()
+;;   "Return a suitable tab name, including project name."
+;;   (or (proviso-current-project-name)
+;;       (tab-bar-tab-name-current-with-count)))
 
 
 (provide 'harmsway-tabs)

;;

;;; Code:

(setq-default tab-bar-show nil)
(setq tab-bar-new-button-show nil)
(add-hook 'after-init-hook (lambda()
                             (tab-bar-mode 1)
                             (tab-bar-history-mode 1)))

;; Copyright (C) 2021  Dan Harms (dharms)
;; Author: Dan Harms <enniomore@icloud.com>
;; Created: Friday, March 19, 2021
;; Modified Time-stamp: <2021-09-15 10:18:53 dharms>
;; Modified by: Dan Harms
;; Keywords: emacs gui

