help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Handling non-interactive use with faces


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))) )




reply via email to

[Prev in Thread] Current Thread [Next in Thread]