From 8d586e8841d7405504267e42face419e31b02760 Mon Sep 17 00:00:00 2001 From: Yorick van Pelt Date: Mon, 2 May 2022 10:37:17 +0200 Subject: [PATCH] emacs: fix solarized somehow --- emacs/emacs-custom.el | 2 +- emacs/emacs.org | 34 +++++++++++++++++++--------------- 2 files changed, 20 insertions(+), 16 deletions(-) diff --git a/emacs/emacs-custom.el b/emacs/emacs-custom.el index 90c924d..630846c 100644 --- a/emacs/emacs-custom.el +++ b/emacs/emacs-custom.el @@ -4,7 +4,7 @@ ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(custom-safe-themes - '("fee7287586b17efbfda432f05539b58e86e059e78006ce9237b8732fde991b4c" "8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "a8245b7cc985a0610d71f9852e9f2767ad1b852c2bdea6f4aadc12cce9c4d6d0" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" default)) + '("4c56af497ddf0e30f65a7232a8ee21b3d62a8c332c6b268c81e9ea99b11da0d3" "fee7287586b17efbfda432f05539b58e86e059e78006ce9237b8732fde991b4c" "8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "a8245b7cc985a0610d71f9852e9f2767ad1b852c2bdea6f4aadc12cce9c4d6d0" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" default)) '(notmuch-saved-searches '((:name "unread" :query "tag:unread" :key "u") (:name "flagged" :query "tag:flagged" :key "f") diff --git a/emacs/emacs.org b/emacs/emacs.org index aa0a651..1e2a71f 100644 --- a/emacs/emacs.org +++ b/emacs/emacs.org @@ -137,23 +137,27 @@ * Look ** Solarized #+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-scale-org-headlines nil) - ;; 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))) - (reload-solarized nil) - ;; auto-reload - (use-package filenotify - :config - (file-notify-add-watch "~/dotfiles/color-scheme" '(change) 'reload-solarized)) + :config (reload-solarized nil)) + +;; auto-reload +(use-package filenotify + :after solarized + :config + (file-notify-add-watch "~/dotfiles/color-scheme" '(change) 'reload-solarized)) #+END_SRC ** Cleaner frames #+BEGIN_SRC emacs-lisp