navi2ch-face.el

   1 ;;; navi2ch-face.el --- face definitions for navi2ch -*- coding: iso-2022-7bit; -*-
   2
   3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2009 by Navi2ch
   4 ;; Project
   5
   6 ;; Author: Taiki SUGAWARA <taiki@users.sourceforge.net>
   7 ;; Keywords: network 2ch
   8
   9 ;; This file is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 2, or (at your option)
  12 ;; any later version.
  13
  14 ;; This file is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  21 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 ;; Boston, MA 02111-1307, USA.
  23
  24 ;;; Commentary:
  25
  26 ;;
  27
  28 ;;; Code:
  29 (provide 'navi2ch-face)
  30 (defconst navi2ch-face-ident
  31   "$Id$")
  32
  33 (defgroup navi2ch-face nil
  34   "Navi2ch, Faces."
  35   :prefix "navi2ch-"
  36   :group 'navi2ch)
  37
  38 (defface navi2ch-list-category-face
  39   '((((class color) (background light)) (:foreground "Gray30" :bold t))
  40     (((class color) (background dark)) (:foreground "SkyBlue" :bold t)))
  41   "\e$B%+%F%4%j$N\e(B face"
  42   :group 'navi2ch-face)
  43
  44 (defface navi2ch-list-board-name-face
  45   '((((class color) (background light)) (:foreground "Navy"))
  46     (((class color) (background dark)) (:foreground "SkyBlue")))
  47   "\e$BHDL>$N\e(B face"
  48   :group 'navi2ch-face)
  49
  50 (defface navi2ch-list-add-board-name-face
  51   '((((class color) (background light)) (:foreground "FireBrick" :bold t))
  52     (((class color) (background dark)) (:foreground "cyan" :bold t)))
  53   "\e$BDI2C$5$l$?HDL>$N\e(B face"
  54   :group 'navi2ch-face)
  55
  56 (defface navi2ch-list-change-board-name-face
  57   '((((class color) (background light)) (:foreground "DarkOliveGreen" :bold t))
  58     (((class color) (background dark)) (:foreground "GreenYellow" :bold t)))
  59   "\e$BJQ99$5$l$?HDL>$N\e(B face"
  60   :group 'navi2ch-face)
  61
  62 (defface navi2ch-bm-unread-face
  63   '((((class color) (background light)) (:foreground "DarkOliveGreen"))
  64     (((class color) (background dark)) (:foreground "GreenYellow")))
  65   "\e$BFI$s$G$J$$%9%l$N\e(B face"
  66   :group 'navi2ch-face)
  67
  68 (defface navi2ch-bm-view-face
  69   '((((class color) (background light)) (:foreground "FireBrick"))
  70     (((class color) (background dark)) (:foreground "cyan")))
  71   "\e$BI=<($7$F$$$k%9%l$N\e(B face"
  72   :group 'navi2ch-face)
  73
  74 (defface navi2ch-bm-cache-face
  75   '((((class color) (background light)) (:foreground "Navy"))
  76     (((class color) (background dark)) (:foreground "SkyBlue")))
  77   "\e$BFI$s$@;v$,$"$k%9%l$N\e(B face"
  78   :group 'navi2ch-face)
  79
  80 (defface navi2ch-bm-update-face
  81   '((((class color) (background light)) (:foreground "SaddleBrown"))
  82     (((class color) (background dark)) (:foreground "LightSkyBlue")))
  83   "\e$B99?7$7$?%9%l$N\e(B face"
  84   :group 'navi2ch-face)
  85
  86 (defface navi2ch-bm-down-face
  87   '((((class color) (background light)) (:foreground "Black" :bold t))
  88     (((class color) (background dark)) (:foreground "White" :bold t)))
  89   "dat\e$BMn$A$7$?%9%l$N\e(B face"
  90   :group 'navi2ch-face)
  91
  92 (defface navi2ch-bm-mark-face
  93   '((((class color) (background light)) (:foreground "Tomato3"))
  94     (((class color) (background dark)) (:foreground "tomato")))
  95   "\e$B%^!<%/$7$?%9%l$N\e(B face"
  96   :group 'navi2ch-face)
  97
  98 (defface navi2ch-bm-new-unread-face
  99   '((((class color) (background light)) (:foreground "DarkOliveGreen" :bold t))
 100     (((class color) (background dark)) (:foreground "GreenYellow" :bold t)))
 101   "\e$B?7$7$$FI$s$G$J$$%9%l$N\e(B face"
 102   :group 'navi2ch-face)
 103
 104 (defface navi2ch-bm-new-view-face
 105   '((((class color) (background light)) (:foreground "FireBrick" :bold t))
 106     (((class color) (background dark)) (:foreground "PaleGreen" :bold t)))
 107   "\e$B?7$7$$I=<($7$F$$$k%9%l$N\e(B face"
 108   :group 'navi2ch-face)
 109
 110 (defface navi2ch-bm-new-cache-face
 111   '((((class color) (background light)) (:foreground "Navy" :bold t))
 112     (((class color) (background dark)) (:foreground "SkyBlue" :bold t)))
 113   "\e$B?7$7$$FI$s$@;v$,$"$k%9%l$N\e(B face"
 114   :group 'navi2ch-face)
 115
 116 (defface navi2ch-bm-new-update-face
 117   '((((class color) (background light)) (:foreground "SaddleBrown" :bold t))
 118     (((class color) (background dark)) (:foreground "LightSkyBlue" :bold t)))
 119   "\e$B?7$7$$99?7$7$?%9%l$N\e(B face"
 120   :group 'navi2ch-face)
 121
 122 (defface navi2ch-bm-new-mark-face
 123   '((((class color) (background light)) (:foreground "Tomato3" :bold t))
 124     (((class color) (background dark)) (:foreground "tomato" :bold t)))
 125   "\e$B?7$7$$%^!<%/$7$?%9%l$N\e(B face"
 126   :group 'navi2ch-face)
 127
 128 (defface navi2ch-bm-updated-unread-face
 129   '((((class color) (background light)) (:foreground "DarkOliveGreen" :bold t))
 130     (((class color) (background dark)) (:foreground "GreenYellow" :bold t)))
 131   "\e$B%l%9$,$"$C$?FI$s$G$J$$%9%l$N\e(B face"
 132   :group 'navi2ch-face)
 133
 134 (defface navi2ch-bm-updated-view-face
 135   '((((class color) (background light)) (:foreground "FireBrick" :bold t))
 136     (((class color) (background dark)) (:foreground "PaleGreen" :bold t)))
 137   "\e$B%l%9$,$"$C$?I=<($7$F$$$k%9%l$N\e(B face"
 138   :group 'navi2ch-face)
 139
 140 (defface navi2ch-bm-updated-cache-face
 141   '((((class color) (background light)) (:foreground "Navy" :bold t))
 142     (((class color) (background dark)) (:foreground "SkyBlue" :bold t)))
 143   "\e$B%l%9$,$"$C$?FI$s$@;v$,$"$k%9%l$N\e(B face"
 144   :group 'navi2ch-face)
 145
 146 (defface navi2ch-bm-updated-update-face
 147   '((((class color) (background light)) (:foreground "SaddleBrown" :bold t))
 148     (((class color) (background dark)) (:foreground "LightSkyBlue" :bold t)))
 149   "\e$B%l%9$,$"$C$?99?7$7$?%9%l$N\e(B face"
 150   :group 'navi2ch-face)
 151
 152 (defface navi2ch-bm-updated-mark-face
 153   '((((class color) (background light)) (:foreground "Tomato3" :bold t))
 154     (((class color) (background dark)) (:foreground "tomato" :bold t)))
 155   "\e$B%l%9$,$"$C$?%^!<%/$7$?%9%l$N\e(B face"
 156   :group 'navi2ch-face)
 157
 158 (defface navi2ch-bm-seen-unread-face
 159   '((((class color) (background light)) (:foreground "DarkOliveGreen" :underline t))
 160     (((class color) (background dark)) (:foreground "GreenYellow" :underline t)))
 161   "\e$B$9$G$K8+$?FI$s$G$J$$%9%l$N\e(B face"
 162   :group 'navi2ch-face)
 163
 164 (defface navi2ch-bm-seen-view-face
 165   '((((class color) (background light)) (:foreground "FireBrick" :underline t))
 166     (((class color) (background dark)) (:foreground "PaleGreen" :underline t)))
 167   "\e$B$9$G$K8+$?I=<($7$F$$$k%9%l$N\e(B face"
 168   :group 'navi2ch-face)
 169
 170 (defface navi2ch-bm-seen-cache-face
 171   '((((class color) (background light)) (:foreground "Navy" :underline t))
 172     (((class color) (background dark)) (:foreground "SkyBlue" :underline t)))
 173   "\e$B$9$G$K8+$?FI$s$@;v$,$"$k%9%l$N\e(B face"
 174   :group 'navi2ch-face)
 175
 176 (defface navi2ch-bm-seen-update-face
 177   '((((class color) (background light)) (:foreground "SaddleBrown" :underline t))
 178     (((class color) (background dark)) (:foreground "LightSkyBlue" :underline t)))
 179   "\e$B$9$G$K8+$?99?7$7$?%9%l$N\e(B face"
 180   :group 'navi2ch-face)
 181
 182 (defface navi2ch-bm-seen-mark-face
 183   '((((class color) (background light)) (:foreground "Tomato3" :underline t))
 184     (((class color) (background dark)) (:foreground "tomato" :underline t)))
 185   "\e$B$9$G$K8+$?%^!<%/$7$?%9%l$N\e(B face"
 186   :group 'navi2ch-face)
 187
 188 (defface navi2ch-article-header-face
 189   '((((class color) (background light)) (:foreground "Gray30" :bold t))
 190     (((class color) (background dark)) (:foreground "gray" :bold t)))
 191   "\e$B%X%C%@$N\e(B From \e$B$H$+$NItJ,$N\e(B face"
 192   :group 'navi2ch-face)
 193
 194 (defface navi2ch-article-header-contents-face
 195   '((((class color) (background light)) (:foreground "Navy"))
 196     (((class color) (background dark)) (:foreground "yellow")))
 197   "\e$B%X%C%@$NFbMF$NJ}$N\e(B face"
 198   :group 'navi2ch-face)
 199
 200 (defface navi2ch-article-header-fusianasan-face
 201   '((((class color) (background light)) (:underline t :foreground "Navy"))
 202     (((class color) (background dark)) (:underline t :foreground "yellow")))
 203   "\e$B$U$7$"$J$5$s$rI=<($9$k:]$N\e(B face"
 204   :group 'navi2ch-face)
 205
 206 (defface navi2ch-article-link-face
 207   '((((class color) (background light)) (:bold t))
 208     (((class color) (background dark)) (:bold t)))
 209   "\e$BF1$8%9%lCf$X$N%j%s%/$N\e(B face"
 210   :group 'navi2ch-face)
 211
 212 (defface navi2ch-article-url-face
 213   '((((class color) (background light)) (:bold t))
 214     (((class color) (background dark)) (:bold t)))
 215   "url \e$B$N\e(B face"
 216   :group 'navi2ch-face)
 217
 218 (defface navi2ch-article-citation-face
 219   '((((class color) (background light)) (:foreground "FireBrick"))
 220     (((class color) (background dark)) (:foreground "HotPink1")))
 221   "\e$B0zMQ$N\e(B face"
 222   :group 'navi2ch-face)
 223
 224 (defface navi2ch-article-face
 225   nil
 226   "\e$B%9%l$N\e(B face"
 227   :group 'navi2ch-face)
 228
 229 (defface navi2ch-article-auto-decode-face
 230   '((((class color) (background light)) (:background "gray90"))
 231     (((class color) (background dark)) (:foreground "gray10")))
 232   "\e$B%9%l$N%(%s%3!<%I$5$l$?%;%/%7%g%s$N\e(B face"
 233   :group 'navi2ch-face)
 234
 235 (defface navi2ch-article-message-separator-face
 236   '((((class color) (background light)) (:foreground "SpringGreen4"))
 237     (((class color) (background dark)) (:foreground "firebrick")))
 238   "\e$B%l%9$N6h@Z$N\e(B face"
 239   :group 'navi2ch-face)
 240
 241 (defface navi2ch-splash-screen-face
 242   '((((type tty) (background dark)) (:foreground "cyan"))
 243     (((class color) (background dark)) (:foreground "SkyBlue"))
 244     (((class color) (background light)) (:foreground "SteelBlue")))
 245   "Face used for displaying splash screen."
 246   :group 'navi2ch-face)
 247
 248 (defface navi2ch-message-link-face
 249   '((((class color) (background light)) (:bold t))
 250     (((class color) (background dark)) (:bold t)))
 251   "\e$BF1$8%9%lCf$X$N%j%s%/$N\e(B face"
 252   :group 'navi2ch-face)
 253
 254 (defface navi2ch-message-url-face
 255   '((((class color) (background light)) (:bold t))
 256     (((class color) (background dark)) (:bold t)))
 257   "url \e$B$N\e(B face"
 258   :group 'navi2ch-face)
 259
 260 (defface navi2ch-message-citation-face
 261   '((((class color) (background light)) (:foreground "FireBrick"))
 262     (((class color) (background dark)) (:foreground "HotPink1")))
 263   "\e$B0zMQ$N\e(B face"
 264   :group 'navi2ch-face)
 265
 266 (run-hooks 'navi2ch-face-load-hook)
 267 ;;; navi2ch-face.el ends here