Switch between default and big font

core/core-vars.el

@@ -45,5 +45,8 @@ gets killed.")
   "A list of files that count as 'project files', which determine whether a
     folder is the root of a project or not.")
 
+(defcustom narf-big-font (font-spec :family "Ubuntu Mono" :size 18 :antialias t)
+  "Font to switch to in big mode")
+
 (provide 'core-vars)
 ;;; core-vars.el ends here

core/lib/defuns-ui.el

@@ -20,10 +20,23 @@
 ;;;###autoload
 (defun narf:toggle-big-mode ()
   (interactive)
-  (if narf--big-mode
-      (set-frame-font (apply #'font-spec narf-default-font))
-    (set-frame-font (apply #'font-spec narf-big-font)))
+  (if narf--big-mode narf/default-font (narf/big-font))
   (setq narf--big-mode (not narf--big-mode)))
 
+;;;###autoload
+(defun narf/reset-theme ()
+  (interactive)
+  (load-theme 'narf-dark t t))
+
+;;;###autoload
+(defun narf/default-font ()
+  (interactive)
+  (set-frame-font narf-default-font))
+
+;;;###autoload
+(defun narf/big-font ()
+  (interactive)
+  (set-frame-font narf-big-font))
+
 (provide 'defuns-ui)
 ;;; defuns-ui.el ends here