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