marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update mode-line face

Browse source
This commit is contained in:
Marcus Kammer 2025-01-26 20:26:39 +01:00
parent ddc2927ce0
commit 3e67f70f4a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 25 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
init.el
View file

@ -26,12 +26,16 @@
(eval-when-compile (require 'use-package))
(use-package doom-themes
:init
(load-theme 'doom-one t)
:init (load-theme 'doom-one t)
:config
(setq doom-themes-enable-bold t
doom-themes-enable-italic t))
;; (setq modus-themes-mode-line '(accented borderless 5))
;; (setq modus-themes-region '(bg-only))
;; (setq modus-themes-completions '(minimal))
;; (load-theme 'modus-vivendi t)
(global-hl-line-mode 1)
(display-time-mode 1)
(global-prettify-symbols-mode -1)
@ -190,19 +194,24 @@
(keymap-global-set "<f9>" 'mk/toggle-mode-line)
(set-face-attribute 'mode-line nil
:slant 'italic
:weight 'bold
:background (face-attribute 'default :background)
:foreground
(cond ((member 'doom-one custom-enabled-themes) "#5B6268")
((member 'doom-nord custom-enabled-themes) "#9099AB")
(t (face-attribute 'mode-line-inactive :foreground)))
:box '(:line-width (1 . 8) :style flat-button))
(set-face-attribute 'mode-line-inactive nil
:box '(:line-width (1 . 8) :style flat-button))
(set-face-attribute 'mode-line-inactive nil
:inherit 'mode-line
:weight 'normal
:box '(:line-width (1 . 8) :style flat-button))
;; (set-face-attribute 'mode-line nil
;; :slant 'italic
;; :weight 'bold
;; :background (face-attribute 'default :background)
;; :foreground
;; (cond ((member 'doom-one custom-enabled-themes) "#5B6268")
;; ((member 'doom-nord custom-enabled-themes) "#9099AB")
;; (t (face-attribute 'mode-line-inactive :foreground)))
;; :box '(:line-width (1 . 8) :style flat-button))
;; (set-face-attribute 'mode-line-inactive nil
;; :inherit 'mode-line
;; :weight 'normal
;; :box '(:line-width (1 . 8) :style flat-button))
(use-package tab-bar
:bind (("C-M-[" . tab-bar-switch-to-prev-tab)
@ -943,7 +952,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
:mode (("\\.lisp$" . lisp-mode)
("\\.lsp$" . lisp-mode)
("\\.cl$" . lisp-mode)
("\\.asd$" . lisp-mode))
("\\.asd$" . lisp-mode)
("\\.sexp\\'" . lisp-data-mode))
:init
(setq inferior-lisp-program "sbcl --noinform")
:config
@ -1405,6 +1415,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
("https://developer.mozilla.org/en-US/blog/rss.xml" web docs javascript)
("https://nextcloud.com/feed/" cloud news blog)
("https://codeberg.org/forgejo/forgejo/releases.rss" golang forgejo release)
("https://forgejo.org/rss.xml" forgejo)
("https://www.omnycontent.com/d/playlist/e73c998e-6e60-432f-8610-ae210140c5b1/cf0c25ad-cf01-4da5-ae1c-b0fc015f790e/53ed270b-7147-4f70-81c2-b0fc015fe4ed/podcast.rss" tech industry podcast)
("https://elmord.org/blog/?rss=entries" blog programming)
))