emacs: fix solarized somehow

auto-flake-update
Yorick van Pelt 2022-05-02 10:37:17 +02:00
parent 5c41dc7b08
commit 8d586e8841
Signed by: yorick
GPG Key ID: A36E70F9DC014A15
2 changed files with 20 additions and 16 deletions

View File

@ -4,7 +4,7 @@
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(custom-safe-themes '(custom-safe-themes
'("fee7287586b17efbfda432f05539b58e86e059e78006ce9237b8732fde991b4c" "8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "a8245b7cc985a0610d71f9852e9f2767ad1b852c2bdea6f4aadc12cce9c4d6d0" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" default)) '("4c56af497ddf0e30f65a7232a8ee21b3d62a8c332c6b268c81e9ea99b11da0d3" "fee7287586b17efbfda432f05539b58e86e059e78006ce9237b8732fde991b4c" "8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "a8245b7cc985a0610d71f9852e9f2767ad1b852c2bdea6f4aadc12cce9c4d6d0" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" default))
'(notmuch-saved-searches '(notmuch-saved-searches
'((:name "unread" :query "tag:unread" :key "u") '((:name "unread" :query "tag:unread" :key "u")
(:name "flagged" :query "tag:flagged" :key "f") (:name "flagged" :query "tag:flagged" :key "f")

View File

@ -137,21 +137,25 @@
* Look * Look
** Solarized ** Solarized
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq solarized-distinct-fringe-background t) ;; used to fix modeline
(setq solarized-scale-org-headlines nil) (defvar after-load-theme-hook nil
;; used to fix modeline
(defvar after-load-theme-hook nil
"Hook run after a color theme is loaded using `load-theme'.") "Hook run after a color theme is loaded using `load-theme'.")
(defun reload-solarized (event) (defun reload-solarized (event)
(let ((theme (intern (concat "solarized-" (with-temp-buffer (let ((theme (intern (concat "solarized-" (with-temp-buffer
(insert-file-contents "~/dotfiles/color-scheme") (insert-file-contents "~/dotfiles/color-scheme")
(string-trim (buffer-string)) (string-trim (buffer-string))
))))) )))))
(load-theme theme t) (load-theme theme t)
(run-hooks 'after-load-theme-hook))) (run-hooks 'after-load-theme-hook)))
(reload-solarized nil) (use-package solarized
;; auto-reload :init
(use-package filenotify (setq solarized-distinct-fringe-background t)
(setq solarized-scale-org-headlines nil)
:config (reload-solarized nil))
;; auto-reload
(use-package filenotify
:after solarized
:config :config
(file-notify-add-watch "~/dotfiles/color-scheme" '(change) 'reload-solarized)) (file-notify-add-watch "~/dotfiles/color-scheme" '(change) 'reload-solarized))
#+END_SRC #+END_SRC