Change fonts & announce when font changes
This commit is contained in:
parent
34560b0bd0
commit
9f1435cbfb
|
@ -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 ;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
6
init.el
6
init.el
|
@ -28,10 +28,10 @@
|
|||
|
||||
(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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user