Fix counsel-set-frame-font

This commit is contained in:
Jeremy Dormitzer 2020-02-26 10:06:00 -05:00
parent 711ee05175
commit dd393d7c5e

View File

@ -4218,8 +4218,13 @@ An alternative minibuffer completion framework:
(if (executable-find "rg")
(leader-def-key "ig" #'counsel-rg)
(leader-def-key "ig" #'counsel-grep))
(defvar counsel-set-frame-font-history nil)
(defun counsel-set-frame-font (font)
(interactive (list (counsel-fonts)))
(interactive (list (ivy-read "Font: " (delete-dups (font-family-list))
:require-match t
:history 'counsel-set-frame-font-history
:caller 'counsel-set-frame-font)))
(set-frame-font font))
(leader-def-key "iUf" #'counsel-set-frame-font)
(ivy-set-actions