diff options
Diffstat (limited to 'etc/themes/manoj-dark-theme.el')
-rw-r--r-- | etc/themes/manoj-dark-theme.el | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/etc/themes/manoj-dark-theme.el b/etc/themes/manoj-dark-theme.el index 5a527111d35..e80403f5b34 100644 --- a/etc/themes/manoj-dark-theme.el +++ b/etc/themes/manoj-dark-theme.el @@ -23,11 +23,11 @@ ;;; Commentary: ;; I spend a lot of time working in front of a screen (many hours in a -;; dimly lit room) and eye fatigue is an issue. This is a dark color -;; theme for emacs, which is easier on the eyes than light themes. +;; dimly lit room) and eye fatigue is an issue. This is a dark color +;; theme for Emacs, which is easier on the eyes than light themes. ;; It does not help that I am blue-green color blind, so subtle -;; variations are often lost on me. I do want to use color contrast to +;; variations are often lost on me. I do want to use color contrast to ;; increase productivity, but I also want to avoid the jarring angry ;; fruit salad look, and so I am in the process of crafting a logical ;; color scheme that is high contrast enough for me, without being too @@ -35,7 +35,7 @@ ;; In circumstances where there a lot of related faces that can be ;; viewed, for example, the Gnus group buffer, consistent and logical -;; color choices are the only sane option. Gnus groups can be newa +;; color choices are the only sane option. Gnus groups can be newa ;; (blueish) or mail (greenish), have states (large number of under ;; messages, normal, and empty). The large number unread groups have ;; highest luminance (appear brighter), and the empty one have lower @@ -45,25 +45,22 @@ ;; constant separation -- so all the related groups have the same ;; brightness ({mail,news}/{unread,normal,empty}), and a graded ;; selection of foreground colors. It sounds more complicated that it -;; looks. The eye is drawn naturally to the unread groups, and first -;; to the mail, then USENET groups (which is my preference). +;; looks. The eye is drawn naturally to the unread groups, and first +;; to the mail, then Usenet groups (which is my preference). ;; Similar color variations occur for individual messages in a group; ;; high scoring messages bubble to the top, and have a higher ;; luminance. This color schema has made me slightly faster at -;; reading mail/USENET. +;; reading mail/Usenet. ;; In the message itself, quoted mail messages from different people ;; are color coordinated, with high contrast between citations that are ;; close to each other in the hierarchy, so it is less likely that one ;; misunderstands who said what in a long conversation. -;; The following scheme covers programming languages, Gnus, Erc, mail, -;; org-mode, CUA-mode, apt-utils, bbdb, compilation buffers, changelog -;; mode, diff and ediff, eshell, and more. You need emacs-goodies -;; package on Debian to use this. See the wiki page at -;; https://www.emacswiki.org/cgi-bin/wiki?ColorTheme for details. The -;; project home page is at https://gna.org/projects/color-theme. +;; This theme covers programming languages, Gnus, Erc, mail, org-mode, +;; CUA-mode, apt-utils, bbdb, compilation buffers, changelog mode, +;; diff and ediff, eshell, and more. ;;; Code: @@ -224,6 +221,9 @@ jarring angry fruit salad look to reduce eye fatigue.") '(gnus-group-news-low-empty ((t (:foreground "DarkTurquoise")))) '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + ;; '(image-dired-thumb-flagged ((t (:background "red")))) + ;; '(image-dired-thumb-mark ((t (:background "Pink")))) + ;;message faces '(message-cited-text ((t (:foreground "red3")))) '(message-header-cc ((t (:bold t :foreground "chartreuse1" :weight bold)))) @@ -541,7 +541,6 @@ jarring angry fruit salad look to reduce eye fatigue.") '(ido-indicator ((t (:background "red1" :foreground "yellow1" :width condensed)))) '(ido-only-match ((t (:foreground "ForestGreen")))) '(ido-subdir ((t (:foreground "red1")))) - '(info-menu-5 ((t (:underline t)))) '(info-menu-header ((t (:bold t :weight bold)))) '(info-node ((t (:bold t :italic t :foreground "yellow")))) '(info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) |