diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-01-01 21:43:05 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-01-01 22:00:12 +0100 |
| commit | e9f2b469cc452b384af0243f3eba2f07871090ad (patch) | |
| tree | 3e0f4c19e7b8d084327ba3739d88e81517312c91 | |
| parent | e37dd5c6fe188b867d944c8130c7e8d97541bcdb (diff) | |
Increase tab margins.
| -rw-r--r-- | guile-studio-configure.scm | 13 |
1 files changed, 12 insertions, 1 deletions
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"))) |