Tweak my Riece settings a little.
[syinit] / 14-fonts-sy.el
1 ;; 14-fonts-sy.el --- Fonts/Faces Settings   -*- Emacs-Lisp -*-
2
3 ;; Copyright (C) 2007 - 2012 Steve Youngs
4
5 ;;     Author: Steve Youngs <steve@sxemacs.org>
6 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
7 ;;    Created: <2007-12-02>
8 ;; Time-stamp: <Sunday Jun 10, 2012 10:59:45 steve>
9 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
10 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/14-fonts-sy.html>
11 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
12 ;;   Keywords: init, compile
13
14 ;; This file is part of SYinit
15
16 ;; Redistribution and use in source and binary forms, with or without
17 ;; modification, are permitted provided that the following conditions
18 ;; are met:
19 ;;
20 ;; 1. Redistributions of source code must retain the above copyright
21 ;;    notice, this list of conditions and the following disclaimer.
22 ;;
23 ;; 2. Redistributions in binary form must reproduce the above copyright
24 ;;    notice, this list of conditions and the following disclaimer in the
25 ;;    documentation and/or other materials provided with the distribution.
26 ;;
27 ;; 3. Neither the name of the author nor the names of any contributors
28 ;;    may be used to endorse or promote products derived from this
29 ;;    software without specific prior written permission.
30 ;;
31 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
32 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
33 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
34 ;; DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
35 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
36 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
37 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
38 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
39 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
40 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
41 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
42
43 ;;; Commentary:
44 ;;
45 ;;   Sets all my pretty colours and shit.
46 ;;
47
48 ;;; Credits:
49 ;;
50 ;;   The HTML version of this file was created with Hrvoje Niksic's
51 ;;   htmlize.el which is part of the XEmacs "text-modes" package.
52 ;;
53
54 ;;; Todo:
55 ;;
56 ;;     
57
58 ;;; Code:
59 ;:*=======================
60 ;:* Turn on Lazy-(lock|shot)
61 ;; Lazy-lock
62 ;; (require 'lazy-lock)
63 ;; (if (eq emacs-minor-version 5)
64 ;;     (setq font-lock-support-mode 'lazy-lock-mode)
65 ;;  (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock))
66 ;; (setq lazy-lock-stealth-time 15)
67
68 ;; Lazy-shot (my preference)
69 (require 'lazy-shot)
70 (setq lazy-shot-verbose nil)
71 (setq lazy-shot-stealth-verbose nil)
72 (add-hook 'font-lock-mode-hook 'turn-on-lazy-shot)
73
74 ;:*=======================
75 ;:* describe-face-at-point, a function to find out which face is which
76 (defun describe-face-at-point ()
77   "Describe faces at point."
78   (interactive)
79   (let ((faces (get-char-property (point) 'face)))
80     (if (listp faces)
81         (hyper-apropos
82          (mapconcat
83           #'(lambda (f)
84               (symbol-name f)) faces "\\|") nil)
85       (hyper-describe-face faces)
86       (other-window 1))))
87
88 ;; Some convenience face stuff
89 (require 'facemenu)
90
91 ;:*=======================
92 ;:* Alex Schroeder's color-theme
93 ;;
94 ;; A very nice package, get it from:
95 ;;     <http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme>
96 (autoload 'color-theme-install "color-theme")
97 (defun sy-colour-theme ()
98   "Colour theme by Steve Youngs, created 2001-09-01."
99   (interactive)
100   (color-theme-install
101    `(sy-colour-theme
102      ;; Misc basic stuff.
103      ((background-color . "black")
104       (frame-background-mode . dark)
105       (background-toolbar-color . "#cccccccccccc")
106       (border-color . "#000000000000")
107       (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
108       (cursor-color . "red3")
109       (foreground-color . "white")
110       (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
111      ((buffers-tab-face . buffers-tab)
112       (cperl-here-face . font-lock-string-face)
113       (cperl-invalid-face quote underline)
114       (cperl-pod-face . font-lock-comment-face)
115       (cperl-pod-head-face . font-lock-variable-name-face)
116       (paren-match-face . paren-face-match)
117       (paren-mismatch-face . paren-face-mismatch)
118       (paren-no-match-face . paren-face-no-match)
119       (smiley-mouse-face . highlight)
120       (vc-mode-face . highlight))
121      (about-headline-face ((t (:bold t :foreground "HotPink"))))
122      (about-link-face ((t (:bold t :foreground "Yellow"))))
123      (blue ((t (:foreground "blue"))))
124      (buffers-tab ((t (:bold t :background "grey65" :foreground "black"))))
125      (green ((t (:foreground "green"))))
126      (gui-button-face ((t (:background "grey75" :foreground "black"))))
127      (highlight ((t (:background "darkseagreen2" :foreground "red"))))
128      (list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
129      (primary-selection ((t (:background "gray65"))))
130      (red ((t (:foreground "red"))))
131      (secondary-selection ((t (:background "paleturquoise"))))
132      (text-cursor ((t (:background "red3" :foreground "black"))))
133      (underline ((t (:underline t))))
134      (yellow ((t (:foreground "yellow"))))
135      ;; Calendar/Diary.
136      (calendar-today-face ((t (:bold t :foreground "HotPink"))))
137      (calendar-week-face ((t (:bold t :foreground "yellow"))))
138      (calendar-header-face ((t (:bold t :foreground "HotPink"))))
139      (calendar-sunday-face ((t (:bold t :foreground "Red"))))
140      (diary-face ((t (:foreground "Cyan"))))
141      (holiday-face ((t ( :foreground "Yellow"))))
142      ;; cperl-mode.
143      (cperl-array-face ((t (:bold t :foreground "Blue"))))
144      (cperl-hash-face ((t (:bold t :foreground "Red"))))
145      (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
146      ;; Custom
147      (custom-group-tag-face ((t (:foreground "Yellow"))))
148      (custom-state-face ((t (:foreground "Cyan"))))
149      (custom-variable-tag-face ((t (:foreground "LawnGreen"))))
150      ;; PCL-CVS
151      ;(cvs-filename-face ((t (:bold t :foreground "Yellow"))))
152      ;(cvs-header-face ((t (:foreground "Green"))))
153      ;(cvs-msg-face ((t ( :foreground "Cyan"))))
154      ;; XEtla
155      ;(xetla-archive-name ((t (:foreground "yellow"))))
156      ;(xetla-location-http ((t (:foreground "sandybrown"))))
157      ;(xetla-location-local ((t (:foreground "indianred"))))
158      ;(xetla-location-sftp ((t (:foreground "wheat"))))
159      ;; dictionary
160      (dictionary-word-entry-face ((t (:italic nil :foreground "Green"))))
161      (dictionary-reference-face ((t (:foreground "Yellow"))))
162      ;; diff-mode
163      (diff-added-face ((t ( :foreground "LawnGreen"))))
164      (diff-changed-face ((t ( :foreground "Cyan"))))
165      (diff-file-header-face 
166       ((t ( :foreground "BlanchedAlmond"))))
167      (diff-header-face ((t ( :foreground "BlanchedAlmond"))))
168      (diff-hunk-header-face ((t ( :foreground "Yellow"))))
169      (diff-index-face ((t ( :foreground "Orange"))))
170      (diff-removed-face ((t ( :foreground "HotPink"))))
171      ;; Dired.
172      (dired-face-boring ((t (:foreground "Gray65"))))
173      (dired-face-directory ((t (:bold t :foreground "yellow"))))
174      (dired-face-executable ((t (:bold t :foreground "LimeGreen"))))
175      (dired-face-flagged ((t (:background "LightSlateGray" :foreground "black"))))
176      (dired-face-header ((t (:background "Orange" :foreground "black" :bold t))))
177      (dired-face-marked ((t (:background "PaleVioletRed" :foreground "black" :bold t))))
178      (dired-face-permissions ((t (:background "Turquoise" :foreground "black"))))
179      (dired-face-setuid ((t (:foreground "Red" :bold t))))
180      (dired-face-socket ((t (:foreground "magenta"))))
181      (dired-face-symlink ((t (:foreground "cyan"))))
182      ;; Balloon Help.
183      (display-time-mail-balloon-enhance-face ((t (:background "red"))))
184      (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
185      (display-time-time-balloon-face ((t (:foreground "magenta"))))
186      ;; Ediff
187      (ediff-current-diff-face-A 
188       ((t (:background "pale green" :foreground "firebrick"))))
189      (ediff-current-diff-face-Ancestor 
190       ((t (:background "VioletRed" :foreground "Black"))))
191      (ediff-current-diff-face-B 
192       ((t (:background "Yellow" :foreground "DarkOrchid"))))
193      (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
194      (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
195      (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
196      (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
197      (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
198      (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
199      (ediff-fine-diff-face-Ancestor 
200       ((t (:background "Green" :foreground "Black"))))
201      (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
202      (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
203      (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
204      (ediff-odd-diff-face-Ancestor 
205       ((t (:background "light grey" :foreground "Black"))))
206      (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
207      (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
208      ;; EMchat.
209      (emchat-face-away ((t (:foreground "red"))))
210      (emchat-face-dnd ((t (:foreground "lightblue"))))
211      (emchat-face-ffc ((t (:foreground "yellow"))))
212      (emchat-face-log-read ((t (:foreground "turquoise"))))
213      (emchat-face-log-unread ((t (:foreground "red"))))
214      (emchat-face-na ((t (:foreground "pink"))))
215      (emchat-face-occ ((t (:foreground "orange"))))
216      (emchat-face-offline ((t (:foreground "grey"))))
217      (emchat-face-online ((t (:foreground "green"))))
218      (emchat-face-selected ((t (:background "yellow" :foreground "darkblue"))))
219      (emchat-wharf-default-face ((t (:foreground "Green" :size "10pt"))))
220      ;; MPD
221      (mpd-dock-face ((t (:foreground "Red" :size "10pt"))))
222      ;; LaTeX
223      (font-latex-bold-face ((t (:foreground "brown"))))
224      (font-latex-italic-face ((t (:foreground "lightcoral"))))
225      (font-latex-math-face ((t (:foreground "dodgerblue"))))
226      (font-latex-sedate-face ((t (:foreground "gray51"))))
227      (font-latex-string-face ((t (:foreground "green3"))))
228      (font-latex-warning-face ((t (:foreground "red"))))
229      ;; Font Lock
230      (font-lock-comment-face ((t (:foreground "SkyBlue"))))
231      (font-lock-doc-string-face ((t (:foreground "LimeGreen"))))
232      (font-lock-function-name-face ((t (:foreground "yellow" :bold t))))
233      (font-lock-keyword-face ((t (:foreground "Salmon"))))
234      (font-lock-preprocessor-face ((t (:foreground "magenta3"))))
235      (font-lock-reference-face ((t (:foreground "Turquoise"))))
236      (font-lock-string-face ((t (:foreground "green3"))))
237      (font-lock-type-face ((t (:foreground "dodgerblue"))))
238      (font-lock-variable-name-face ((t (:foreground "PeachPuff"))))
239      (font-lock-warning-face ((t (:bold t :foreground "Red"))))
240      ;; gdb highlight
241      (gdb-highlight-face ((t (:bold t :foreground "BlanchedAlmond"))))
242      (gdb-breakpoint-number-face ((t (:foreground "magenta3"))))
243      (gdb-breakpoint-enabled-face ((t (:foreground "steelblue"))))
244      (gdb-function-name-face ((t (:bold t :foreground "yellow"))))
245      (gdb-function-location-face ((t (:foreground "Salmon"))))
246      (gdb-variable-name-face ((t (:foreground "PeachPuff"))))
247      (gdb-type-name-face ((t (:foreground "dodgerblue"))))
248      ;; Gnus/Message
249      (gnus-cite-attribution ((t (:foreground "hotpink"))))
250      (gnus-cite-1 ((t (:foreground "LawnGreen"))))
251      (gnus-cite-10 ((t (:foreground "magenta"))))
252      (gnus-cite-11 ((t (:foreground "MediumBlue"))))
253      (gnus-cite-2 ((t (:foreground "PeachPuff"))))
254      (gnus-cite-3 ((t (:foreground "Cyan"))))
255      (gnus-cite-4 ((t (:foreground "Salmon"))))
256      (gnus-cite-5 ((t (:foreground "DarkSalmon"))))
257      (gnus-cite-6 ((t (:foreground "LavenderBlush"))))
258      (gnus-cite-7 ((t (:foreground "LawnGreen"))))
259      (gnus-cite-8 ((t (:foreground "LightSkyBlue"))))
260      (gnus-cite-9 ((t (:foreground "LightSeaGreen"))))
261      (gnus-emphasis-bold ((t (:bold t))))
262      (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
263      (gnus-emphasis-highlight-words ((t (:foreground "yellow"))))
264      (gnus-emphasis-italic ((t (:italic t))))
265      (gnus-emphasis-underline ((t (:underline t))))
266      (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
267      (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
268      (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
269      (gnus-group-mail-1-empty ((t (:foreground "DeepPink3"))))
270      (gnus-group-mail-1 ((t (:bold t :foreground "DeepPink3"))))
271      (gnus-group-mail-2-empty ((t (:foreground "HotPink3"))))
272      (gnus-group-mail-2 ((t (:bold t :foreground "HotPink3"))))
273      (gnus-group-mail-3-empty ((t (:foreground "BlanchedAlmond"))))
274      (gnus-group-mail-3 ((t (:foreground "Yellow"))))
275      (gnus-group-mail-low-empty ((t (:foreground "DeepPink4"))))
276      (gnus-group-mail-low ((t (:bold t :foreground "DeepPink4"))))
277      (gnus-group-news-1-empty ((t (:foreground "BlanchedAlmond"))))
278      (gnus-group-news-1 ((t (:foreground "LawnGreen"))))
279      (gnus-group-news-2-empty ((t (:foreground "CadetBlue4"))))
280      (gnus-group-news-2 ((t (:bold t :foreground "CadetBlue4"))))
281      (gnus-group-news-3 ((t (:foreground "HotPink"))))
282      (gnus-group-news-4 ((t (:bold t))))
283      (gnus-group-news-5 ((t (:bold t))))
284      (gnus-group-news-6 ((t (:bold t))))
285      (gnus-group-news-low-empty ((t (:foreground "DarkGreen"))))
286      (gnus-group-news-low ((t (:bold t :foreground "DarkGreen"))))
287      (gnus-header-content ((t (:foreground "LightGreen"))))
288      (gnus-header-from ((t (:foreground "Cyan"))))
289      (gnus-header-name ((t (:foreground "hotpink"))))
290      (gnus-header-newsgroups ((t (:bold t :foreground "yellow"))))
291      (gnus-header-subject ((t (:bold t :foreground "SkyBlue"))))
292      (gnus-picon ((t (:background "white" :foreground "white"))))
293      (gnus-picon-xbm ((t (:background "white" :foreground "white"))))
294      (gnus-server-agent ((t (:bold t :foreground "HotPink"))))
295      (gnus-server-opened ((t (:foreground "green"))))
296      (gnus-server-closed ((t (:foreground "gray55"))))
297      (gnus-server-denied ((t (:foreground "red"))))
298      (gnus-server-offline ((t (:foreground "BlanchedAlmond"))))
299      (gnus-signature ((t (:bold t :foreground "BlanchedAlmond"))))
300      (gnus-summary-cancelled ((t (:foreground "yellow"))))
301      (gnus-summary-high-ancient ((t (:bold t :foreground "RoyalBlue"))))
302      (gnus-summary-high-read ((t (:foreground "SlateGrey"))))
303      (gnus-summary-high-ticked ((t (:bold t :foreground "firebrick"))))
304      (gnus-summary-high-unread ((t (:bold t :foreground "HotPink"))))
305      (gnus-summary-low-ancient ((t (:italic t :foreground "RoyalBlue"))))
306      (gnus-summary-low-read ((t (:foreground "Grey"))))
307      (gnus-summary-low-ticked ((t (:italic t :foreground "firebrick"))))
308      (gnus-summary-low-unread ((t ( :foreground "coral"))))
309      (gnus-summary-normal-ancient ((t (:foreground "RoyalBlue"))))
310      (gnus-summary-normal-read ((t (:foreground "SlateGrey"))))
311      (gnus-summary-normal-ticked ((t (:foreground "firebrick"))))
312      (gnus-summary-normal-unread ((t (:bold t :foreground "white"))))
313      (gnus-summary-selected ((t (:underline t :foreground "Cyan"))))
314      (gnus-x ((t (:background "white" :foreground "black"))))
315      (message-cited-text ((t (:foreground "Cyan"))))
316      (message-header-cc ((t (:foreground "LawnGreen"))))
317      (message-header-name ((t (:foreground "hotpink"))))
318      (message-header-newsgroups ((t (:bold t :foreground "yellow"))))
319      (message-header-other ((t (:foreground "Green"))))
320      (message-header-subject ((t (:bold t :foreground "SkyBlue"))))
321      (message-header-to ((t (:foreground "BlanchedAlmond"))))
322      (message-header-xheader ((t (:foreground "blue"))))
323      (message-mml ((t (:foreground "ForestGreen"))))
324      (message-separator ((t (:bold t :foreground "yellow"))))
325      ;; MMM-mode
326      (mmm-default-submode-face ((t (:background "black"))))
327      ;; Hyper-apropos.
328      (hyper-apropos-documentation ((t (:foreground "white"))))
329      (hyper-apropos-hyperlink ((t (:foreground "yellow"))))
330      ;; ibuffer
331      (ibuffer-deletion-face ((t (:foreground "BlanchedAlmond"))))
332      (ibuffer-dired-buffer-face ((t (:foreground "cyan"))))
333      (ibuffer-help-buffer-face ((t (:foreground "Yellow"))))
334      (ibuffer-hidden-buffer-face ((t (:foreground "DarkMagenta"))))
335      (ibuffer-marked-face ((t (:foreground "green"))))
336      (ibuffer-occur-match-face ((t (:bold t :foreground "Red"))))
337      (ibuffer-read-only-buffer-face ((t (:foreground "hotpink"))))
338      (ibuffer-special-buffer-face ((t (:foreground "skyblue"))))
339      ;; Info
340      (info-node ((t (:bold t :foreground "yellow"))))
341      (info-xref ((t (:bold t :foreground "BlanchedAlmond"))))
342      ;; Isearch
343      (isearch ((t (:background "yellow" :foreground "red"))))
344      (isearch-secondary ((t (:foreground "red3"))))
345      ;; Riece
346      (riece-ctcp-action-face ((t (:foreground "PaleGreen" :bold t))))
347      (riece-dialogue-prefix-face ((t (:foreground "red" :bold t))))
348      (riece-channel-list-default-face ((t (:foreground "yellow" :bold t))))
349      (riece-keyword-face ((t (:foreground "hotpink" :bold t))))
350      ;; Man
351      (man-italic ((t (:italic t :size "14pt" :foreground "BlanchedAlmond"))))
352      (man-heading ((t (:bold t :foreground "yellow"))))
353      (man-xref ((t (:underline t :foreground "hotpink"))))
354      ;; Modeline
355      (modeline ((t (:background "Gray80" :foreground "Black"))))
356      (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
357      (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
358      (modeline-mousable-minor-mode 
359       ((t (:background "Gray80" :foreground "green4"))))
360      ;; Paren
361      (paren-blink-off ((t (:foreground "black"))))
362      (paren-face-match ((t (:background "turquoise"))))
363      (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
364      (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
365      (paren-match ((t (:background "darkseagreen2" :foreground "yellow3"))))
366      (paren-mismatch ((t (:background "DeepPink" :foreground "white"))))
367      ;; Eshell
368      (eshell-ls-directory-face ((t (:foreground "Yellow" :bold t))))
369      ;; Shell
370      (shell-option-face ((t (:foreground "Cyan"))))
371      (shell-output-2-face ((t (:foreground "LawnGreen"))))
372      (shell-output-3-face ((t (:foreground "HotPink"))))
373      (shell-output-face ((t (:foreground "BlanchedAlmond"))))
374      (shell-prompt-face ((t (:foreground "Yellow"))))
375      ;; Speedbar
376      (speedbar-button-face ((t (:foreground "green4"))))
377      (speedbar-directory-face ((t (:foreground "BlanchedAlmond"))))
378      (speedbar-file-face ((t (:foreground "cyan4"))))
379      (speedbar-highlight-face ((t (:background "green"))))
380      (speedbar-selected-face ((t (:underline t :foreground "red"))))
381      (speedbar-tag-face ((t (:foreground "brown"))))
382      ;; Widget
383      (widget-button-face ((t (:foreground "magenta"))))
384      (widget-button-pressed-face ((t (:foreground "red"))))
385      (widget-documentation-face ((t (:foreground "BlanchedAlmond"))))
386      (widget-field-face ((t (:background "Grey30" :foreground "Yellow"))))
387      (widget-inactive-face ((t (:foreground "dim gray"))))
388      (zmacs-region ((t (:background "gray30" :foreground "yellow"))))
389      ;; xwem
390      ;(xwem-framei-dockapp-face ((t (:foreground "cyan" :background "black" :bold t))))
391      ;; EasyPG
392      (epa-field-body-face ((t (:foreground "turquoise" :italic t))))
393      (epa-field-name-face ((t (:foreground "BlanchedAlmond"))))
394      (epa-mark-face ((t (:foreground "red" :bold t))))
395      (epa-string-face ((t (:foreground "green"))))
396      (epa-validity-disabled-face ((t (:foreground "grey50"))))
397      (epa-validity-high-face ((t (:foreground "hotpink" :bold t))))
398      (epa-validity-low-face ((t (:foreground "grey80"))))
399      (epa-validity-medium-face ((t (:foreground "PaleTurquoise"))))
400      ;; howm
401      (action-lock-face ((t (:underline t))))
402      (howm-menu-key-face ((t (:foreground "HotPink"))))
403      (howm-menu-list-face ((t (:foreground "black" :background "yellow"))))
404      (howm-mode-ref-face ((t (:foreground "yellow"))))
405      (howm-mode-title-face ((t (:foreground "BlanchedAlmond"))))
406      (howm-mode-wiki-face ((t (:foreground "SkyBlue"))))
407      (howm-reminder-defer-face ((t (:foreground "white"))))
408      (howm-reminder-done-face ((t (:foreground "grey65"))))
409      (howm-reminder-schedule-face ((t (:foreground "cyan"))))
410      (howm-reminder-todo-face ((t (:foreground "hotpink" :bold t))))
411      (howm-reminder-normal-face ((t (:foreground "Salmon"))))
412      ;; Sudoku
413      (sudoku-value-face ((t (:foreground "yellow" :bold t :size ,sudoku-font-size))))
414      )))
415
416 (sy-colour-theme)
417
418 ;:*======================= :* 
419 ; Use a sexy background pixmap.
420 ;(set-face-background-pixmap 'default 
421 ;                           [xpm :file "~/documents/pictures/marble.xpm"]))
422 ;:*=======================
423 ;:* Set background-mode to dark (why isn't this autodetected?)
424 (setq frame-background-mode 'dark)
425
426 ;; Highlight 'FIXME:' and '--SY' in comments.  So far, just lisp mode.
427 (add-to-list 'lisp-font-lock-keywords-2
428              '(";+.*\\(FIXME:\\|--SY\\.?$\\)" 1 font-lock-warning-face prepend))
429 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
430 (message "fonts initialised")
431