symbols/geda-font.scm

   1 ;                                                         -*-Scheme-*-
   2 ;;;
   3 ;;; Define the default gaf font
   4 ;;;
   5
   6 (define geda-font-path (build-path geda-data-path "sym" "font"))
   7 (font-directory geda-font-path)
   8
   9 (for-each
  10  (lambda (fontmap)
  11    (map-font-character-to-file
  12     (car fontmap)
  13     (build-path geda-font-path (cdr fontmap))))
  14  '(
  15    (" " . "space.sym")
  16    ("\n" . "newline.sym")
  17    ("!" . "excl.sym")
  18    ("," . "comma.sym")
  19    ("(" . "lparen.sym")
  20    (")" . "rparen.sym")
  21    ("-" . "minus.sym")
  22    ("+" . "plus.sym")
  23    ("#" . "pound.sym")
  24    ("?" . "quest.sym")
  25    ("\"" . "quote.sym")
  26    (":" . "colon.sym")
  27    ("@" . "at.sym")
  28    ("=" . "equal.sym")
  29    (">" . "more.sym")
  30    ("<" . "less.sym")
  31    ("/" . "slash.sym")
  32    ("$" . "dollar.sym")
  33    (";" . "semi.sym")
  34    ("&" . "amper.sym")
  35    ("\\" . "backslash.sym")
  36    ("{" . "lbrace.sym")
  37    ("}" . "rbrace.sym")
  38    ("'" . "apost.sym")
  39    ("`" . "backtick.sym")
  40    ("^" . "caret.sym")
  41    ("%" . "percent.sym")
  42    ("[" . "lbrack.sym")
  43    ("]" . "rbrack.sym")
  44    ("*" . "astericks.sym")
  45    (". " . "period.sym")
  46    ("_" . "under.sym")
  47    ("~" . "tilde.sym")
  48    ("|" . "vbar.sym")
  49
  50    ;; A-umlaut finnish/swedish/german
  51    ("Ä" . "A-diaeresis.sym")
  52    ;; A-ring finnish/swedish/danish/norwegian
  53    ("Å" . "A-ring.sym")
  54    ;; AE-diphtong danish/norwegian
  55    ("Æ" . "AE-lig.sym")
  56    ;; O-umlaut finnish/swedish/german
  57    ("Ö" . "O-diaeresis.sym")
  58    ;; O-double_acute_accent hungarian
  59    ("Ő" . "O-double-acute-accent.sym")
  60    ;; O-slash danish/norwegian
  61    ("Ø" . "O-slash.sym")
  62    ;; U-umlaut german
  63    ("Ü" . "U-diaeresis.sym")
  64    ;; U-double_acute_accent hungarian
  65    ("Ű" . "U-double-acute-accent.sym")
  66    ;; a-umlaut finnish/swedish/german
  67    ("ä" . "a_-diaeresis.sym")
  68    ;; a-ring finnish/swedish/danish/norwegian
  69    ("å" . "a_-ring.sym")
  70    ;; ae-diphtong danish/norwegian
  71    ("æ" . "ae_-lig.sym")
  72    ;; o-umlaut finnish/swedish/german
  73    ("ö" . "o_-diaeresis.sym")
  74    ;; o-double_acute_accent hungarian
  75    ("ő" . "o_-double-acute-accent.sym")
  76    ;; o-slash danish/norwegian
  77    ("ø" . "o_-slash.sym")
  78    ;; u-umlaut german
  79    ("ü" . "u_-diaeresis.sym")
  80    ;; u-double_acute_accent hungarian
  81    ("ű" . "u_-double-acute-accent.sym")
  82    ;; a-acute_accent spanish
  83    ("á" . "a_-acute-accent.sym")
  84    ;; e-acute_accent spanish
  85    ("é" . "e_-acute-accent.sym")
  86    ;; i-acute_accent spanish
  87    ("í" . "i_-acute-accent.sym")
  88    ;; o-acute_accent spanish
  89    ("ó" . "o_-acute-accent.sym")
  90    ;; u-acute_accent spanish
  91    ("ú" . "u_-acute-accent.sym")
  92    ;; A-acute_accent spanish
  93    ("Á" . "A-acute-accent.sym")
  94    ;; E-acute_accent spanish
  95    ("É" . "E-acute-accent.sym")
  96    ;; I-acute_accent spanish
  97    ("Í" . "I-acute-accent.sym")
  98    ;; O-acute_accent spanish
  99    ("Ó" . "O-acute-accent.sym")
 100    ;; U-acute_accent spanish
 101    ("Ú" . "U-acute-accent.sym")
 102    ;; n-tilde spanish
 103    ("ñ" . "n_-tilde.sym")
 104    ;; N-tilde spanish
 105    ("Ñ" . "N-tilde.sym")
 106    ;; open exclamation spanish
 107    ("¡" . "excl-open.sym")
 108    ;; open question spanish
 109    ("¿" . "quest-open.sym")
 110    ;;
 111    ("ą" . "a_-ogonek.sym")
 112    ("Ą" . "A-ogonek.sym")
 113    ("ć" . "c_-acute-accent.sym")
 114    ("Ć" . "C-acute-accent.sym")
 115    ("ę" . "e_-ogonek.sym")
 116    ("Ę" . "E-ogonek.sym")
 117    ("ł" . "l_-slash.sym")
 118    ("Ł" . "L-slash.sym")
 119    ("ń" . "n_-acute-accent.sym")
 120    ("Ń" . "N-acute-accent.sym")
 121    ("ś" . "s_-acute-accent.sym")
 122    ("Ś" . "S-acute-accent.sym")
 123    ("ź" . "z_-acute-accent.sym")
 124    ("Ź" . "Z-acute-accent.sym")
 125    ("ż" . "z_-dot.sym")
 126    ("Ż" . "Z-dot.sym")
 127    ;; latin sharp s character german
 128    ("ß" . "s_-sharp.sym")
 129    ;; small mu character greek
 130    ("µ" . "mu_.sym")
 131    ("Ω" . "Omega.sym")
 132    ))