diff --git a/emacs/.emacs.d/config/init-ui.el b/emacs/.emacs.d/config/init-ui.el
index 735088d..69e41cf 100644
--- a/emacs/.emacs.d/config/init-ui.el
+++ b/emacs/.emacs.d/config/init-ui.el
@@ -19,4 +19,11 @@
 (use-package hide-mode-line
   :commands hide-mode-line-mode)
 
+;; A function to set the frame font
+(defun set-font (font)
+  "Set the frame font to `font'"
+  (interactive (list (completing-read "Font: "
+                                      (delete-dups (font-family-list)))))
+  (set-frame-font font))
+
 (provide 'init-ui)