* .local/bin/startup-progs: Fix merging X reources files.

[~bandali/configs] / .emacs.d / lisp / bandali-theme.el

diff --git a/.emacs.d/lisp/bandali-theme.el b/.emacs.d/lisp/bandali-theme.el
index 13929cb..fa5911c 100644 (file)
--- a/.emacs.d/lisp/bandali-theme.el
+++ b/.emacs.d/lisp/bandali-theme.el
@@ -24,9 +24,11 @@
 
 ;;; Code:
 
 
 ;;; Code:
 

-(with-eval-after-load 'package
-  (require 'refinery-theme)
-  (load-theme 'refinery t))
+(when (display-graphic-p)
+  (add-to-list 'load-path (b/lisp "refinery-theme"))
+  (with-eval-after-load 'package
+    (require 'refinery-theme)
+    (load-theme 'refinery t)))

 
 ;; (require 'smart-mode-line)
 ;; ;; thanks, but no thanks; don't make fixed-width fills.
 
 ;; (require 'smart-mode-line)
 ;; ;; thanks, but no thanks; don't make fixed-width fills.


@@ -55,13 +57,8 @@
   (interactive)
   (mapc #'disable-theme custom-enabled-themes)
   (load-theme 'refinery t)
   (interactive)
   (mapc #'disable-theme custom-enabled-themes)
   (load-theme 'refinery t)

-  (when (featurep 'smart-mode-line)
-    (let ((sml/no-confirm-load-theme t))
-      (sml/apply-theme 'respectful)))

   (font-lock-remove-keywords
    'org-mode b/org-mode-font-lock-keywords)
   (font-lock-remove-keywords
    'org-mode b/org-mode-font-lock-keywords)

-  (when (featurep 'erc-hl-nicks)
-    (erc-hl-nicks-reset-face-table))

   (when (featurep 'exwm-systemtray)
     (exwm-systemtray--refresh)))
 
   (when (featurep 'exwm-systemtray)
     (exwm-systemtray--refresh)))
 


@@ -70,13 +67,8 @@
   (interactive)
   (mapc #'disable-theme custom-enabled-themes)
   (load-theme 'refinery-dark t)
   (interactive)
   (mapc #'disable-theme custom-enabled-themes)
   (load-theme 'refinery-dark t)

-  (when (featurep 'smart-mode-line)
-    (let ((sml/no-confirm-load-theme t))
-      (sml/apply-theme 'dark)))

   (font-lock-add-keywords
    'org-mode b/org-mode-font-lock-keywords t)
   (font-lock-add-keywords
    'org-mode b/org-mode-font-lock-keywords t)

-  (when (featurep 'erc-hl-nicks)
-    (erc-hl-nicks-reset-face-table))

   (when (featurep 'exwm-systemtray)
     (exwm-systemtray--refresh)))
 
   (when (featurep 'exwm-systemtray)
     (exwm-systemtray--refresh)))