commit 64eade0f3bcf576a18ba603e3bc5e92f4f502f64 parent 2852910020e9d9e8f59b64834ec72b996891be97 Author: Vincent Demeester <vincent@sbr.pm> Date: Thu, 30 Apr 2020 19:59:15 +0200 config-appearance.el: switch to modus-* themes Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
M | tools/emacs/config/config-appearance.el | | | 72 | ++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------- |
M | tools/emacs/dump.el | | | 5 | ++--- |
2 files changed, 54 insertions(+), 23 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/tools/emacs/config/config-appearance.el @@ -56,31 +56,63 @@ ;; -LoadTheme ;; UseTheme -(use-package shortbrain-light-theme +(use-package emacs :config - (load-theme 'shortbrain-light) + (setq custom-safe-themes t) - (defun set-light-theme () - "Set the light theme with some customization if needed." - (interactive) - (use-package shortbrain-light-theme - :config - (load-theme 'shortbrain-light t))) + (defun sbr/modus-operandi () + "Enable some Modus Operandi variables and load the theme. +This is used internally by `sbr/modus-themes-toggle'." + (setq modus-operandi-theme-slanted-constructs t + modus-operandi-theme-bold-constructs t + modus-operandi-theme-visible-fringes nil + modus-operandi-theme-3d-modeline t + modus-operandi-theme-subtle-diffs t + modus-operandi-theme-distinct-org-blocks nil + modus-operandi-theme-proportional-fonts nil + modus-operandi-theme-rainbow-headings t + modus-operandi-theme-section-headings nil + modus-operandi-theme-scale-headings nil + modus-operandi-theme-scale-1 1.05 + modus-operandi-theme-scale-2 1.1 + modus-operandi-theme-scale-3 1.15 + modus-operandi-theme-scale-4 1.2) + (load-theme 'modus-operandi t)) - (defun set-dark-theme () - "Set the dark theme with some customization if needed." - (interactive) - (use-package shortbrain-theme - :config - (load-theme 'shortbrain t))) + (defun sbr/modus-vivendi () + "Enable some Modus Vivendi variables and load the theme. +This is used internally by `sbr/modus-themes-toggle'." + (setq modus-vivendi-theme-slanted-constructs t + modus-vivendi-theme-bold-constructs t + modus-vivendi-theme-visible-fringes nil + modus-vivendi-theme-3d-modeline t + modus-vivendi-theme-subtle-diffs t + modus-vivendi-theme-distinct-org-blocks nil + modus-vivendi-theme-proportional-fonts nil + modus-vivendi-theme-rainbow-headings nil + modus-vivendi-theme-section-headings nil + modus-vivendi-theme-scale-headings nil + modus-vivendi-theme-scale-1 1.05 + modus-vivendi-theme-scale-2 1.1 + modus-vivendi-theme-scale-3 1.15 + modus-vivendi-theme-scale-4 1.2) + (load-theme 'modus-vivendi t)) + + (defcustom sbr/modus-themes-toggle-hook nil + "Hook that runs after `prot/modus-themes-toggle' is invoked." + :type 'hook) - (defun theme-switcher () + (defun sbr/modus-themes-toggle () + "Toggle between `sbr/modus-operandi' and `sbr/modus-vivendi'. +Also run `sbr/modus-themes-toggle-hook'." (interactive) - (let ((current-hour (string-to-number (format-time-string "%H")))) - (if (and (> current-hour 6) (< current-hour 20)) - (set-light-theme) - (set-dark-theme))))) -;; -UseTheme + (if (eq (car custom-enabled-themes) 'modus-operandi) + (sbr/modus-vivendi) + (sbr/modus-operandi)) + (run-hooks 'sbr/modus-themes-toggle-hook)) + :bind ("<f10>" . sbr/modus-themes-toggle) + :hook (after-init-hook . sbr/modus-operandi)) +;; -UseTheme0 ;; UseMoody (use-package moody diff --git a/tools/emacs/dump.el b/tools/emacs/dump.el @@ -10,9 +10,8 @@ (dolist (package '(use-package company recentf moody helpful undo-tree cus-edit pinentry hardhat diff use-package aggressive-indent savehist minions expand-region time uniquify isearch minibuffer icomplete dired delsel direnv auth-source simple epa-file message - vc vc-dir vc-git - shortbrain-light-theme shortbrain-theme)) + vc vc-dir vc-git modus-operandi-theme modus-vivendi-theme)) (require package)) -(load-theme 'shortbrain-light t t) +(load-theme 'modus-operandi t t) ;; dump image (dump-emacs-portable (expand-file-name "emacs.pdmp" user-emacs-directory))