cgit.sxemacs.org Git - syinit/blob - 14-fonts-sy.el

   1 ;; 14-fonts-sy.el --- Fonts/Faces Settings   -*- Emacs-Lisp -*-
   2
   3 ;; Copyright (C) 2007 - 2020 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: <Thursday Mar 19, 2020 11:11:22 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 https://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 ;:* font-lock
  61 (require 'font-lock)
  62
  63 ;:*=======================
  64 ;:* Turn on Lazy-(lock|shot)
  65 ;;; Lazy-lock
  66 ;; (require 'lazy-lock)
  67 ;; (if (eq emacs-minor-version 5)
  68 ;;     (setq font-lock-support-mode 'lazy-lock-mode)
  69 ;;  (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock))
  70 ;; (setq lazy-lock-stealth-time 15)
  71
  72 ;;; Lazy-shot (my preference)
  73 ;; (require 'lazy-shot)
  74 ;; (setq lazy-shot-verbose nil)
  75 ;; (setq lazy-shot-stealth-verbose nil)
  76 ;; (add-hook 'font-lock-mode-hook 'turn-on-lazy-shot)
  77
  78 ;;; Fast-lock (it has caching!)
  79 (require 'fast-lock)
  80 (setq fast-lock-cache-directories
  81       (list (paths-construct-path (list (getenv "XDG_CACHE_HOME")
  82                                         "sxemacs" "fast-lock"))))
  83 (push 'save-buffer fast-lock-save-events)
  84 (fast-lock-mode 1)
  85 (add-hook 'font-lock-mode-hook 'turn-on-fast-lock)
  86 (setq-default fast-lock-mode t)
  87
  88 ;:*=======================
  89 ;:* describe-face-at-point, a function to find out which face is which
  90 (defun describe-face-at-point ()
  91   "Describe faces at point."
  92   (interactive)
  93   (let ((faces (get-char-property (point) 'face)))
  94     (if (listp faces)
  95         (hyper-apropos
  96          (mapconcat
  97           #'(lambda (f)
  98               (symbol-name f)) faces "\\|") nil)
  99       (hyper-describe-face faces)
 100       (other-window 1))))
 101
 102 ;; Some convenience face stuff
 103 (require 'facemenu)
 104
 105 ;:*=======================
 106 ;:* Alex Schroeder's color-theme
 107 ;;
 108 ;; A very nice package, get it from:
 109 ;;     <http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme>
 110 (autoload 'color-theme-install "color-theme")
 111 (defun sy-colour-theme ()
 112   "Colour theme by Steve Youngs, created 2001-09-01."
 113   (interactive)
 114   (color-theme-install
 115    `(sy-colour-theme
 116      ;; Misc basic stuff.
 117      ((background-color . "black")
 118       (frame-background-mode . dark)
 119       (background-toolbar-color . "#cccccccccccc")
 120       (border-color . "#000000000000")
 121       (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
 122       (cursor-color . "red3")
 123       (foreground-color . "white")
 124       (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
 125      ((buffers-tab-face . buffers-tab)
 126       (cperl-here-face . font-lock-string-face)
 127       (cperl-invalid-face quote underline)
 128       (cperl-pod-face . font-lock-comment-face)
 129       (cperl-pod-head-face . font-lock-variable-name-face)
 130       (paren-match-face . paren-face-match)
 131       (paren-mismatch-face . paren-face-mismatch)
 132       (paren-no-match-face . paren-face-no-match)
 133       (smiley-mouse-face . highlight)
 134       (vc-mode-face . highlight))
 135      (about-headline-face ((t (:bold t :foreground "HotPink"))))
 136      (about-link-face ((t (:bold t :foreground "Yellow"))))
 137      (blue ((t (:foreground "blue"))))
 138      (buffers-tab ((t (:bold t :background "grey65" :foreground "black"))))
 139      (green ((t (:foreground "green"))))
 140      (gui-button-face ((t (:background "grey75" :foreground "black"))))
 141      (highlight ((t (:background "darkseagreen2" :foreground "red"))))
 142      (list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
 143      (primary-selection ((t (:background "gray65"))))
 144      (red ((t (:foreground "red"))))
 145      (secondary-selection ((t (:background "paleturquoise"))))
 146      (text-cursor ((t (:background "red3" :foreground "black"))))
 147      (underline ((t (:underline t))))
 148      (yellow ((t (:foreground "yellow"))))
 149      ;; Calendar/Diary.
 150      (calendar-today-face ((t (:bold t :foreground "HotPink"))))
 151      (calendar-week-face ((t (:bold t :foreground "yellow"))))
 152      (calendar-header-face ((t (:bold t :foreground "HotPink"))))
 153      (calendar-sunday-face ((t (:bold t :foreground "Red"))))
 154      (diary-face ((t (:foreground "Cyan"))))
 155      (holiday-face ((t ( :foreground "Yellow"))))
 156      ;; cperl-mode.
 157      (cperl-array-face ((t (:bold t :foreground "Blue"))))
 158      (cperl-hash-face ((t (:bold t :foreground "Red"))))
 159      (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
 160      ;; Custom
 161      (custom-group-tag-face ((t (:foreground "Yellow"))))
 162      (custom-state-face ((t (:foreground "Cyan"))))
 163      (custom-variable-tag-face ((t (:foreground "LawnGreen"))))
 164      ;; PCL-CVS
 165      ;(cvs-filename-face ((t (:bold t :foreground "Yellow"))))
 166      ;(cvs-header-face ((t (:foreground "Green"))))
 167      ;(cvs-msg-face ((t ( :foreground "Cyan"))))
 168      ;; XEtla
 169      ;(xetla-archive-name ((t (:foreground "yellow"))))
 170      ;(xetla-location-http ((t (:foreground "sandybrown"))))
 171      ;(xetla-location-local ((t (:foreground "indianred"))))
 172      ;(xetla-location-sftp ((t (:foreground "wheat"))))
 173      ;; dictionary
 174      (dictionary-word-entry-face ((t (:italic nil :foreground "Green"))))
 175      (dictionary-reference-face ((t (:foreground "Yellow"))))
 176      ;; diff-mode
 177      (diff-added-face ((t ( :foreground "LawnGreen"))))
 178      (diff-changed-face ((t ( :foreground "Cyan"))))
 179      (diff-file-header-face
 180       ((t ( :foreground "BlanchedAlmond"))))
 181      (diff-header-face ((t ( :foreground "BlanchedAlmond"))))
 182      (diff-hunk-header-face ((t ( :foreground "Yellow"))))
 183      (diff-index-face ((t ( :foreground "Orange"))))
 184      (diff-removed-face ((t ( :foreground "HotPink"))))
 185      ;; Dired.
 186      (dired-face-boring ((t (:foreground "Gray65"))))
 187      (dired-face-directory ((t (:bold t :foreground "yellow"))))
 188      (dired-face-executable ((t (:bold t :foreground "LimeGreen"))))
 189      (dired-face-flagged ((t (:background "LightSlateGray" :foreground "black"))))
 190      (dired-face-header ((t (:background "Orange" :foreground "black" :bold t))))
 191      (dired-face-marked ((t (:background "PaleVioletRed" :foreground "black" :bold t))))
 192      (dired-face-permissions ((t (:background "Turquoise" :foreground "black"))))
 193      (dired-face-setuid ((t (:foreground "Red" :bold t))))
 194      (dired-face-socket ((t (:foreground "magenta"))))
 195      (dired-face-symlink ((t (:foreground "cyan"))))
 196      ;; Balloon Help.
 197      (display-time-mail-balloon-enhance-face ((t (:background "red"))))
 198      (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
 199      (display-time-time-balloon-face ((t (:foreground "magenta"))))
 200      ;; Ediff
 201      (ediff-current-diff-face-A
 202       ((t (:background "pale green" :foreground "firebrick"))))
 203      (ediff-current-diff-face-Ancestor
 204       ((t (:background "VioletRed" :foreground "Black"))))
 205      (ediff-current-diff-face-B
 206       ((t (:background "Yellow" :foreground "DarkOrchid"))))
 207      (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
 208      (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
 209      (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
 210      (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
 211      (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
 212      (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
 213      (ediff-fine-diff-face-Ancestor
 214       ((t (:background "Green" :foreground "Black"))))
 215      (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
 216      (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
 217      (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
 218      (ediff-odd-diff-face-Ancestor
 219       ((t (:background "light grey" :foreground "Black"))))
 220      (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
 221      (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
 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/misc/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