Add keybinding to set font

2020-02-21 22:32:50 -05:00 · 2020-02-21 22:32:50 -05:00 · eb397d3452
commit eb397d3452
parent b19295f430
1 changed files with 4 additions and 0 deletions
--- a/emacs/init.org
+++ b/emacs/init.org
@ -4112,6 +4112,10 @@ An alternative minibuffer completion framework:
    (if (executable-find "rg")
 	(leader-def-key "ig" #'counsel-rg)
      (leader-def-key "ig" #'counsel-grep))
+    (defun counsel-set-frame-font (font)
+      (interactive (list (counsel-fonts)))
+      (set-frame-font font))
+    (leader-def-key "iUf" #'counsel-set-frame-font)
    (ivy-set-actions
     'counsel-ibuffer
     '(("k" counsel-ibuffer-kill-buffer "kill buffer")))