From aa962f60ffe8d8977a6401b691f6704a572cc40b Mon Sep 17 00:00:00 2001
From: Daniel <89086143+BardofSprites@users.noreply.github.com>
Date: Sat, 27 Apr 2024 14:13:53 -0400
Subject: tab bars

---
 bard-emacs-modules/bard-emacs-ui.el | 64 +++++++++++++++++++++++++++++++++++--
 1 file changed, 62 insertions(+), 2 deletions(-)

(limited to 'bard-emacs-modules')

diff --git a/bard-emacs-modules/bard-emacs-ui.el b/bard-emacs-modules/bard-emacs-ui.el
index 3786b55..b18c46b 100644
--- a/bard-emacs-modules/bard-emacs-ui.el
+++ b/bard-emacs-modules/bard-emacs-ui.el
@@ -47,7 +47,7 @@
 ;; padding for everything
 (use-package spacious-padding
   :init
-  (spacious-padding-mode 1)
+   (spacious-padding-mode t)
   :config
   (setq spacious-padding-widths
       '( :internal-border-width 10
@@ -57,7 +57,7 @@
 	 :right-divider-width 1
 	 :left-fringe-width 10
 	 :right-fringe-width 10
-	 :scroll-bar-width 8)))
+	 :scroll-bar-width 0)))
 
 ;; Todo Keywords highlighting, colors defined in bard-emacs-theme.el
 (use-package hl-todo
@@ -69,6 +69,66 @@
   :init
   (which-key-mode 1))
 
+;;; Tab bars
+;; taken from https://www.jamescherti.com/emacs-tab-bar-vim-style-colors/
+(defun bard/tab-bar-vim-name-format-function (tab i)
+  "Add a space on the sides of every tab."
+  (let ((current-p (eq (car tab) 'current-tab)))
+    (propertize
+     (concat " "
+             (if tab-bar-tab-hints (format "%d " i) "")
+             (alist-get 'name tab)
+             (or (and tab-bar-close-button-show
+                      (not (eq tab-bar-close-button-show
+                               (if current-p 'non-selected 'selected)))
+                      tab-bar-close-button)
+                 "")
+             " ")
+     'face (funcall tab-bar-tab-face-function tab))))
+
+(defun bard/tab-bar-vim-like-colors ()
+  "Apply Vim-like color themes to Emacs tab bars."
+  (let* ((fallback-light "white")
+         (fallback-dark "#333333")
+         (bg-default (or (face-attribute 'default :background) fallback-light))
+         (fg-default (or (face-attribute 'default :foreground) fallback-dark))
+         (bg-modeline-inactive (or (face-attribute 'mode-line-inactive :background)
+                                   fallback-dark))
+         (fg-modeline-inactive (or (face-attribute 'mode-line-inactive :foreground)
+                                   fallback-light))
+         (bg-tab-inactive bg-modeline-inactive)
+         (fg-tab-inactive fg-modeline-inactive)
+         (fg-tab-active fg-default)
+         (bg-tab-active bg-default))
+    (setq tab-bar-tab-name-format-function #'bard/tab-bar-vim-name-format-function)
+    (setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator))
+    (setq tab-bar-separator "\u200B")  ;; Zero width space to fix color bleeding
+    (setq tab-bar-tab-hints nil)  ;; Tab numbers of the left of the label
+    (setq tab-bar-new-button-show nil)
+    (setq tab-bar-close-button-show nil)
+    (setq tab-bar-auto-width nil)
+    (custom-set-faces
+     ;; The tab bar's appearance
+     `(tab-bar
+       ((t (:background ,bg-tab-inactive
+                        :foreground ,fg-tab-inactive
+                        :box (:line-width 3 :color ,bg-tab-inactive :style nil)))))
+     ;; Inactive tabs
+     `(tab-bar-tab-inactive
+       ((t (:background ,bg-tab-inactive
+                        :foreground ,fg-tab-inactive
+                        :box (:line-width 3 :color ,bg-tab-inactive :style nil)))))
+     ;; Active tab
+     `(tab-bar-tab
+       ((t (:background ,bg-tab-active :foreground ,fg-tab-active
+                        :box (:line-width 3 :color ,bg-tab-active :style nil))))))))
+
+;; Customize the appearance of the tab bar
+;; Make sure to load your theme using 'load-theme' before
+;; calling 'bard/tab-bar-vim-like-colors'.
+(tab-bar-mode 1)
+(bard/tab-bar-vim-like-colors)
+
 (provide 'bard-emacs-ui)
 
 ;;; bard-emacs-ui.el ends here
-- 
cgit v1.2.3