emacs/protesilaos.modus-themes
1
0
Fork 0
mirror of https://github.com/protesilaos/modus-themes.git synced 2026-09-10 07:16:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add back the missing annotation function

Browse source 
I must have deleted it as part of that botched rebase I did. Anyway,
this sort of thing will not even be visible to users of the marginalia
package, but is still good to have.
This commit is contained in:
Protesilaos Stavrou 2025-10-02 19:57:40 +03:00
parent 6326130654
commit 3e091098f0
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
modus-themes.el
View file

@ -4033,12 +4033,13 @@ symbol, which is safe when used as a face attribute's value."
"Minibuffer prompt to select a Modus theme.
With optional PROMPT string, use it as the first argument of
`format-prompt'. Else use a generic prompt."
(intern
(completing-read
(format-prompt (or prompt "Select theme") nil)
(modus-themes--completion-table-candidates)
nil t nil
'modus-themes--select-theme-history)))
(let ((completion-extra-properties `(:annotation-function ,#'modus-themes--annotate-theme)))
(intern
(completing-read
(format-prompt (or prompt "Select theme") nil)
(modus-themes--completion-table-candidates)
nil t nil
'modus-themes--select-theme-history))))
;;;###autoload
(defun modus-themes-select (theme)