diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 6e9ced73..3689dd9b 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -601,7 +601,7 @@ the ~:around~ keyword of advice-add.
 ** Font Size
 This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-adjust-text-size-in-mode-line-and-minibuffer][here]] but it has diverged significantly from the original.
 #+BEGIN_SRC emacs-lisp
-(setq imalison:default-font-size-pt
+(defvar imalison:default-font-size-pt
       (cond ((eq system-type 'darwin) 120)
             ((eq system-type 'gnu/linux) 105)))
 
@@ -611,8 +611,13 @@ This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-
   (plist-get (custom-face-attributes-get 'default nil) :height))
 
 (defun imalison:set-font-size (size)
+  (interactive (list (string-to-number (read-string "Enter a font size: "))))
   (set-face-attribute 'default nil :height size))
 
+(defun imalison:set-huge-font-size ()
+  (interactive)
+  (imalison:set-font-size imalison:huge-font-size))
+
 (cl-defun imalison:modify-font-size (&optional (arg 10))
   (interactive "p")
   (imalison:set-font-size (+ (imalison:current-font-size) arg)))
@@ -1275,10 +1280,11 @@ https://github.com/alpaker/Fill-Column-Indicator/issues/21 for more details
       nil 
       "Resize Font"
       ("-" imalison:font-size-decr "Decrease")
+      ("d" imalison:font-size-decr "Decrease")
       ("=" imalison:font-size-incr "Increase")
       ("+" imalison:font-size-incr "Increase")
-      ("d" imalison:font-size-decr "Decrease")
       ("i" imalison:font-size-incr "Increase")
+      ("h" imalison:set-huge-font-size "Huge")
       ("f" set-frame-font "Set Frame Font")
       ("0" imalison:font-size-reset "Reset to default size"))