Update fringes and modeline to blend into background better

This commit is contained in:
zongor 2025-05-17 00:15:40 -04:00
parent e5a6ad9743
commit afe41395b8
1 changed files with 193 additions and 159 deletions

View File

@ -10,14 +10,15 @@
(setq col_back>> "#363631")
(setq col_back> "#454640")
(setq col_back "#262620")
(setq col_back< "#646460")
(setq col_back< "#282820")
(setq col_back<< "#181810")
(setq col_grn "#9ce22e")
(setq col_blu "#66d9ef")
(setq col_pur "#a281ff")
(setq col_pin "#fd4d80")
(setq col_mag "#db2765")
(setq col_red "#ff0000")
(setq col_red "#ff3333")
(setq col_org "#ff843b")
(setq col_ylw "#e6db74")
@ -26,26 +27,33 @@
(custom-theme-set-variables
'mazarbul
)
)
(custom-theme-set-faces
'mazarbul
;; Main window colors
;; Main window colors
`(default ((t (:foreground ,col_fore
:background ,col_back))))
`(fringe ((t (:background ,col_back<))))
`(vertical-border ((t (:background ,col_back<))))
`(fringe ((t (:box (:line-width -1 :color ,col_back)
:foreground ,col_back<
:background ,col_back>>))))
`(vertical-border ((t (:background ,col_back>>))))
`(vertical-bar ((t (:background ,col_back>>))))
`(vertical-line ((t (:background ,col_back>>))))
`(window-divider ((t (:foreground ,col_back>> :background ,col_back>>))))
`(window-divider-first-pixel ((t (:foreground ,col_back>> :background ,col_back>>))))
`(window-divider-last-pixel ((t (:foreground ,col_back>> :background ,col_back>>))))
`(cursor ((t (:background ,col_fore<<))))
;; search and highlighting
;; search and highlighting
`(region ((t (:background ,col_back>>>))))
`(isearch ((t (:background ,col_blu
:foreground ,col_fore))))
`(highlight ((t (:background ,col_back>>>))))
`(lazy-highlight ((t (:background ,col_back>>>))))
;; main keywords
;; main keywords
`(font-lock-package-name-face ((t (:foreground ,col_blu))))
`(font-lock-class-name-face ((t (:foreground ,col_fore))))
`(font-lock-keyword-face ((t (:foreground ,col_mag))))
@ -53,10 +61,10 @@
`(font-lock-function-name-face ((t (:foreground ,col_grn))))
`(font-lock-fundef-face ((t (:inherit font-lock-function-name-face))))
`(font-lock-keyword-bold-face ((t (:foreground ,col_mag))))
;; some method names do this (like obj.copy()) and I'm not sure why
;; some method names do this (like obj.copy()) and I'm not sure why
`(font-lock-gc-alloc-face ((t (:inherit font-lock-function-name-face))))
;; variables, types
;; variables, types
`(font-lock-type-face ((t (:foreground ,col_blu))))
`(font-lock-highlight-green-face ((t (:inherit font-lock-type-face))))
`(font-lock-string-face ((t (:foreground ,col_ylw))))
@ -67,27 +75,31 @@
`(font-lock-resource-face ((t (:foreground ,col_org))))
`(font-lock-debug-face ((t (:foreground ,col_red))))
;; comments
;; comments
`(font-lock-comment-face ((t (:foreground ,col_gry))))
`(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face))))
`(font-lock-doc-face ((t (:inherit font-lock-comment-face))))
;; control and returns
;; control and returns
`(font-lock-control-face ((t (:background ,col_back>))))
;; uhh... emacs builtins? no idea if these are used elsewhere
;; uhh... emacs builtins? no idea if these are used elsewhere
`(font-lock-builtin-face ((t (:foreground ,col_org))))
`(font-lock-constant-face ((t (:foreground ,col_blu))))
`(font-lock-constant-face ((t (:foreground ,col_pur))))
`(font-lock-warning-face ((t (:foreground ,col_red))))
;; modeline stuffs
`(mode-line ((t (:box (:line-width -1 :color ,col_gry)
;; modeline stuffs
`(modeline-fg ((t (:background ,col_back>>>))))
`(mode-line ((t (:box (:line-width -1 :color ,col_back)
:foreground ,col_fore
:background ,col_back>>))))
`(mode-line-inactive ((t (:box (:line-width -1 :color ,col_back)
:foreground ,col_back>
:background ,col_fore<))))
`(mode-line-inactive ((t (:box (:line-width -1 :color ,col_gry)
:foreground ,col_back<
:background ,col_fore<<<))))
;; emacs tooltips
:background ,col_back<))))
;; emacs tooltips
`(tooltip ((t (:inherit (variable-pitch)
:foreground ,col_fore<
:background ,col_back<))))
@ -96,8 +108,7 @@
`(link-visited ((t (:underline (:color foreground-color :style line)
:foreground ,col_grn
:inherit (link)))))
;; Bodge in our colors
;; Bodge in our colors
`(font-lock-bblue-face ((t (:foreground ,col_blu))))
`(font-lock-bdblue-face ((t (:foreground ,col_blu))))
`(font-lock-bgreen-face ((t (:foreground ,col_grn))))
@ -117,12 +128,12 @@
`(font-lock-highlight-orange-face ((t (:foreground ,col_org))))
`(font-lock-highlight-red-face ((t (:foreground ,col_red))))
;; stuff in the console
;; stuff in the console
`(font-lock-if-debug-face ((t (:foreground ,col_blu))))
`(font-lock-bold-face ((t (:foreground ,col_org))))
`(font-lock-stack-frame-face ((t (:foreground ,col_ylw))))
;; electric buffer list
;; electric buffer list
`(cm-electric-emacs-buffer-mode-face ((t (:foreground ,col_pur))))
`(cm-electric-c-buffer-mode-face ((t (:foreground ,col_blu))))
@ -137,7 +148,7 @@
`(cm-electric-fundamental-face ((t (:foreground ,col_mag))))
`(cm-electric-rs-file-face ((t (:foreground ,col_mag))))
;; Everything left over is ,col_mag
;; Everything left over is ,col_mag
`(font-lock-fixed-face ((t (:foreground ,col_mag))))
`(font-lock-global-face ((t (:foreground ,col_mag))))
`(font-lock-hasp-face ((t (:foreground ,col_mag))))
@ -150,10 +161,33 @@
`(font-lock-gay-face ((t (:foreground ,col_mag))))
`(hl-line ((t (:background ,col_mag))))
;; Extra face definitions for pluggins and whatnot
;; Extra face definitions for pluggins and whatnot
`(column-enforce-face ((t (:inherit nil
:background ,col_back>>
:underline nil))))
)
`(rainbow-delimiters-depth-1-face ((t :foreground ,col_mag)))
`(rainbow-delimiters-depth-2-face ((t :foreground ,col_org)))
`(rainbow-delimiters-depth-3-face ((t :foreground ,col_grn)))
`(rainbow-delimiters-depth-4-face ((t :foreground ,col_blu)))
`(rainbow-delimiters-depth-5-face ((t :foreground ,col_mag)))
`(rainbow-delimiters-depth-6-face ((t :foreground ,col_org)))
`(rainbow-delimiters-depth-7-face ((t :foreground ,col_grn)))
`(vc-modified ((t :foreground ,col_blu)))
`(vc-added ((t :foreground ,col_grn)))
`(vc-deleted ((t :foreground ,col_red)))
`(git-gutter:separator ((t :foreground ,col_blu)))
`(git-gutter:modified ((t :foreground ,col_mag)))
`(git-gutter:added ((t :foreground ,col_grn)))
`(git-gutter:deleted ((t :foreground ,col_red)))
`(git-gutter:unchanged ((t :foreground ,col_ylw)))
`(modeline-fg ((t (:background ,col_back>>>))))
`(modeline-fg-alt ((t (:background ,col_back>>))))
`(modeline-bg ((t (:background ,col_back))))
`(modeline-bg-inactive ((t (:background ,col_back<)))))
(provide-theme 'mazarbul)