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">
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">
14 background-color: #000000;
17 /* font-lock-comment-face */
21 /* font-lock-doc-string-face */
25 /* font-lock-function-name-face */
30 /* font-lock-keyword-face */
34 /* font-lock-reference-face */
38 /* font-lock-string-face */
42 /* font-lock-warning-face */
49 background-color: inherit;
52 text-decoration: underline;
56 background-color: #FD00FD;
57 text-decoration: underline;
60 background-color: #000000;
61 text-decoration: none;
68 <span class="comment">;; 14-fonts.el --- Fonts/Faces Settings
70 <span class="comment">;; Copyright (C) 2007 - 2020 Steve Youngs
72 <span class="comment">;; Author: Steve Youngs <<a href="mailto:steve@sxemacs.org">steve@sxemacs.org</a>>
73 ;; Maintainer: Steve Youngs <<a href="mailto:steve@sxemacs.org">steve@sxemacs.org</a>>
74 ;; Created: <2007-12-02>
75 ;; Time-stamp: <Thursday Apr 9, 2020 18:53:24 steve>
76 ;; Download: <<a href="https://downloads.sxemacs.org/SYinits">https://downloads.sxemacs.org/SYinits</a>>
77 ;; HTMLised: <<a href="https://www.sxemacs.org/SYinits/14-fonts.html">https://www.sxemacs.org/SYinits/14-fonts.html</a>>
78 ;; Git Repo: git clone https://git.sxemacs.org/syinit
79 ;; Keywords: init, compile
81 <span class="comment">;; This file is part of SYinit
83 <span class="comment">;; Redistribution and use in source and binary forms, with or without
84 ;; modification, are permitted provided that the following conditions
87 ;; 1. Redistributions of source code must retain the above copyright
88 ;; notice, this list of conditions and the following disclaimer.
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.
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.
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.
110 <span class="comment">;;; Commentary:
112 ;; Sets all my pretty colours and shit.
115 <span class="comment">;;; Credits:
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.
121 <span class="comment">;;; Todo:
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>)
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)
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)
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)
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)
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>"
160 (<span class="keyword">let</span> ((faces (get-char-property (point) 'face)))
161 (<span class="keyword">if</span> (listp faces)
164 #'(<span class="keyword">lambda</span> (f)
165 (symbol-name f)) faces "<span class="string">\\|</span>") nil)
166 (hyper-describe-face faces)
169 <span class="comment">;; Some convenience face stuff
170 </span>(<span class="keyword">require</span> '<span class="reference">facemenu</span>)
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
175 ;; A very nice package, get it from:
176 ;; <<a href="http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme">http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme</a>>
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>"
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))))
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)
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>")
501 <!-- SXEmacs Logo -->
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" />
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!" />
518 <!-- End Valid XHTML 1.0 -->
520 <h6>Copyright © 2020 Steve Youngs<br />
521 Verbatim copying and distribution is permitted in any medium,
522 providing this notice is preserved.<br />
524 Last modified: Wed Apr 15 18:15:05 AEST 2020