cgit.sxemacs.org Git - website/blob - SYinits/14-fonts.html

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