From 13fb8992e11c71df40620280a1b54325224ac312 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sun, 16 Aug 2015 16:43:38 -0700 Subject: [PATCH] More theming changes --- dotfiles/emacs.d/init.el | 18 ++++++++---------- dotfiles/emacs.d/source-code-pro-theme.el | 2 +- 2 files changed, 9 insertions(+), 11 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 85330b8c..e568c918 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -2070,12 +2070,6 @@ window is active in the perspective." (setq left-margin-width 0) (defvar-setq hl-line-mode nil)) -(when t - (if (emacs24_4-p) - (advice-add 'load-theme :after #'imalison:remove-fringe-and-hl-line-mode) - (defadvice load-theme (after name activate) - (imalison:remove-fringe-and-hl-line-mode)))) - (when (file-exists-p custom-after-file) (load custom-after-file)) (defun imalison:appearance (&optional frame) @@ -2085,14 +2079,18 @@ window is active in the perspective." (progn (set-face-attribute 'default nil :font "Source Code Pro") (set-face-attribute 'default nil :weight 'semi-bold) - (set-face-attribute 'default nil :height 135))) + (set-face-attribute 'default nil :height 135)) + (progn + (load-theme 'source-code-pro t) + (message "not setting font"))) (load-theme imalison:my-theme t) - (imalison:remove-fringe-and-hl-line-mode)) + (imalison:remove-fringe-and-hl-line-mode) + (message "finished set appearance")) ;; This is needed because you can't set the font or theme at daemon start-up. +;; (when (display-graphic-p) (imalison:appearance)) +(add-hook 'after-init-hook 'imalison:appearance) (add-hook 'after-make-frame-functions 'imalison:appearance) -;; (add-hook 'after-init-hook 'imalison:appearance) - ;; Local Variables: ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc) ;; End: diff --git a/dotfiles/emacs.d/source-code-pro-theme.el b/dotfiles/emacs.d/source-code-pro-theme.el index f11b8f62..03715e2b 100644 --- a/dotfiles/emacs.d/source-code-pro-theme.el +++ b/dotfiles/emacs.d/source-code-pro-theme.el @@ -7,6 +7,6 @@ (custom-theme-set-faces 'source-code-pro - '(default ((t (:width normal :height 120 :weight normal :slant normal :foundry "nil" :family "Source Code Pro" :background nil))))) + '(default ((t (:width normal :height 135 :weight semi-bold :slant normal :foundry "nil" :family "Source Code Pro" :background nil))))) (provide-theme 'source-code-pro)