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")))