From 5e48f67e442a4eb9bb300017b70ac8783d2fb2b8 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 3 Jan 2021 21:43:30 +0100 Subject: Remove mode line border. --- guile-studio-configure.scm | 13 +++++++++---- 1 file 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 "") '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"))) -- cgit v1.2.3