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