|
From: | carlmarcos |
Subject: | Handling non-interactive use with faces |
Date: | Wed, 10 Aug 2022 19:23:05 +0200 (CEST) |
How can this function be made to handle the case of non-interactive use to pass a face for displaying its properties? (defun laxy-descface (facenm) "Describe the typeface properties of face name FACENM." (interactive (list (let* ( (cseq '("default" "mode-line" "mode-line-inactive" "list" "text-property")) ) (completing-read "Face_property: " cseq nil t "text-property")))) (pcase facenm ("text-property" (describe-face (get-text-property (point) 'face))) ("default" (describe-face (intern facenm))) ("mode-line" (describe-face (intern facenm))) ("mode-line-inactive" (describe-face (intern facenm))) ("list" (list-faces-display))) )
[Prev in Thread] | Current Thread | [Next in Thread] |