src/TeXmacs/progs/text/text-kbd.scm

   1
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;;
   4 ;; MODULE      : text-kbd.scm
   5 ;; DESCRIPTION : basic keystrokes in text mode
   6 ;; COPYRIGHT   : (C) 1999  Joris van der Hoeven
   7 ;;
   8 ;; This software falls under the GNU general public license version 3 or later.
   9 ;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
  10 ;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 ;;
  12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13
  14 (texmacs-module (text text-kbd)
  15   (:use (utils edit auto-close)
  16         (text format-text-edit)))
  17
  18 (kbd-map
  19   (:mode in-text?)
  20   ("\"" (insert-quote))
  21   ("<" "<less>")
  22   (">" "<gtr>")
  23   ("< var" "\x0e")
  24   ("> var" "\x0f")
  25   ("< <" "\x13")
  26   ("> >" "\x14")
  27   (", ," "\x12")
  28   ("sz" "ÿ")
  29   ("- - -" (make 'emdash))
  30   ;;("- -" "\x15")
  31   ;;("' '" "\x11")
  32   ;;("` `" "\x10")
  33
  34   ("text:symbol s" "ÿ")
  35   ("text:symbol S" "ß")
  36   ("text:symbol a" "æ")
  37   ("text:symbol a e" "æ")
  38   ("text:symbol o" "ø")
  39   ("text:symbol o e" "÷")
  40   ("text:symbol A" "Æ")
  41   ("text:symbol A E" "Æ")
  42   ("text:symbol O" "Ø")
  43   ("text:symbol O E" "×")
  44   ("text:symbol !" "½")
  45   ("text:symbol ?" "¾")
  46   ("text:symbol p" "Ÿ")
  47   ("text:symbol P" "¿")
  48   ("text:symbol m" (make 'masculine))
  49   ("text:symbol M" (make 'varmasculine))
  50   ("text:symbol f" (make 'ordfeminine))
  51   ("text:symbol F" (make 'varordfeminine))
  52
  53   ("accent:tilde" "~")
  54   ("accent:tilde space" "~")
  55   ("accent:tilde A" "Ã")
  56   ("accent:tilde N" "Ñ")
  57   ("accent:tilde O" "Õ")
  58   ("accent:tilde a" "ã")
  59   ("accent:tilde n" "ñ")
  60   ("accent:tilde o" "õ")
  61
  62   ("accent:hat" "^")
  63   ("accent:hat space" "^")
  64   ("accent:hat A" "Â")
  65   ("accent:hat E" "Ê")
  66   ("accent:hat I" "Î")
  67   ("accent:hat O" "Ô")
  68   ("accent:hat U" "Û")
  69   ("accent:hat a" "â")
  70   ("accent:hat e" "ê")
  71   ("accent:hat i" "î")
  72   ("accent:hat o" "ô")
  73   ("accent:hat u" "û")
  74   ("accent:deadhat" "^")
  75   ("accent:deadhat space" "^")
  76   ("accent:deadhat A" "Â")
  77   ("accent:deadhat E" "Ê")
  78   ("accent:deadhat I" "Î")
  79   ("accent:deadhat O" "Ô")
  80   ("accent:deadhat U" "Û")
  81   ("accent:deadhat a" "â")
  82   ("accent:deadhat e" "ê")
  83   ("accent:deadhat i" "î")
  84   ("accent:deadhat o" "ô")
  85   ("accent:deadhat u" "û")
  86
  87   ("accent:umlaut" "\x04")
  88   ("accent:umlaut space" "\x04")
  89   ("accent:umlaut A" "Ä")
  90   ("accent:umlaut E" "Ë")
  91   ("accent:umlaut I" "Ï")
  92   ("accent:umlaut O" "Ö")
  93   ("accent:umlaut U" "Ü")
  94   ("accent:umlaut Y" "˜")
  95   ("accent:umlaut a" "ä")
  96   ("accent:umlaut e" "ë")
  97   ("accent:umlaut i" "ï")
  98   ("accent:umlaut o" "ö")
  99   ("accent:umlaut u" "ü")
 100   ("accent:umlaut y" "¸")
 101
 102   ("accent:acute" "'")
 103   ("accent:acute space" "'")
 104   ("accent:acute A" "Á")
 105   ("accent:acute C" "‚")
 106   ("accent:acute E" "É")
 107   ("accent:acute I" "Í")
 108   ("accent:acute L" "ˆ")
 109   ("accent:acute N" "‹")
 110   ("accent:acute O" "Ó")
 111   ("accent:acute R" "�")
 112   ("accent:acute S" "‘")
 113   ("accent:acute U" "Ú")
 114   ("accent:acute Y" "Ý")
 115   ("accent:acute Z" "™")
 116   ("accent:acute a" "á")
 117   ("accent:acute c" "¢")
 118   ("accent:acute e" "é")
 119   ("accent:acute i" "í")
 120   ("accent:acute l" "¨")
 121   ("accent:acute n" "«")
 122   ("accent:acute o" "ó")
 123   ("accent:acute r" "¯")
 124   ("accent:acute s" "±")
 125   ("accent:acute u" "ú")
 126   ("accent:acute y" "ý")
 127   ("accent:acute z" "¹")
 128
 129   ("accent:grave" "`")
 130   ("accent:grave space" "`")
 131   ("accent:grave A" "À")
 132   ("accent:grave E" "È")
 133   ("accent:grave I" "Ì")
 134   ("accent:grave O" "Ò")
 135   ("accent:grave U" "Ù")
 136   ("accent:grave a" "à")
 137   ("accent:grave e" "è")
 138   ("accent:grave i" "ì")
 139   ("accent:grave o" "ò")
 140   ("accent:grave u" "ù")
 141
 142   ("accent:cedilla" "\v")
 143   ("accent:cedilla space" "\v")
 144   ("accent:cedilla C" "Ç")
 145   ("accent:cedilla S" "“")
 146   ("accent:cedilla T" "•")
 147   ("accent:cedilla c" "ç")
 148   ("accent:cedilla s" "³")
 149   ("accent:cedilla t" "µ")
 150
 151   ("accent:breve" "\b")
 152   ("accent:breve space" "\b")
 153   ("accent:breve A" "€")
 154   ("accent:breve G" "‡")
 155   ("accent:breve a" " ")
 156   ("accent:breve g" "§")
 157
 158   ("accent:check" "\a")
 159   ("accent:check space" "\a")
 160   ("accent:check C" "ƒ")
 161   ("accent:check D" "„")
 162   ("accent:check E" "…")
 163   ("accent:check L" "‰")
 164   ("accent:check N" "Œ")
 165   ("accent:check R" "�")
 166   ("accent:check S" "’")
 167   ("accent:check T" "”")
 168   ("accent:check U" "—")
 169   ("accent:check Z" "š")
 170   ("accent:check c" "£")
 171   ("accent:check d" "¤")
 172   ("accent:check e" "¥")
 173   ("accent:check l" "©")
 174   ("accent:check n" "¬")
 175   ("accent:check r" "°")
 176   ("accent:check s" "²")
 177   ("accent:check t" "´")
 178   ("accent:check u" "·")
 179   ("accent:check z" "º")
 180
 181   ("accent:doubleacute" "\x05")
 182   ("accent:doubleacute space" "\x05")
 183   ("accent:doubleacute O" "Ž")
 184   ("accent:doubleacute U" "–")
 185   ("accent:doubleacute o" "®")
 186   ("accent:doubleacute u" "¶")
 187
 188   ("accent:abovering" "\x06")
 189   ("accent:abovering space" "\x06")
 190   ("accent:abovering A" "Å")
 191   ("accent:abovering U" "—")
 192   ("accent:abovering a" "å")
 193   ("accent:abovering u" "·")
 194
 195   ("accent:abovedot" "
 196 ")
 197   ("accent:abovedot space" "
 198 ")
 199   ("accent:abovedot Z" "›")
 200   ("accent:abovedot I" "�")
 201   ("accent:abovedot z" "»")
 202
 203   ("accent:ogonek" "\f")
 204   ("accent:ogonek space" "\f")
 205   ("accent:ogonek a" "¡")
 206   ("accent:ogonek A" "�")
 207   ("accent:ogonek e" "¦")
 208   ("accent:ogonek E" "†")
 209
 210   ("exclamdown" "½")
 211   ("cent" (make 'cent))
 212   ("sterling" "¿")
 213   ("currency" (make 'currency))
 214   ("yen" (make 'yen))
 215   ("section" "Ÿ")
 216   ("copyright" (make 'copyright))
 217   ("copyright var" (make 'copyleft))
 218   ("guillemotleft" "\x13")
 219   ("registered" (make 'registered))
 220   ("degree" (make 'degreesign))
 221   ("twosuperior" (make 'twosuperior))
 222   ("threesuperior" (make 'threesuperior))
 223   ("mu" (make 'mu))
 224   ("paragraph" (make 'paragraphsign))
 225   ("onesuperior" (make 'onesuperior))
 226   ("guillemotright" "\x14")
 227   ("onequarter" (make 'onequarter))
 228   ("onehalf" (make 'onehalf))
 229   ("threequarters" (make 'threequarters))
 230   ("questiondown" "¾")
 231   ("euro" (make 'euro))
 232   ("masculine" (make 'masculine))
 233   ("ordfeminine" (make 'ordfeminine))
 234   ("masculine var" (make 'varmasculine))
 235   ("ordfeminine var" (make 'varordfeminine)))
 236
 237 (kbd-map
 238   (:mode in-german?)
 239   ("ß" "ÿ")
 240   ("ÿ" "¸"))
 241
 242 (kbd-map
 243   (:mode in-hungarian?)
 244   ("text:symbol O" "Ž")
 245   ("text:symbol U" "–")
 246   ("text:symbol o" "®")
 247   ("text:symbol u" "¶"))
 248
 249 (kbd-map
 250   (:mode in-spanish?)
 251   ("¡" "½")
 252   ("¿" "¾")
 253   ("! var" "½")
 254   ("? var" "¾")
 255   ("! `" "½")
 256   ("? `" "¾")
 257   ("! accent:grave" "½")
 258   ("? accent:grave" "¾"))
 259
 260 (kbd-map
 261   (:mode in-polish?)
 262   ("text:symbol a" "¡")
 263   ("text:symbol A" "�")
 264   ("text:symbol c" "¢")
 265   ("text:symbol C" "‚")
 266   ("text:symbol e" "¦")
 267   ("text:symbol E" "†")
 268   ("text:symbol l" "ª")
 269   ("text:symbol L" "Š")
 270   ("text:symbol n" "«")
 271   ("text:symbol N" "‹")
 272   ("text:symbol o" "ó")
 273   ("text:symbol O" "Ó")
 274   ("text:symbol s" "±")
 275   ("text:symbol S" "‘")
 276   ("text:symbol x" "¹")
 277   ("text:symbol X" "™")
 278   ("text:symbol z" "»")
 279   ("text:symbol Z" "›")
 280   ("text:symbol z var" "¹")
 281   ("text:symbol Z var" "™"))
 282
 283 (kbd-map
 284   (:mode in-cyrillic?)
 285   ("modeswitch" (make-with "language" "english") (make-with "font" "roman")))