46 lines
1.3 KiB
EmacsLisp
46 lines
1.3 KiB
EmacsLisp
(deftheme custom-theme
|
|
"A custom Emacs theme using the provided color palette.")
|
|
|
|
(let ((bg "#76a9c0")
|
|
(fg "#77857a")
|
|
(keyword "#b4d7e3")
|
|
(comment "#adc4db")
|
|
(string "#d6c1d1"))
|
|
|
|
(custom-theme-set-faces
|
|
'custom-theme
|
|
|
|
;; Default
|
|
`(default ((t (:background ,bg :foreground ,fg))))
|
|
|
|
;; Syntax highlighting
|
|
`(font-lock-keyword-face ((t (:foreground ,keyword))))
|
|
`(font-lock-comment-face ((t (:foreground ,comment))))
|
|
`(font-lock-string-face ((t (:foreground ,string))))
|
|
|
|
;; Mode line
|
|
`(mode-line ((t (:background ,bg :foreground ,fg))))
|
|
`(mode-line-inactive ((t (:background ,fg :foreground ,bg))))
|
|
|
|
;; Region
|
|
`(region ((t (:background ,keyword :foreground ,bg))))
|
|
|
|
;; Minibuffer
|
|
`(minibuffer-prompt ((t (:foreground ,keyword))))
|
|
|
|
;; Powerline separator
|
|
`(powerline-active1 ((t (:background ,bg :foreground ,fg))))
|
|
`(powerline-active2 ((t (:background ,fg :foreground ,bg))))
|
|
|
|
;; Highlight
|
|
`(highlight ((t (:background ,comment :foreground ,bg))))
|
|
`(hl-line ((t (:background ,bg))))
|
|
|
|
;; Parenthesis matching
|
|
`(show-paren-match ((t (:background ,fg :foreground ,bg))))
|
|
`(show-paren-mismatch ((t (:background ,comment :foreground ,bg)))))
|
|
|
|
(provide-theme 'custom-theme))
|
|
|
|
(provide 'custom-theme)
|