branch: master
commit 94e22bfe31ffd83d964c905c8132b57989c41a4a
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
counsel.el (counsel-describe-face): New command
Fixes #585
---
counsel.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/counsel.el b/counsel.el
index 04270dd..04fee04 100644
--- a/counsel.el
+++ b/counsel.el
@@ -822,6 +822,18 @@ Describe the selected candidate."
:action #'counsel-descbinds-action-describe
:history 'counsel-descbinds-history
:caller 'counsel-descbinds))
+;;** `counsel-describe-face'
+(defun counsel-describe-face ()
+ "Completion for `describe-face'."
+ (interactive)
+ (let (cands)
+ (mapatoms
+ (lambda (s)
+ (if (facep s)
+ (push (symbol-name s) cands))))
+ (ivy-read "Face: " cands
+ :preselect (face-at-point t)
+ :action #'describe-face)))
;;* Git
;;** `counsel-git'
(defvar counsel--git-dir nil
