[rc] fix arguments to light
[~bandali/configs] / init.org
index 0dcec85..cfbeea8 100644 (file)
--- a/init.org
+++ b/init.org
@@ -795,7 +795,8 @@ Not just how I do git, but /the/ way to do git.
   (magit-add-section-hook 'magit-status-sections-hook
                           'magit-insert-modules
                           'magit-insert-stashes
   (magit-add-section-hook 'magit-status-sections-hook
                           'magit-insert-modules
                           'magit-insert-stashes
-                          'append))
+                          'append)
+  :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 #+end_src
 
 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
 #+end_src
 
 *** [[https://github.com/abo-abo/swiper][Ivy]] (and friends)
@@ -821,7 +822,11 @@ There's no way I could top that, so I won't attempt to.
    ("DEL"    . ivy-backward-delete-char))
   :config
   (setq ivy-wrap t)
    ("DEL"    . ivy-backward-delete-char))
   :config
   (setq ivy-wrap t)
-  (ivy-mode 1))
+  (ivy-mode 1)
+  :custom-face
+  (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
+  (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
+  (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold)))))
 #+end_src
 
 **** Swiper
 #+end_src
 
 **** Swiper
@@ -902,7 +907,7 @@ There's no way I could top that, so I won't attempt to.
   (ibuffer-saved-filter-groups
    '(("default"
       ("dired" (mode . dired-mode))
   (ibuffer-saved-filter-groups
    '(("default"
       ("dired" (mode . dired-mode))
-      ("org"   (name . "^.*org$"))
+      ("org"   (mode . org-mode))
       ("web"
        (or
         (mode . web-mode)
       ("web"
        (or
         (mode . web-mode)
@@ -1359,17 +1364,10 @@ Emacs package that displays available keybindings in popup
   :hook (after-init . doom-modeline-init))
 #+end_src
 
   :hook (after-init . doom-modeline-init))
 #+end_src
 
-** [[https://github.com/11111000000/tao-theme-emacs][tao-theme]]
-
-#+begin_src emacs-lisp :tangle no
-(use-package tao-theme
-  :demand t
-  :config (load-theme 'tao-yang t))
-#+end_src
-
 ** [[https://github.com/maio/eink-emacs][eink-theme]]
 
 #+begin_src emacs-lisp
 ** [[https://github.com/maio/eink-emacs][eink-theme]]
 
 #+begin_src emacs-lisp
+(setq doom-modeline-bar-width 5)
 (load-theme 'eink t)
 #+end_src
 
 (load-theme 'eink t)
 #+end_src
 
@@ -1541,7 +1539,9 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
             #'flyspell-mode)
   ;; (add-hook 'message-setup-hook
   ;;           #'mml-secure-message-sign-pgpmime)
             #'flyspell-mode)
   ;; (add-hook 'message-setup-hook
   ;;           #'mml-secure-message-sign-pgpmime)
-  )
+  :custom-face
+  (message-header-subject ((t (:foreground "navy blue" :weight semi-bold))))
+  (message-header-to ((t (:foreground "MidnightBlue" :weight semi-bold)))))
 
 (after! mml-sec
   (setq mml-secure-openpgp-encrypt-to-self t
 
 (after! mml-sec
   (setq mml-secure-openpgp-encrypt-to-self t
@@ -1604,6 +1604,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
   ;; (set! :evil-state 'notmuch-message-mode 'insert)
   ;; (advice-add #'notmuch-bury-or-kill-this-buffer
   ;;             :override #'kill-this-buffer)
   ;; (set! :evil-state 'notmuch-message-mode 'insert)
   ;; (advice-add #'notmuch-bury-or-kill-this-buffer
   ;;             :override #'kill-this-buffer)
+  :hook (notmuch-message-mode . doom-modeline-set-special-modeline)
   :bind
   (:map notmuch-hello-mode-map
         ("u" . (lambda ()
   :bind
   (:map notmuch-hello-mode-map
         ("u" . (lambda ()
@@ -1665,7 +1666,10 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
                  "Mark message as spam"
                  (interactive)
                  (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
                  "Mark message as spam"
                  (interactive)
                  (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
-                 (notmuch-tree-next-message)))))
+                 (notmuch-tree-next-message))))
+  :custom-face
+  (notmuch-search-unread-face ((t (:weight semi-bold))))
+  (notmuch-tag-face ((t (:foreground "navy blue" :weight semi-bold)))))
 
 (use-package counsel-notmuch
   :bind ("C-c s m" . counsel-notmuch))
 
 (use-package counsel-notmuch
   :bind ("C-c s m" . counsel-notmuch))