Add function to set the frame font

2021-02-26 16:47:28 -05:00 · 2021-02-26 16:47:28 -05:00 · 621e4aea64
commit 621e4aea64
parent 4f8d3e4fec
1 changed files with 7 additions and 0 deletions
--- 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)