From e9f2b469cc452b384af0243f3eba2f07871090ad Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 1 Jan 2021 21:43:05 +0100 Subject: Increase tab margins. --- guile-studio-configure.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 2f6fc64..5bae0fd 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -20,7 +20,9 @@ (scroll-bar-mode -1) ;; Show only buffers with the same major mode in the same tab line. + (require 'tab-line) (setq tab-line-tabs-function 'tab-line-tabs-mode-buffers) + (setq tab-line-close-tab-function 'kill-buffer) (require 'ivy) (ivy-mode 1) @@ -464,7 +466,16 @@ with the " modus-themes-variable-pitch-headings t modus-themes-bold-constructs t modus-themes-links 'no-underline) - (load-theme 'modus-operandi t))) + (load-theme 'modus-operandi t) + + ;; Increase tab margins + (let ((palette modus-themes-colors-operandi)) + (set-face-attribute 'tab-line-tab nil + :box `(:line-width 8 + :color ,(cdr (assoc 'bg-tab-active palette)))) + (set-face-attribute 'tab-line-tab-inactive nil + :box `(:line-width 8 + :color ,(cdr (assoc 'bg-tab-inactive palette))))))) (define (make-guile-studio-wrapper prefix share emacsdir emacs-package-dirs) (let ((wrapper (string-append prefix "/bin/guile-studio"))) -- cgit v1.2.3