[elpa] master 94e22bf 096/348: counsel.el (counsel-describe-face): New command

[Oleh Krehel]

branch: master
commit 94e22bfe31ffd83d964c905c8132b57989c41a4a
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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