diff options
-rw-r--r-- | guile-studio-configure.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 3c36355..09bf14d 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -505,7 +505,7 @@ with the " modus-themes-variable-pitch-headings t modus-themes-bold-constructs t modus-themes-links 'no-underline) - (defun increase-tab-margins () + (defun tweak-theme () "Increase tab margins." (let ((palette (modus-themes--active-theme))) (set-face-attribute 'tab-line-tab nil @@ -513,11 +513,16 @@ with the " :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)))))) - (add-hook 'modus-themes-after-load-theme-hook 'increase-tab-margins) + :color ,(cdr (assoc 'bg-tab-inactive palette)))) + ;; Remove border around mode line + (set-face-attribute 'mode-line nil + :box nil) + (set-face-attribute 'mode-line-inactive nil + :box nil))) + (add-hook 'modus-themes-after-load-theme-hook 'tweak-theme) (global-set-key (kbd "<f5>") 'modus-themes-toggle) (load-theme 'modus-operandi t) - (increase-tab-margins))) + (tweak-theme))) (define (make-guile-studio-wrapper prefix share emacsdir emacs-package-dirs) (let ((wrapper (string-append prefix "/bin/guile-studio"))) |