emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Change fonts & announce when font changes

Browse source
This commit is contained in:
Henrik Lissner 2015-05-13 19:26:24 -04:00
parent 34560b0bd0
commit 9f1435cbfb
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/defuns.el
View file

@ -109,7 +109,9 @@ key-chord-define."
(if (>= my/cycle-font-i (1- (length *fonts))) (if (>= my/cycle-font-i (1- (length *fonts)))
(setq my/cycle-font-i 0) (setq my/cycle-font-i 0)
(cl-incf my/cycle-font-i))) (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 ;;;;;;;;;;;;;;;;;;;;; ;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;

10
init.el
View file

@ -26,12 +26,12 @@
(defconst my-snippets-dir (concat my-dir "snippets/")) (defconst my-snippets-dir (concat my-dir "snippets/"))
(defconst my-tmp-dir (concat my-dir ".cache/")) (defconst my-tmp-dir (concat my-dir ".cache/"))
(defconst *dark-theme 'v0) (defconst *dark-theme 'v0)
(defconst *light-theme 'github) ; wtb better light theme... (defconst *light-theme 'github) ; wtb better light theme...
(defconst *fonts `(,(font-spec :family "Terminus (TTF)" :size 12 :antialias nil) (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 14 :antialias t)
,(font-spec :family "Inconsolata" :size 22 :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-core-dir)
(add-to-list 'load-path my-modules-dir) (add-to-list 'load-path my-modules-dir)