call my-configure-font interactively

1 files changed, 5 insertions, 3 deletions

diff --git a/init.el b/init.el
index 19dfdde..f95fa7b 100644
--- a/init.el
+++ b/init.el
@@ -113,9 +113,11 @@
 (setopt frame-inhibit-implied-resize t)
 
 (defun my-configure-font ()
-  (when (member "Iosevka" (font-family-list))
-    (set-face-attribute 'default nil :font "Iosevka" :height 124)
-    (set-face-attribute 'fixed-pitch nil :family "Iosevka")))
+  (interactive)
+  (let ((font "Iosevka"))
+    (when (member font (font-family-list))
+      (set-face-attribute 'default nil :font font :height 124)
+      (set-face-attribute 'fixed-pitch nil :family font))))
 
 ;; Loads font correctly whether using emacs daemon or standalone process
 (if (daemonp)