From f3fc347e465b667e68730e3feae58041d2195732 Mon Sep 17 00:00:00 2001 From: Livien Yin Date: Mon, 10 Nov 2014 04:51:35 -0800 Subject: [PATCH] Run font hook when setting theme. --- init.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/init.el b/init.el index 9816d650..e52df773 100644 --- a/init.el +++ b/init.el @@ -424,8 +424,8 @@ buffer is not visiting a file." ;; (defvar dark-themes '(monokai molokai solarized-dark base16-default)) ;; (defvar light-themes '(zenburn solarized-light)) -(defvar dark-themes '(base16-tomorrow)) -(defvar light-themes '(zenburn)) +(defvar dark-themes '(monokai)) +(defvar light-themes '(monokai)) (defun random-choice (choices) (nth (random (length choices)) choices)) @@ -446,11 +446,18 @@ buffer is not visiting a file." (progn (load-theme appropriate-theme t) (setq current-theme appropriate-theme))))) +(defun set-my-font-for-frame (frame) + (condition-case exp + (set-default-font "monaco-11" nil t) + ('error (package-refresh-contents) + (set-default-font "menlo-11" nil t) nil))) + (defun remove-fringe-and-hl-line-mode (&rest stuff) (scroll-bar-mode -1) (tool-bar-mode -1) (menu-bar-mode -1) (set-fringe-mode 0) + (set-my-font-for-frame nil) (setq hl-line-mode nil)) (advice-add 'load-theme :after #'remove-fringe-and-hl-line-mode) @@ -458,9 +465,4 @@ buffer is not visiting a file." ;; enable to set theme based on time of day. (run-at-time "00:00" 3600 'set-theme) -(add-hook 'after-make-frame-functions - (lambda (frame) - (condition-case exp - (set-default-font "monaco-11" nil t) - ('error (package-refresh-contents) - (set-default-font "menlo-11" nil t) nil)))) +(add-hook 'after-make-frame-functions 'set-my-font-for-frame)