From 5ac733498ae1ebc7b687211b96eea15216aabcc1 Mon Sep 17 00:00:00 2001 From: tastytea Date: Thu, 26 Nov 2020 13:21:04 +0100 Subject: [PATCH] Emacs: Add my/reload-theme, some dependency fixes. --- init.d/basics/appearance.el | 12 +++++++----- init.d/basics/ui.el | 4 ++-- init.d/text/common.el | 3 ++- 3 files changed, 11 insertions(+), 8 deletions(-) diff --git a/init.d/basics/appearance.el b/init.d/basics/appearance.el index fb10d5c..1200178 100644 --- a/init.d/basics/appearance.el +++ b/init.d/basics/appearance.el @@ -1,6 +1,6 @@ ;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*- -;; Time-stamp: <2020-11-21T22:03:10+0100> +;; Time-stamp: <2020-11-26T13:18:43+0100> ;;; Commentary: @@ -63,14 +63,16 @@ :custom ((doom-themes-treemacs-theme "doom-colors") (doom-themes-treemacs-enable-variable-pitch nil)) :config (progn - (load-theme 'doom-outrun-electric t) + (defun my/reload-theme () + (load-theme 'doom-outrun-electric t) + (set-face-background 'scroll-bar (face-background 'default)) + (set-face-foreground 'scroll-bar (face-foreground 'shadow))) + (my/reload-theme) + (doom-themes-visual-bell-config) ; Flash modeline on error. (when (display-graphic-p) (doom-themes-treemacs-config)) - (set-face-background 'scroll-bar (face-background 'default)) - (set-face-foreground 'scroll-bar (face-foreground 'shadow)) - ;; Write a minimal theme to file, to load it in early-init.el. (unless (string= (face-background 'default) "unspecified-bg") (let ((minimal-theme)) diff --git a/init.d/basics/ui.el b/init.d/basics/ui.el index f035cfd..8cec2e1 100644 --- a/init.d/basics/ui.el +++ b/init.d/basics/ui.el @@ -1,6 +1,6 @@ ;;; ui.el --- Configure user interfaces. -*- lexical-binding: t; -*- -;; Time-stamp: <2020-11-26T12:44:15+0100> +;; Time-stamp: <2020-11-26T13:13:57+0100> ;;; Commentary: ;; * treemacs @@ -13,7 +13,7 @@ (require 'basics/package-management) (use-package treemacs - :after (display-line-numbers) + :after (display-line-numbers doom-themes) ;; ;; Start with a clean workspace list. ;; :init (delete-file (expand-file-name ".cache/treemacs-persist" ;; user-emacs-directory)) diff --git a/init.d/text/common.el b/init.d/text/common.el index aa3dec8..da2075e 100644 --- a/init.d/text/common.el +++ b/init.d/text/common.el @@ -1,6 +1,6 @@ ;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*- -;; Time-stamp: <2020-11-18T18:37:20+0100> +;; Time-stamp: <2020-11-26T13:04:50+0100> ;;; Commentary: @@ -49,6 +49,7 @@ ;; Ruler with fill-column marker. (use-package ruler-mode + :after (doom-themes) :config (progn (set-face-background 'ruler-mode-default (face-foreground 'line-number))