X-Git-Url: https://git.korewanetadesu.com/?p=BTCSB-theme.git;a=blobdiff_plain;f=BTCSB-theme.el;h=5277a330daa6ec108288a0b55b2279354e110fd0;hp=b0cd08effdd02e0d447f7b6562a2f2e4bac9834d;hb=3612ae55413e782398274e18e0add66e76c3c897;hpb=56097f53a2a8705ba86d06cf2f43d6c8b361d7be

diff --git a/BTCSB-theme.el b/BTCSB-theme.el
index b0cd08e..5277a33 100644
--- a/BTCSB-theme.el
+++ b/BTCSB-theme.el
@@ -1,9 +1,10 @@
 ;;; BTCSB-theme.el --- Baby, the Code Shines Bright  -*- lexical-binding: t; -*-
 ;;
 ;; Author: Joe Wreschnig
-;; Package-Version: 20170610
+;; Package-Version: 20170806
 ;; Package-Requires: ((emacs "24"))
 ;; Keywords: faces
+;; URL: https://git.korewanetadesu.com/BTCSB-theme.git
 ;;
 ;; This is free and unencumbered software released into the public
 ;; domain. Anyone is free to copy, modify, publish, use, compile,
@@ -115,7 +116,7 @@ recommended pairings are Fantasque Sans or Monaco.")
    `(error ((t (:foreground ,clr27))))
    `(escape-glyph ((t (:foreground ,clr18))))
    `(fringe ((t (:background ,clr03))))
-   ;; `(header TODO: I don't use this....)
+   `(header-line ((t (:background ,clr02 :foreground ,clr08))))
    `(highlight ((t (:background ,clr16))))
    `(isearch ((t (:background ,clr15))))
    `(lazy-highlight ((t (:background ,clr09))))
@@ -183,6 +184,13 @@ recommended pairings are Fantasque Sans or Monaco.")
    `(flycheck-error-list-id ((t (:inherit (font-lock-constant-face)))))
    `(flycheck-error-list-checker-name ((t (:foreground ,clr11))))
 
+   ;; Powerline Faces
+   `(powerline-active1 ((t (:background ,clr13))))
+   `(powerline-active2 ((t (:background ,clr22))))
+   `(powerline-inactive1 ((t (:background ,clr16))))
+   `(powerline-inactive2 ((t (:background ,clr29))))
+   `(mode-line-buffer-id-inactive ((t (:inherit mode-line-inactive))))
+
    ;; Pp^l Highlight Face - it's like a comment, I guess? I'm never
    ;; happy with how this looks except that I'm always happier to see
    ;; it than a literal ^L.
@@ -201,6 +209,62 @@ recommended pairings are Fantasque Sans or Monaco.")
    `(web-mode-html-attr-equal-face ((t (:inherit (shadow)))))
    `(web-mode-css-selector-face ((t (:foreground ,clr26))))
    `(web-mode-css-pseudo-class-face ((t (:foreground ,clr17))))
+
+   ;; SHR, EWW, etc.
+   `(shr-link ((t (:foreground ,clr24))))
+
+   ;; Mail, elfeed, etc.
+   `(message-header-name ((t (:foreground ,clr07))))
+   `(message-header-subject ((t (:foreground ,clr04))))
+   `(message-header-to ((t (:foreground ,clr04))))
+   `(message-header-other ((t (:foreground ,clr23))))
+
+   ;; Elfeed
+   `(elfeed-search-date-face ((t (:foreground ,clr07))))
+   `(elfeed-search-title-face ((t (:foreground ,clr04))))
+   `(elfeed-search-unread-title-face ((t (:foreground ,clr26))))
+   `(elfeed-search-feed-face ((t (:foreground ,clr23))))
+   `(elfeed-search-tag-face ((t (:foreground ,clr21))))
+   `(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