aboutsummaryrefslogtreecommitdiff
path: root/modules/ui-theme.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-06-27 12:55:58 -0400
committerCraig Jennings <c@cjennings.net>2026-06-27 12:55:58 -0400
commitf9d9e003a208c22cd4d390125d990b79a4c0a0e7 (patch)
treee2b414ec00c04a5a30d0292770cefc861eace14f /modules/ui-theme.el
parentfd2fb02ab77eca1b7a75fe40aac33d5fedd3dac0 (diff)
downloaddotemacs-f9d9e003a208c22cd4d390125d990b79a4c0a0e7.tar.gz
dotemacs-f9d9e003a208c22cd4d390125d990b79a4c0a0e7.zip
feat(completion): tag four pickers with categories for marginalia
Add cj/completion-table (and an annotated variant) to system-lib: a wrapper that tags any collection with a completion category so marginalia, embark, consult, and sorting can recognize the candidates. None of the config's completing-reads declared a category, so the rich-candidate pickers showed bare. This applies it to the four whose candidates match a standard category and so need no custom annotator: benchmark-method (function), ERC buffer switch (buffer), ai-term close (buffer), and theme switch (theme). Each now annotates for free.
Diffstat (limited to 'modules/ui-theme.el')
-rw-r--r--modules/ui-theme.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/modules/ui-theme.el b/modules/ui-theme.el
index eb4efd9b5..499e71a49 100644
--- a/modules/ui-theme.el
+++ b/modules/ui-theme.el
@@ -37,13 +37,17 @@
;; ------------------------------- Switch Themes -------------------------------
;; loads themes in completing read, then persists via the functions below
+(require 'system-lib)
+
(defun cj/switch-themes ()
"Function to switch themes and save chosen theme name for persistence.
Unloads any other applied themes before applying the chosen theme."
(interactive)
(let ((chosentheme (completing-read "Load custom theme: "
- (mapcar #'symbol-name
- (custom-available-themes)))))
+ (cj/completion-table
+ 'theme
+ (mapcar #'symbol-name
+ (custom-available-themes))))))
(cj/theme-disable-all)
(cj/theme-load-name chosentheme))
(cj/save-theme-to-file))