awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-02 14:53:38 -05:00
Code Issues Packages Projects Releases 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)))
(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 ;;;;;;;;;;;;;;;;;;;;;