41 lines
1,006 B
EmacsLisp
41 lines
1,006 B
EmacsLisp
(eval-when-compile (require 'cl))
|
|
|
|
(defvar my/dark-theme-p t)
|
|
(defvar my/cycle-font-i 0)
|
|
|
|
;;;###autoload
|
|
(defun load-dark-theme()
|
|
(interactive)
|
|
(load-theme *dark-theme t))
|
|
|
|
;;;###autoload
|
|
(defun load-light-theme()
|
|
(interactive)
|
|
(load-theme *light-theme t))
|
|
|
|
;;;###autoload
|
|
(defun toggle-transparency ()
|
|
(interactive)
|
|
(let* ((alpha (frame-parameter nil 'alpha))
|
|
(alpha-val (if (listp alpha) (car alpha) alpha)))
|
|
(if (/= alpha-val 97)
|
|
(set-frame-parameter nil 'alpha 97)
|
|
(set-frame-parameter nil 'alpha 0))))
|
|
|
|
;;;###autoload
|
|
(defun toggle-theme ()
|
|
(interactive)
|
|
(if my/dark-theme-p
|
|
(load-light-theme)
|
|
(load-dark-theme)))
|
|
|
|
;;;###autoload
|
|
(defun cycle-font (&optional i)
|
|
"Cycle between fonts specified in *fonts in init.el"
|
|
(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)))
|