[elpa] master 79333e9 099/184: counsel.el (counsel-fonts): Add

[Oleh Krehel]

branch: master
commit 79333e9edfee38ec3b367c33711a68bdf7783259
Author: Eder Elorriaga <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-fonts): Add
    
    Fixes #2220
---
 counsel.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/counsel.el b/counsel.el
index ef559be..0e35663 100644
--- a/counsel.el
+++ b/counsel.el
@@ -4967,6 +4967,22 @@ selected color."
  '(("h" counsel-colors-action-insert-hex "insert hexadecimal value")
    ("H" counsel-colors-action-kill-hex "kill hexadecimal value")))
 
+;;** `counsel-fonts'
+(defvar counsel-fonts-history ()
+  "History for `counsel-fonts'.")
+
+;;;###autoload
+(defun counsel-fonts ()
+  "Show a list of all supported font families for a particular frame.
+
+You can insert or kill the name of the selected font."
+  (interactive)
+  (ivy-read "Font: " (delete-dups (font-family-list))
+            :require-match t
+            :history 'counsel-fonts-history
+            :action #'insert
+            :caller 'counsel-fonts))
+
 ;;* Misc. OS
 ;;** `counsel-rhythmbox'
 (declare-function dbus-call-method "dbus")