awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-08 15:23:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

Yet another big update

Browse Source
This commit is contained in:
Henrik Lissner
2015-05-08 03:03:38 -04:00
parent a8f32547a3
commit c6862d1489
27 changed files with 474 additions and 355 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/defuns-ui.el
View File

@@ -30,12 +30,8 @@
(load-dark-theme)))
;;;###autoload
(defun cycle-font (&optional i)
"Cycle between fonts specified in *fonts in init.el"
(defun toggle-fullscreen ()
(interactive)
(if (numberp i)
(setq my/cycle-font-i i)
(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)))
(set-frame-parameter nil 'fullscreen
(when (not (frame-parameter nil 'fullscreen)) 'fullboth)))