From 3e67f70f4a05cdada6410f796ce9d6e42b3f45f6 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 26 Jan 2025 20:26:39 +0100
Subject: [PATCH] Update mode-line face

---
 init.el | 39 +++++++++++++++++++++++++--------------
 1 file changed, 25 insertions(+), 14 deletions(-)

diff --git a/init.el b/init.el
index d64bbeba..0b6a371c 100755
--- a/init.el
+++ b/init.el
@@ -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)
                 ))