From 269cf2ae67eb8b02141edaeba00de0f3a0ef6374 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 10 Jun 2024 23:07:17 -0500 Subject: Update theme --- emacs.d/brianna-theme.el | 75 +++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 62 insertions(+), 13 deletions(-) diff --git a/emacs.d/brianna-theme.el b/emacs.d/brianna-theme.el index c23239b..2860d37 100644 --- a/emacs.d/brianna-theme.el +++ b/emacs.d/brianna-theme.el @@ -9,13 +9,21 @@ ;; (custom-theme-set-variables 'brianna) (defvar fclear - '((t ( :foreground unspecified :background unspecified - :width unspecified :height unspecified - :weight unspecified :slant unspecified - :underline nil :overline nil :strike-through nil :box nil - :inverse-video nil :extend nil))) + '((t ())) + ;; '((t ( :foreground unspecified :background unspecified + ;; :width unspecified :height unspecified + ;; :weight unspecified :slant unspecified + ;; :underline nil :overline nil :strike-through nil :box nil + ;; :inverse-video nil :extend nil))) "Specification to clear a given face.") +(defface brianna-prompt '((t (:foreground "purple"))) + "A face for prompts.") + +(defface brianna-input-field '((t ( :background "lavender" + :box (:line-width (1 . -1))))) + "A face for input fields.") + (custom-theme-set-faces 'brianna ;; Default @@ -25,12 +33,16 @@ ;; Font lock -- clear `(font-lock-bracket-face ,fclear) `(font-lock-builtin-face ,fclear) + ;; `(font-lock-comment-delimiter-face ,fclear) + ;; `(font-lock-comment-face ,fclear) `(font-lock-constant-face ,fclear) `(font-lock-delimiter-face ,fclear) + ;; `(font-lock-doc-face ,fclear) `(font-lock-doc-markup-face ,fclear) `(font-lock-escape-face ,fclear) `(font-lock-function-call-face ,fclear) `(font-lock-function-name-face ,fclear) + ;; `(font-lock-keyword-face ,fclear) `(font-lock-misc-punctuation-face ,fclear) `(font-lock-negation-char-face ,fclear) `(font-lock-number-face ,fclear) @@ -64,7 +76,7 @@ '(lazy-highlight ((t (:background "dark sea green")))) '(link ((t (:foreground "navy" :underline t)))) '(match ((t (:background "wheat")))) - '(pulse-highlight-start-face ((t (:background "orchid")))) + '(pulse-highlight-start-face ((t (:background "goldenrod")))) '(query-replace ((t (:background "wheat")))) '(region ((t (:background "papaya whip")))) '(shadow ((t (:foreground "orchid")))) @@ -79,13 +91,13 @@ '(completions-annotations ((t (:inherit 'italic)))) '(completions-highlight ((t (:background "wheat")))) '(header-line ((t (:background "lavender" :inherit variable-pitch)))) - '(minibuffer-prompt ((t (:foreground "dark orchid")))) + '(minibuffer-prompt ((t (:inherit brianna-prompt)))) '(mode-line ((t (:background "lavender" :inherit variable-pitch)))) '(mode-line-active ((t ( :box t :background "light goldenrod" :inherit mode-line)))) '(mode-line-inactive ((t ( :box "pale goldenrod" :background "pale goldenrod" :inherit mode-line)))) - '(tab-bar ((t (:inherit mode-line-inactive)))) + '(tab-bar ((t (:inherit mode-line-inactive)))) '(tab-bar-tab ((t ( :background "light goldenrod" :box t :inherit variable-pitch)))) '(tab-bar-tab-inactive ((t ( :background "pale goldenrod" @@ -93,8 +105,12 @@ '(vertical-border ((t (:foreground "gray")))) ;;; Specific modes &c + ;; Dired + '(dired-header ((t (:underline t :extend t)))) ;; Eshell - '(eshell-prompt ((t (:foreground "dark orchid")))) + '(eshell-prompt ((t (:inherit brianna-prompt)))) + ;; Eww + '(eww-form-text ((t (:inherit brianna-input-field)))) ;; Gemtext mode '(gemtext-face-heading1 ((t ( :weight bold :inherit variable-pitch)))) @@ -107,16 +123,49 @@ '(info-title-2 ((t (:inherit variable-pitch)))) '(info-title-3 ((t (:inherit variable-pitch)))) '(info-title-4 ((t (:inherit variable-pitch)))) + ;; Jabber + '(jabber-activity-face ((t (:inherit italic)))) + '(jabber-activity-personal-face ((t (:inherit rcirc-track-nick)))) + '(jabber-chat-error ((t (:inherit error)))) + '(jabber-chat-prompt-foreign ((t (:inherit brianna-prompt)))) + '(jabber-chat-prompt-local ((t (:inherit brianna-prompt)))) + '(jabber-chat-prompt-system ((t (:inherit brianna-prompt)))) + '(jabber-chat-text-foreign ((t (:inherit default)))) + '(jabber-chat-text-local ((t (:inherit default)))) + '(jabber-muc-presence-dim ((t (:inherit shadow)))) + '(jabber-rare-time-face ((t (:inherit shadow)))) + '(jabber-title-large ((t (:inherit (variable-pitch outline-1))))) + '(jabber-title-medium ((t (:inherit (variable-pitch outline-2))))) + '(jabber-title-small ((t (:inherit (variable-pitch outline-3))))) + ;; Outline + '(outline-1 ((t (:inherit (bold underline italic) :extend t)))) + '(outline-2 ((t (:inherit (bold underline))))) + '(outline-3 ((t (:inherit (italic underline))))) + '(outline-3 ((t (:inherit (italic underline))))) + '(outline-4 ((t (:inherit (italic underline))))) + '(outline-5 ((t (:inherit (italic underline))))) + '(outline-6 ((t (:inherit (italic underline))))) + '(outline-7 ((t (:inherit (italic underline))))) + '(outline-8 ((t (:inherit (italic underline))))) + ;; Org + '(org-document-info-keyword ((t (:inherit default)))) + '(org-document-info ((t (:foreground "navy")))) + '(org-document-title ((t (:inherit org-document-info)))) + '(org-drawer ((t (:inherit font-lock-comment-face)))) ;; RCIRC '(rcirc-my-nick ((t (:weight bold :slant italic)))) '(rcirc-nick-in-message ((t (:weight bold :slant italic)))) '(rcirc-other-nick ((t (:slant italic)))) - '(rcirc-prompt ((t (:foreground "dark orchid")))) + '(rcirc-prompt ((t (:inherit brianna-prompt)))) + '(rcirc-timestamp ((t (:inherit shadow)))) + '(rcirc-server ((t (:inherit shadow)))) '(rcirc-track-nick ((t (:weight bold :slant italic :inverse-video nil)))) + ;; Sh + '(sh-heredoc ((t ( :background "azure" :extend t + :inherit font-lock-string-face)))) ;; Widgets - '(widget-field ((t ( :background "lavender" :box (:line-width (1 . -1)) - :extend t)))) - '(widget-single-line-field ((t (:background "lavender")))) + '(widget-field ((t (:inherit brianna-input-field)))) + '(widget-single-line-field ((t (:inherit brianna-input-field)))) ) (provide-theme 'brianna) -- cgit 1.4.1-21-gabe81