diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 011af924..9f493256 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -3856,21 +3856,23 @@ Set the character used to represent spaces to ·, and the character used for tab
 (defun imalison:restore-ansi-term-color-vector (&optional force)
   (when (or force (imalison:ansi-term-color-vector-broken?))
     (setq ansi-term-color-vector imalison:ansi-term-color-vector)))
-
+#+END_SRC
+* Frame Initialization
+#+BEGIN_SRC emacs-lisp
 (defun imalison:appearance (&optional frame)
-  (interactive)
+  (interactive (list nil))
   (if (display-graphic-p)
       (progn
         (condition-case _ignored
             (set-face-attribute 'default nil :font "Source Code Pro")
           ('error nil))
         (set-face-attribute 'default nil :weight 'semi-bold)
-        (set-face-attribute 'default nil :height 135)
-        (progn
+        (set-face-attribute 'default nil :height 135))
+    (progn
           (load-theme 'source-code-pro t)
           (message "not setting font")))
     (load-theme imalison:dark-theme t)
-    (imalison:remove-fringe-and-hl-line-mode)))
+    (imalison:remove-fringe-and-hl-line-mode))
 
 ;; This is needed because you can't set the font or theme at daemon start-up.
 ;; (when (display-graphic-p) (imalison:appearance))