emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix doom/what-face not handling face plist specs

Browse source
This commit is contained in:
Henrik Lissner 2017-06-10 15:32:55 +02:00
parent f1c34fba72
commit ca222c1b75
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 30 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

43
core/autoload/debug.el
View file

@ -3,21 +3,36 @@
;;;###autoload
(defun doom/what-face (&optional pos)
"Lists all faces at point. Overlay faces are denoted with an asterix."
(interactive "d")
(let ((pos (or pos (point)))
faces)
(when-let (face (get-text-property pos 'face))
(dolist (f (if (listp face) face (list face)))
(push (propertize (symbol-name f) 'face f) faces)))
(dolist (ov (overlays-at pos (1+ pos)))
(let ((face (overlay-get ov 'face)))
(dolist (f (if (listp face) face (list face)))
(push (propertize (concat (symbol-name f) "*") 'face f) faces))))
(if (called-interactively-p 'any)
(message "%s %s"
(interactive)
(unless pos
(setq pos (point)))
(let ((faces (let ((face (get-text-property pos 'face)))
(if (keywordp (car-safe face))
(list face)
(cl-loop for f in (if (listp face) face (list face))
collect f))))
(overlays (cl-loop for ov in (overlays-at pos (1+ pos))
nconc (cl-loop with face = (overlay-get ov 'face)
for f in (if (listp face) face (list face))
collect f))))
(cond ((called-interactively-p 'any)
(message "%s %s; %s"
(propertize "Faces:" 'face 'font-lock-comment-face)
(if faces (string-join faces ", ") "n/a"))
(mapcar #'substring-no-properties faces))))
(if faces
(cl-loop for face in faces
if (listp face)
concat (format "'%s " face)
else
concat (concat (propertize (symbol-name face) 'face face) " "))
"n/a ")
(if overlays
(cl-loop for ov in overlays
concat (concat (propertize (symbol-name ov) 'face ov) " "))
"n/a")))
(t
(and (or faces overlays)
(list faces overlays))))))
;;;###autoload
(defun doom-active-minor-modes ()