awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Replace toggle-presentation with cycle-font

Browse Source
This commit is contained in:
Henrik Lissner
2015-01-20 03:17:50 -05:00
parent 8cff2e5580
commit 1181d4ba72
4 changed files with 31 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
core/defuns-ui.el
View File

@ -1,7 +1,7 @@
(eval-when-compile (require 'cl))
(defvar my/dark-theme-p t)
(defvar my/presentation-mode-p nil)
(defvar my/cycle-font-i 0)
;;;###autoload
(defun load-dark-theme()
@ -39,9 +39,14 @@
(load-dark-theme)))
;;;###autoload
(defun toggle-presentation-mode ()
(defun cycle-font ()
(interactive)
(if my/presentation-mode-p
(load-font *default-font *default-font-size)
(load-font *presentation-font *presentation-font-size))
(setq my/presentation-mode-p (not my/presentation-mode-p)))
(if (>= my/cycle-font-i (1- (length *fonts)))
(setq my/cycle-font-i 0)
(cl-incf my/cycle-font-i))
(let* ((font (nth my/cycle-font-i *fonts))
(font-name (nth 0 font))
(font-size (nth 1 font))
(font-aa (nth 2 font)))
(load-font font-name font-size)
(setq ns-antialias-text font-aa)))