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