diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 21:43:30 +0100 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 21:43:30 +0100 |
commit | 5e48f67e442a4eb9bb300017b70ac8783d2fb2b8 (patch) | |
tree | cff231f45147eaae873f0d3d92bba9bddc5d549c | |
parent | adf2bc84cb9229dd97c4f016886beaa26f86213e (diff) |
Remove mode line border.
-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"))) |