lisp/international/iso-transl.el

   1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1  -*- coding: iso-8859-1 -*-
   2
   3 ;; Copyright (C) 1987, 1993-1999, 2001-2012  Free Software Foundation, Inc.
   4
   5 ;; Author: Howard Gayle
   6 ;; Maintainer: FSF
   7 ;; Keywords: i18n
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;; Loading this package defines three ways of entering the non-ASCII
  27 ;; printable characters with codes above 127: the prefix C-x 8, or the
  28 ;; Alt key, or a dead accent key.  For example, you can enter uppercase
  29 ;; A-umlaut as `C-x 8 " A' or `Alt-" A' (if you have an Alt key) or
  30 ;; `umlaut A' (if you have an umlaut/diaeresis key).
  31
  32 ;; C-x 8 is set up to autoload this package,
  33 ;; but Alt keys and dead accent keys are only defined
  34 ;; once you have loaded the package.  It is nontrivial
  35 ;; to make all of the Alt keys autoload, and it is not clear
  36 ;; that the dead accent keys SHOULD autoload this package.
  37
  38 ;;; Code:
  39
  40 ;;; Provide some binding for startup:
  41 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
  42 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap)
  43
  44 (defvar iso-transl-dead-key-alist
  45   '((?\' . mute-acute)
  46     (?\` . mute-grave)
  47     (?\" . mute-diaeresis)
  48     (?^ . mute-asciicircum)
  49     (?\~ . mute-asciitilde)
  50     (?\' . dead-acute)
  51     (?\` . dead-grave)
  52     (?\" . dead-diaeresis)
  53     (?^ . dead-asciicircum)
  54     (?\~ . dead-asciitilde)
  55     (?^ . dead-circum)
  56     (?^ . dead-circumflex)
  57     (?\~ . dead-tilde)
  58     ;; Someone reports that these keys don't work if shifted.
  59     ;; This might fix it--no word yet.
  60     (?\' . S-dead-acute)
  61     (?\` . S-dead-grave)
  62     (?\" . S-dead-diaeresis)
  63     (?^ . S-dead-asciicircum)
  64     (?\~ . S-dead-asciitilde)
  65     (?^ . S-dead-circum)
  66     (?^ . S-dead-circumflex)
  67     (?\~ . S-dead-tilde))
  68   "Mapping of ASCII characters to their corresponding dead-key symbols.")
  69
  70 ;; The two-character mnemonics are intended to be available in all languages.
  71 ;; The ones beginning with `*' have one-character synonyms, but a
  72 ;; language-specific table might override the short form for its own use.
  73
  74 (defvar iso-transl-char-map
  75   '(("* "   . [? ])
  76     (" "    . [? ])
  77     ("*!"   . [?¡])
  78     ("!"    . [?¡])
  79     ("\"\"" . [?¨])
  80     ("\"A"  . [?Ä])
  81     ("\"E"  . [?Ë])
  82     ("\"I"  . [?Ï])
  83     ("\"O"  . [?Ö])
  84     ("\"U"  . [?Ü])
  85     ("\"a"  . [?ä])
  86     ("\"e"  . [?ë])
  87     ("\"i"  . [?ï])
  88     ("\"o"  . [?ö])
  89     ("\"s"  . [?ß])
  90     ("\"u"  . [?ü])
  91     ("\"y"  . [?ÿ])
  92     ("''"   . [?´])
  93     ("'A"   . [?Á])
  94     ("'E"   . [?É])
  95     ("'I"   . [?Í])
  96     ("'O"   . [?Ó])
  97     ("'U"   . [?Ú])
  98     ("'Y"   . [?Ý])
  99     ("'a"   . [?á])
 100     ("'e"   . [?é])
 101     ("'i"   . [?í])
 102     ("'o"   . [?ó])
 103     ("'u"   . [?ú])
 104     ("'y"   . [?ý])
 105     ("*$"   . [?¤])
 106     ("$"    . [?¤])
 107     ("*+"   . [?±])
 108     ("+"    . [?±])
 109     (",,"   . [?¸])
 110     (",C"   . [?Ç])
 111     (",c"   . [?ç])
 112     ("*-"   . [?])
 113     ("-"    . [?])
 114     ("*."   . [?·])
 115     ("."    . [?·])
 116     ("//"   . [?÷])
 117     ("/A"   . [?Å])
 118     ("/E"   . [?Æ])
 119     ("/O"   . [?Ø])
 120     ("/a"   . [?å])
 121     ("/e"   . [?æ])
 122     ("/o"   . [?ø])
 123     ("1/2"  . [?½])
 124     ("1/4"  . [?¼])
 125     ("3/4"  . [?¾])
 126     ("*<"   . [?«])
 127     ("<"    . [?«])
 128     ("*="   . [?¯])
 129     ("="    . [?¯])
 130     ("*>"   . [?»])
 131     (">"    . [?»])
 132     ("*?"   . [?¿])
 133     ("?"    . [?¿])
 134     ("*C"   . [?©])
 135     ("C"    . [?©])
 136     ("*L"   . [?£])
 137     ("L"    . [?£])
 138     ("*P"   . [?¶])
 139     ("P"    . [?¶])
 140     ("*R"   . [?®])
 141     ("R"    . [?®])
 142     ("*S"   . [?§])
 143     ("S"    . [?§])
 144     ("*Y"   . [?¥])
 145     ("Y"    . [?¥])
 146     ("^1"   . [?¹])
 147     ("^2"   . [?²])
 148     ("^3"   . [?³])
 149     ("^A"   . [?Â])
 150     ("^E"   . [?Ê])
 151     ("^I"   . [?Î])
 152     ("^O"   . [?Ô])
 153     ("^U"   . [?Û])
 154     ("^a"   . [?â])
 155     ("^e"   . [?ê])
 156     ("^i"   . [?î])
 157     ("^o"   . [?ô])
 158     ("^u"   . [?û])
 159     ("_a"   . [?ª])
 160     ("_o"   . [?º])
 161     ("`A"   . [?À])
 162     ("`E"   . [?È])
 163     ("`I"   . [?Ì])
 164     ("`O"   . [?Ò])
 165     ("`U"   . [?Ù])
 166     ("`a"   . [?à])
 167     ("`e"   . [?è])
 168     ("`i"   . [?ì])
 169     ("`o"   . [?ò])
 170     ("`u"   . [?ù])
 171     ("*c"   . [?¢])
 172     ("c"    . [?¢])
 173     ("*o"   . [?°])
 174     ("o"    . [?°])
 175     ("*u"   . [?µ])
 176     ("u"    . [?µ])
 177     ("*m"   . [?µ])
 178     ("m"    . [?µ])
 179     ("*x"   . [?×])
 180     ("x"    . [?×])
 181     ("*|"   . [?¦])
 182     ("|"    . [?¦])
 183     ("~A"   . [?Ã])
 184     ("~D"   . [?Ð])
 185     ("~N"   . [?Ñ])
 186     ("~O"   . [?Õ])
 187     ("~T"   . [?Þ])
 188     ("~a"   . [?ã])
 189     ("~d"   . [?ð])
 190     ("~n"   . [?ñ])
 191     ("~o"   . [?õ])
 192     ("~t"   . [?þ])
 193     ("~~"   . [?¬])
 194     ("' "   . "'")
 195     ("` "   . "`")
 196     ("\" "  . "\"")
 197     ("^ "   . "^")
 198     ("~ "   . "~"))
 199   "Alist of character translations for entering ISO characters.
 200 Each element has the form (STRING . VECTOR).
 201 The sequence STRING of ASCII chars translates into the
 202 sequence VECTOR.  (VECTOR is normally one character long.)")
 203
 204 ;; Language-specific translation lists.
 205 (defvar iso-transl-language-alist
 206   '(("Esperanto"
 207      ("C"  . [?Æ])
 208      ("G"  . [?Ø])
 209      ("H"  . [?¦])
 210      ("J"  . [?¬])
 211      ("S"  . [?Þ])
 212      ("U"  . [?Ý])
 213      ("c"  . [?æ])
 214      ("g"  . [?ø])
 215      ("h"  . [?¶])
 216      ("j"  . [?¼])
 217      ("s"  . [?þ])
 218      ("u"  . [?ý]))
 219     ("French"
 220      ("C"  . [?Ç])
 221      ("c"  . [?ç]))
 222     ("German"
 223      ("A"  . [?Ä])
 224      ("O"  . [?Ö])
 225      ("U"  . [?Ü])
 226      ("a"  . [?ä])
 227      ("o"  . [?ö])
 228      ("s"  . [?ß])
 229      ("u"  . [?ü]))
 230     ("Portuguese"
 231      ("C"  . [?Ç])
 232      ("c"  . [?ç]))
 233     ("Spanish"
 234      ("!"  . [?¡])
 235      ("?"  . [?¿])
 236      ("N"  . [?Ñ])
 237      ("n"  . [?ñ]))))
 238
 239 (defvar iso-transl-ctl-x-8-map nil
 240   "Keymap for C-x 8 prefix.")
 241 (or iso-transl-ctl-x-8-map
 242     (fset 'iso-transl-ctl-x-8-map
 243           (setq iso-transl-ctl-x-8-map (make-sparse-keymap))))
 244 (or key-translation-map
 245     (setq key-translation-map (make-sparse-keymap)))
 246 (define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map)
 247
 248 ;; For each entry in the alist, we'll make up to three ways to generate
 249 ;; the character in question: the prefix `C-x 8'; the ALT modifier on
 250 ;; the first key of the sequence; and (if applicable) replacing the first
 251 ;; key of the sequence with the corresponding dead key.  For example, a
 252 ;; character associated with the string "~n" can be input with `C-x 8 ~ n'
 253 ;; or `Alt-~ n' or `mute-asciitilde n'.
 254 (defun iso-transl-define-keys (alist)
 255   (while alist
 256     (let ((translated-vec (cdr (car alist))))
 257       (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec)
 258       (let ((inchar (aref (car (car alist)) 0))
 259             (vec (vconcat (car (car alist))))
 260             (tail iso-transl-dead-key-alist))
 261         (aset vec 0 (logior (aref vec 0) ?\A-\^@))
 262         (define-key key-translation-map vec translated-vec)
 263         (define-key isearch-mode-map (vector (aref vec 0)) nil)
 264         (while tail
 265           (if (eq (car (car tail)) inchar)
 266               (let ((deadvec (copy-sequence vec))
 267                     (deadkey (cdr (car tail))))
 268                 (aset deadvec 0 deadkey)
 269                 (define-key isearch-mode-map (vector deadkey) nil)
 270                 (define-key key-translation-map deadvec translated-vec)))
 271           (setq tail (cdr tail)))))
 272     (setq alist (cdr alist))))
 273
 274 (defun iso-transl-set-language (lang)
 275   (interactive (list (let ((completion-ignore-case t))
 276                        (completing-read "Set which language? "
 277                                         iso-transl-language-alist nil t))))
 278   (iso-transl-define-keys (cdr (assoc lang iso-transl-language-alist))))
 279
 280
 281 ;; The standard mapping comes automatically.  You can partially overlay it
 282 ;; with a language-specific mapping by using `M-x iso-transl-set-language'.
 283 (iso-transl-define-keys iso-transl-char-map)
 284
 285 (provide 'iso-transl)
 286
 287 ;;; iso-transl.el ends here