;;; 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.
(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)
- (when (featurep 'erc-hl-nicks)
- (erc-hl-nicks-reset-face-table))
(when (featurep 'exwm-systemtray)
(exwm-systemtray--refresh)))
(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)
- (when (featurep 'erc-hl-nicks)
- (erc-hl-nicks-reset-face-table))
(when (featurep 'exwm-systemtray)
(exwm-systemtray--refresh)))