diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-14 11:56:52 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-14 11:56:52 -0500 |
| commit | ac410bfd4b9ac0c148101909264d8af42f1f55e2 (patch) | |
| tree | 69967ce2c5bb488b31437f399322390cbf7f98a7 | |
| parent | 23a7b79c803a6570f7a862b9f63215bb5d4b7f65 (diff) | |
major theme tweaking; Added auto-light-mode toggler
| -rw-r--r-- | init-el.org | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/init-el.org b/init-el.org index 7a25085..ff00226 100644 --- a/init-el.org +++ b/init-el.org @@ -562,11 +562,23 @@ So, to use this file for the very first time you must (fit-window-to-buffer) (resize-window--enlarge-horizontally)) +(setq *auto-light-mode* nil) + +(defun toggle-auto-light-mode () + (interactive) + (set-frame-parameter + nil 'screen-gamma + (if *auto-light-mode* + 2.2 + 3.1)) + (setq *auto-light-mode* (not *auto-light-mode*))) + (def-my-command my-window-comand '((?/ "[/] vertical splitter" split-window-horizontally) (?- "[-] horoziontal splitter" split-window-vertically) (?b "[b]alance windows" balance-windows) (?t "[t]ransparency" transparency) + (?l "[l]ightmode toggle" toggle-auto-light-mode) (?k "[k]ill window" delete-window) (?m "[m]aximise window" delete-other-windows) (?R "[R]otate window" rotate-window) @@ -618,10 +630,12 @@ So, to use this file for the very first time you must (package-install 'autothemer) ;; for custom themes -(load "~/.emacs.d/shanty-themes.el") +;(load "~/.emacs.d/shanty-themes.el") (setq my-installed-themes - '(modus-themes)) + '(modus-themes + stimmung-themes + dracula-theme)) (dolist (package my-installed-themes) (when (not (package-installed-p package)) @@ -638,13 +652,14 @@ So, to use this file for the very first time you must #+begin_src elisp :results none (setq *my-themes* - '(modus-operandi - shanty-themes-light - shanty-themes-dark + '(pumpkin-spice + modus-operandi + stimmung-themes-light + dracula + stimmung-themes-dark modus-vivendi halloweenie)) - (defun my-theme-string () (if (car custom-enabled-themes) (format "%s is current" (car custom-enabled-themes)) @@ -687,6 +702,7 @@ So, to use this file for the very first time you must #+end_src + *** Halloweenie #+name: halloweenie |