From 2dee61f2f10485da65c31f2a6c9d6c7f6ac736f3 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Thu, 17 Aug 2023 08:23:21 +0200
Subject: emacs: Remove ‘mango-after-load-theme-hook’
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .config/emacs/config.org     | 26 +-------------------------
 .config/emacs/mango-theme.el |  6 +++++-
 2 files changed, 6 insertions(+), 26 deletions(-)

diff --git a/.config/emacs/config.org b/.config/emacs/config.org
index 7dfde90..196754f 100644
--- a/.config/emacs/config.org
+++ b/.config/emacs/config.org
@@ -476,13 +476,7 @@ that’s what the ~mango-minibuffer-backward-kill~ is for.
     :custom
     (vertico-cycle t)
     :init
-    (vertico-mode)
-    (add-hook
-     'mango-after-load-theme-hook
-     (λ (face-spec-set
-         'vertico-current
-         `((t (:background
-               ,(face-attribute 'hl-line :background nil t))))))))
+    (vertico-mode))
 
 #+END_SRC
 
@@ -913,24 +907,6 @@ custom theme.  I do like to keep the older theme around though as a reference.
 
 #+END_SRC
 
-There is one issue though.  I like to have ~vertico~ use the same color when
-highlighting my current selection as I use to highlight the current line, and
-that changes with each theme I use.  For this reason we need some advice around
-the ~load-theme~ function to fire a hook.
-
-#+BEGIN_SRC elisp
-
-  (defvar mango-after-load-theme-hook nil
-    "Hook called after ‘load-theme’ is run.")
-
-  (defun mango--run-after-load-theme-hook (&rest unused)
-    "Run the hooks in ‘mango-after-load-theme-hook’ after we load a new theme."
-    (run-hooks 'mango-after-load-theme-hook))
-
-  (advice-add 'load-theme :after #'mango--run-after-load-theme-hook)
-
-#+END_SRC
-
 *** Fringes
 
 It’s also nice to have fringes!
diff --git a/.config/emacs/mango-theme.el b/.config/emacs/mango-theme.el
index 7e74d17..904776e 100644
--- a/.config/emacs/mango-theme.el
+++ b/.config/emacs/mango-theme.el
@@ -127,4 +127,8 @@ graphically, so I shouldn’t need to have multiple specs per face.
 
   ;; Info Page
   (Info-quoted
-   :inherit default))
+   :inherit default)
+
+  ;; Vertico
+  (vertico-current
+   :inherit hl-line))
-- 
cgit v1.2.3