From eb397d345200ef12ced001eabe348d0029d89ac9 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremydormitzer@lola.com>
Date: Fri, 21 Feb 2020 22:32:50 -0500
Subject: [PATCH] Add keybinding to set font

---
 emacs/init.org | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/emacs/init.org b/emacs/init.org
index b7fdb37..3e571a6 100755
--- 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")))