From 9f1435cbfb0ebe95655ae0b9c7be218e087f1ee6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 13 May 2015 19:26:24 -0400 Subject: [PATCH] Change fonts & announce when font changes --- core/defuns.el | 4 +++- init.el | 10 +++++----- 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/core/defuns.el b/core/defuns.el index 152d31b89..3581b6502 100644 --- a/core/defuns.el +++ b/core/defuns.el @@ -109,7 +109,9 @@ key-chord-define." (if (>= my/cycle-font-i (1- (length *fonts))) (setq my/cycle-font-i 0) (cl-incf my/cycle-font-i))) - (set-frame-font (nth my/cycle-font-i *fonts))) + (let ((font (nth my/cycle-font-i *fonts))) + (message "Changing font to %s" (nth 1 (font-face-attributes font))) + (set-frame-font font))) ;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;; diff --git a/init.el b/init.el index 7957ecb3b..f532608a3 100644 --- a/init.el +++ b/init.el @@ -26,12 +26,12 @@ (defconst my-snippets-dir (concat my-dir "snippets/")) (defconst my-tmp-dir (concat my-dir ".cache/")) -(defconst *dark-theme 'v0) -(defconst *light-theme 'github) ; wtb better light theme... - +(defconst *dark-theme 'v0) +(defconst *light-theme 'github) ; wtb better light theme... (defconst *fonts `(,(font-spec :family "Terminus (TTF)" :size 12 :antialias nil) - ,(font-spec :family "Ubuntu Mono" :size 14 :antialias t) - ,(font-spec :family "Inconsolata" :size 22 :antialias t))) + ,(font-spec :family "Inconsolata" :size 14 :antialias t) + ,(font-spec :family "Ubuntu Mono" :size 20 :antialias t) + )) (add-to-list 'load-path my-core-dir) (add-to-list 'load-path my-modules-dir)