From b2743d4188cfa0ca30d56b378d1768fd465f35f7 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 3 Sep 2016 17:07:39 -0700 Subject: [PATCH] Fix frame initialization --- dotfiles/emacs.d/README.org | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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))