Change the default theme from dracula to base16 based theme
This commit is contained in:
parent
1d674392f8
commit
c8fee15422
|
@ -121,6 +121,7 @@
|
||||||
nerd-icons
|
nerd-icons
|
||||||
forge
|
forge
|
||||||
svg-tag-mode
|
svg-tag-mode
|
||||||
|
base16-theme
|
||||||
consult)
|
consult)
|
||||||
|
|
||||||
(provide 'fg42/deps)
|
(provide 'fg42/deps)
|
||||||
|
|
|
@ -24,11 +24,18 @@
|
||||||
(eval-when-compile
|
(eval-when-compile
|
||||||
(require 'fpkg))
|
(require 'fpkg))
|
||||||
|
|
||||||
|
(require 'fg42/utils)
|
||||||
|
|
||||||
(defvar fg42/modeline-views nil
|
(defvar fg42/modeline-views nil
|
||||||
"A list of Noether views to use for modeline.")
|
"A list of Noether views to use for modeline.")
|
||||||
|
|
||||||
|
|
||||||
|
(defvar fg42/modeline-active-face nil
|
||||||
|
"Override the active modeline face via this var.")
|
||||||
|
|
||||||
|
(defvar fg42/modeline-inactive-face nil
|
||||||
|
"Override the inactive modeline face via this var.")
|
||||||
|
|
||||||
(defface fg42/-disabled-modeline-active-border
|
(defface fg42/-disabled-modeline-active-border
|
||||||
'((t
|
'((t
|
||||||
:background "#bd93f9" :height 0.1 :box nil))
|
:background "#bd93f9" :height 0.1 :box nil))
|
||||||
|
@ -53,13 +60,18 @@ to Emacs modeline."
|
||||||
:config
|
:config
|
||||||
(require 'noether-views)
|
(require 'noether-views)
|
||||||
|
|
||||||
|
(let ((active-border (get-base16-color-or :base0A "#bd93f9"))
|
||||||
|
(inactive-border (get-base16-color-or :base04 "#44475a")))
|
||||||
|
(set-face-attribute 'fg42/-disabled-modeline-active-border nil :background active-border)
|
||||||
|
(set-face-attribute 'fg42/-disabled-modeline-dective-border nil :background inactive-border))
|
||||||
|
|
||||||
;; Disable the default modeline
|
;; Disable the default modeline
|
||||||
(setq-default mode-line-format "")
|
(setq-default mode-line-format "")
|
||||||
(let ((face-remaps (default-value 'face-remapping-alist)))
|
(let ((face-remaps (default-value 'face-remapping-alist)))
|
||||||
(setf (alist-get 'mode-line face-remaps)
|
(setf (alist-get 'mode-line face-remaps)
|
||||||
'fg42/-disabled-modeline-active-border
|
(if fg42/modeline-active-face fg42/modeline-active-face 'fg42/-disabled-modeline-active-border)
|
||||||
(alist-get 'mode-line-inactive face-remaps)
|
(alist-get 'mode-line-inactive face-remaps)
|
||||||
'fg42/-disabled-modeline-dective-border
|
(if fg42/modeline-inactive-face fg42/modeline-inactive-face 'fg42/-disabled-modeline-dective-border)
|
||||||
(default-value 'face-remapping-alist) face-remaps))
|
(default-value 'face-remapping-alist) face-remaps))
|
||||||
|
|
||||||
(setq-default noether-views (or fg42/modeline-views
|
(setq-default noether-views (or fg42/modeline-views
|
||||||
|
|
|
@ -61,22 +61,22 @@ It executes way before the rest of the cubes.")
|
||||||
,@body)))))
|
,@body)))))
|
||||||
|
|
||||||
|
|
||||||
(use-theme! dracula-theme
|
;; (use-theme! dracula-theme
|
||||||
:init
|
;; :init
|
||||||
(fg42/setup-theme
|
;; (fg42/setup-theme
|
||||||
(require 'dracula-theme)
|
;; (require 'dracula-theme)
|
||||||
(load-theme 'dracula t)
|
;; (load-theme 'dracula t)
|
||||||
(custom-theme-set-faces
|
;; (custom-theme-set-faces
|
||||||
'dracula
|
;; 'dracula
|
||||||
'(match ((t (:background "#44475a"))))
|
;; '(match ((t (:background "#44475a"))))
|
||||||
'(all-the-icons-lgreen ((t (:background "#bd93f9"))))
|
;; '(all-the-icons-lgreen ((t (:background "#bd93f9"))))
|
||||||
'(all-the-icons-faicon ((t (:background "#bd93f9"))))
|
;; '(all-the-icons-faicon ((t (:background "#bd93f9"))))
|
||||||
'(font-lock-comment-face ((t (:foreground "#8B9298"))))
|
;; '(font-lock-comment-face ((t (:foreground "#8B9298"))))
|
||||||
;; This fixes lsp-ui-sideline issue
|
;; ;; This fixes lsp-ui-sideline issue
|
||||||
'(lsp-ui-sideline-current-symbol ((t (:line-width -1 :foreground "#bd93f9"))))
|
;; '(lsp-ui-sideline-current-symbol ((t (:line-width -1 :foreground "#bd93f9"))))
|
||||||
'(font-lock-comment-delimiter-face ((t (:foreground "#5B6268")))))
|
;; '(font-lock-comment-delimiter-face ((t (:foreground "#5B6268")))))
|
||||||
(enable-theme 'dracula)
|
;; (enable-theme 'dracula)
|
||||||
(set-face-attribute 'region nil :background "#888")))
|
;; (set-face-attribute 'region nil :background "#888")))
|
||||||
|
|
||||||
|
|
||||||
(use-theme! badwolf-theme
|
(use-theme! badwolf-theme
|
||||||
|
@ -88,5 +88,11 @@ It executes way before the rest of the cubes.")
|
||||||
(enable-theme 'badwolf)))
|
(enable-theme 'badwolf)))
|
||||||
|
|
||||||
|
|
||||||
|
(use! base16-theme
|
||||||
|
"Load base16 based themes in FG42."
|
||||||
|
:config
|
||||||
|
(load-theme 'base16-eighties t))
|
||||||
|
|
||||||
|
|
||||||
(provide 'fg42/themes)
|
(provide 'fg42/themes)
|
||||||
;;; themes.el ends here
|
;;; themes.el ends here
|
||||||
|
|
|
@ -196,5 +196,15 @@ is non-nil value it means that the function can be called interactively."
|
||||||
(fg42/log "INFO" args))
|
(fg42/log "INFO" args))
|
||||||
|
|
||||||
|
|
||||||
|
(defun get-base16-color-or (color-name default)
|
||||||
|
"Return the color for COLOR-NAME if a base16 theme is loade otherwise DEFAULT."
|
||||||
|
(let* ((theme (car custom-enabled-themes))
|
||||||
|
(theme-sym (intern (format "%s-theme-colors" theme))))
|
||||||
|
|
||||||
|
(if (boundp theme-sym)
|
||||||
|
(or (eval `(plist-get ,theme-sym ,color-name)) default)
|
||||||
|
default)))
|
||||||
|
|
||||||
|
|
||||||
(provide 'fg42/utils)
|
(provide 'fg42/utils)
|
||||||
;;; utils.el ends here
|
;;; utils.el ends here
|
||||||
|
|
Loading…
Reference in New Issue