Add option for gray rainbow-delimiters faces

This commit is contained in:
Jessie Hildebrandt 2022-12-22 05:38:24 -05:00
parent 260f237980
commit e936ff8caf

View File

@ -90,13 +90,40 @@
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
;; ;;
;; Theme code ;; Custom definitions
;; ;;
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
;; ---------------------------------- ;;
;; Theme definition
;; ---------------------------------- ;;
(deftheme adwaita-dark (deftheme adwaita-dark
"A dark color scheme inspired by the libadwaita colors.") "A dark color scheme inspired by the libadwaita colors.")
;; ---------------------------------- ;;
;; Group definition
;; ---------------------------------- ;;
(defgroup adwaita-dark-theme nil
"A dark color scheme inspired by Adwaita."
:group 'faces)
;; ---------------------------------- ;;
;; Variable definitions
;; ---------------------------------- ;;
(defcustom adwaita-dark-theme-gray-rainbow-delimiters nil
"When non-nil, `rainbow-delimiters-mode' faces will be the same shade of gray."
:group 'adwaita-dark-theme
:type 'boolean)
;; -------------------------------------------------------------------------- ;;
;;
;; Theme code
;;
;; -------------------------------------------------------------------------- ;;
(let* ((class '((class color) (min-colors 256))) (let* ((class '((class color) (min-colors 256)))
;; Layout/sizing ;; Layout/sizing
@ -732,15 +759,15 @@
`(popup-selection-face ((,class (:background ,base-5)))) `(popup-selection-face ((,class (:background ,base-5))))
;; rainbow-delimiters ;; rainbow-delimiters
`(rainbow-delimiters-depth-1-face ((,class (:foreground ,blue)))) `(rainbow-delimiters-depth-1-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 blue)))))
`(rainbow-delimiters-depth-2-face ((,class (:foreground ,magenta)))) `(rainbow-delimiters-depth-2-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 magenta)))))
`(rainbow-delimiters-depth-3-face ((,class (:foreground ,green)))) `(rainbow-delimiters-depth-3-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 green)))))
`(rainbow-delimiters-depth-4-face ((,class (:foreground ,violet)))) `(rainbow-delimiters-depth-4-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 violet)))))
`(rainbow-delimiters-depth-5-face ((,class (:foreground ,teal)))) `(rainbow-delimiters-depth-5-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 teal)))))
`(rainbow-delimiters-depth-6-face ((,class (:foreground ,blue)))) `(rainbow-delimiters-depth-6-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 blue)))))
`(rainbow-delimiters-depth-7-face ((,class (:foreground ,magenta)))) `(rainbow-delimiters-depth-7-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 magenta)))))
`(rainbow-delimiters-depth-8-face ((,class (:foreground ,green)))) `(rainbow-delimiters-depth-8-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 green)))))
`(rainbow-delimiters-depth-9-face ((,class (:foreground ,violet)))) `(rainbow-delimiters-depth-9-face ((,class (:foreground ,(if adwaita-dark-theme-gray-rainbow-delimiters base-7 violet)))))
`(rainbow-delimiters-unmatched-face ((,class (:foreground ,red :weight ultra-bold)))) `(rainbow-delimiters-unmatched-face ((,class (:foreground ,red :weight ultra-bold))))
`(rainbow-delimiters-mismatched-face ((,class (:inherit rainbow-delimiters-unmatched-face)))) `(rainbow-delimiters-mismatched-face ((,class (:inherit rainbow-delimiters-unmatched-face))))