-;;; Theme
-
-(add-to-list 'custom-theme-load-path
- (expand-file-name
- (convert-standard-filename "lisp") user-emacs-directory))
-(load-theme 'tangomod t)
-
-(use-package smart-mode-line
- :commands (sml/apply-theme)
- :demand
- :config
- ;; thanks, but no thnaks; don't make fixed-width fills.
- (defun sml/fill-for-buffer-identification () "")
- (setq sml/theme 'tangomod)
- (sml/setup)
- (smart-mode-line-enable))
-
-(use-package doom-modeline
- :disabled
- :demand
- :hook (after-init . doom-modeline-init)
- :custom
- (doom-modeline-buffer-file-name-style 'relative-to-project))
-
-(use-package doom-themes)
-
-(use-package moody
- :disabled
- :demand
- :config
- (setq x-underline-at-descent-line t)
- (let ((line (face-attribute 'mode-line :underline)))
- (set-face-attribute 'mode-line nil :overline line)
- (set-face-attribute 'mode-line-inactive nil :overline line)
- (set-face-attribute 'mode-line-inactive nil :underline line)
- (set-face-attribute 'mode-line nil :box nil)
- (set-face-attribute 'mode-line-inactive nil :box nil)
- (set-face-attribute 'mode-line-inactive nil :background "#e1e1e1")) ; d3d7cf
- (moody-replace-mode-line-buffer-identification)
- (moody-replace-vc-mode))
-
-(use-package mini-modeline
- :disabled
- :demand
- :config (mini-modeline-mode))
-
-(defvar b/org-mode-font-lock-keywords
- '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
- (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
- (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
- (4 '(:foreground "#c5c8c6") t))) ; title
- "For use with the `doom-tomorrow-night' theme.")
-
-(defun b/lights-on ()
- "Enable my favourite light theme."
- (interactive)
- (mapc #'disable-theme custom-enabled-themes)
- (load-theme 'tangomod t)
- (when (featurep 'smart-mode-line)
- (sml/apply-theme 'tangomod))
- (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)))
-
-(defun b/lights-off ()
- "Go dark."
- (interactive)
- (mapc #'disable-theme custom-enabled-themes)
- (load-theme 'doom-one t)
- (when (featurep 'smart-mode-line)
- (sml/apply-theme 'automatic))
- (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)))
-
-(bind-keys
- ("C-c t d" . b/lights-off)
- ("C-c t l" . b/lights-on))
-
-\f