oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Emacs theme isn't synced to time, and is loaded after-init

Browse Source
This commit is contained in:
Aryadev Chavali
2024-10-01 15:33:01 +01:00
parent bdb1b68b95
commit 791d50ae7e
1 changed files with 3 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Emacs/.config/emacs/config.org
View File

@@ -254,7 +254,8 @@ theme is in [[file:elisp/personal-light-theme.el][this file]].
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package custom (use-package custom
:defer t :defer t
:commands +oreo/switch-theme :commands (+oreo/load-theme)
:hook (after-init-hook . +oreo/load-theme)
:init :init
(setq custom-theme-directory (concat user-emacs-directory "elisp/")) (setq custom-theme-directory (concat user-emacs-directory "elisp/"))
(defvar +oreo/theme-list `(personal-light personal-solarized)) (defvar +oreo/theme-list `(personal-light personal-solarized))
@@ -281,15 +282,7 @@ theme is in [[file:elisp/personal-light-theme.el][this file]].
(setq +oreo/theme (mod (+ 1 +oreo/theme) (length +oreo/theme-list))) (setq +oreo/theme (mod (+ 1 +oreo/theme) (length +oreo/theme-list)))
(+oreo/load-theme)) (+oreo/load-theme))
(defun +oreo/sync-theme () (+oreo/load-theme))
(let ((hour (read (format-time-string "%H"))))
(setq +oreo/theme
(if (and (>= hour 8) (< hour 15))
0
1))
(+oreo/load-theme)))
(run-at-time nil (* 60 60) #'+oreo/sync-theme))
#+end_src #+end_src
** Font size ** Font size
Adjust font sizes for my devices. Adjust font sizes for my devices.