Add first pass at Jabber faces.

diff --git a/BTCSB-theme.el b/BTCSB-theme.el
index cdb7511..5277a33 100644 (file)
--- a/BTCSB-theme.el
+++ b/BTCSB-theme.el
@@ -228,6 +228,43 @@ recommended pairings are Fantasque Sans or Monaco.")
    `(elfeed-search-last-update-face ((t (:foreground ,clr08))))
    `(elfeed-search-unread-count-face ((t (:foreground ,clr18))))
    `(elfeed-search-filter-face ((t (:foreground ,clr20))))
    `(elfeed-search-last-update-face ((t (:foreground ,clr08))))
    `(elfeed-search-unread-count-face ((t (:foreground ,clr18))))
    `(elfeed-search-filter-face ((t (:foreground ,clr20))))

+
+   ;; Jabber.el
+   `(jabber-rare-time-face ((t (:inherit (variable-pitch)
+                                :foreground ,clr08))))
+   `(jabber-chat-text-foreign ((t (:inherit (variable-pitch)))))
+   `(jabber-chat-text-local ((t (:inherit (variable-pitch)))))
+   `(jabber-chat-prompt-foreign ((t (:inherit (jabber-chat-text-foreign)
+                                     :foreground ,clr14))))
+   `(jabber-chat-prompt-local ((t (:inherit (jabber-chat-text-local)
+                                   :foreground ,clr13))))
+   `(jabber-chat-prompt-system ((t (:inherit (variable-pitch)
+                                   :foreground ,clr23))))
+   `(jabber-chat-error ((t (:inherit (variable-pitch)
+                            :foreground ,clr27))))
+   `(jabber-roster-user-online ((t (:inherit (default)
+                                    :foreground ,clr17))))
+   `(jabber-roster-user-xa ((t (:inherit (default)
+                                :foreground ,clr09))))
+   `(jabber-roster-user-dnd ((t (:inherit (default)
+                                 :foreground ,clr09))))
+   `(jabber-roster-user-away ((t (:inherit (default)
+                                :foreground ,clr09))))
+   `(jabber-roster-user-chatty ((t (:inherit (default)
+                                    :foreground ,clr21))))
+   `(jabber-roster-user-error ((t (:inherit (default)
+                                    :foreground ,clr27))))
+   `(jabber-roster-user-offline ((t (:inherit (default)
+                                     :foreground ,clr07))))
+   `(jabber-title-small ((t (:inherit (variable-pitch)
+                             :height 1.0
+                             :foreground ,clr08))))
+   `(jabber-title-medium ((t (:inherit (variable-pitch)
+                             :height 1.0 :weight bold
+                             :foreground ,clr08))))
+   `(jabber-title-large ((t (:inherit (variable-pitch)
+                             :height 1.5 :weight bold
+                             :foreground ,clr08))))

    ))
 
 ;;;###autoload
    ))
 
 ;;;###autoload