Function: combobulate-highlight-read-face-name

combobulate-highlight-read-face-name is a natively compiled function defined in combobulate-query.el.

Signature

(combobulate-highlight-read-face-name PROMPT &optional DEFAULT)

Documentation

Like read-face-name, but lists only Combobulate faces.

Sources face capture aliases from combobulate-query-match-face-alist. Argument PROMPT controls the prompt to display. Optional argument DEFAULT sets the default value in the prompt.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-query.el
(defun combobulate-highlight-read-face-name (prompt &optional default)
  "Like `read-face-name', but lists only Combobulate faces.

Sources face capture aliases from `combobulate-query-match-face-alist'.
Argument PROMPT controls the prompt to display.
Optional argument DEFAULT sets the default value in the prompt."
  (let ((prompt (if default (format-prompt prompt default)
                  (format "%s: " prompt)))
        (completion-extra-properties
         '(:affixation-function
           (lambda (faces)
             (mapcar
              (lambda (face)
                (list face
                      (concat (propertize "COMBOBULATE"
                                          'face (map-elt combobulate-query-match-face-alist face))
                              "\t")
                      ""))
              faces))))
        (faces (map-keys combobulate-query-match-face-alist)))
    (let ((face (completing-read
                 prompt
                 faces
                 nil t nil nil default)))
      (make-symbol face))))