Mi trovis ian solvon por Äi tio:

(1) Mi instalis la Debian-pakon emacs20 (tiel akirante version 20.3 de
Emakso).

(2) Mi instalis la etan pakon emacs-utf de Otfried Cheong, sekvante
ties klarigojn: http://www.cs.ust.hk/faculty/otfried/Mule/ (SufiÄas
fakte malpaki la dosierojn en $HOME/emacs-utf kaj cd $HOME/emacs-utf
&& gcc -O2 emacs-utf.c -o emacs-utf, se mi Äuste memoras.)

(3) Mi instalis la sekvan programeton en mia $HOME/bin/:

#!/bin/sh
D=$HOME/emacs-utf
PATH=$D:$PATH
exec emacs20 --no-init-file -l $HOME/.emacs-utf -fn fixed $*

(4) En $HOME/.emacs-utf mi metis jenon:

(setq load-path (append load-path '("~/emacs-utf")))
(require 'unicode)
(modify-coding-system-alist 'file "" 'unicode-utf8)

(set-fontset-font
  "-*-*-Medium-R-SemiCondensed--13-120-75-75-C-60-fontset-startup"
  'unicode-mono 
"-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")

(load-file "~/emacs/ege-eo.el")

(setq default-input-method "ege-eo")

(setq sentence-end-double-space nil)

(5) La dosieron $HOME/emacs/ege-eo.el mi kreis per konvertado de
/usr/share/emacs/20.3/leim/quail/latin-pre.el kaj iom da aldonado. Mi
kunsendas Äin nun. Per Äi tio oni povas tajpi ;c por Ä, ktp. Se oni
preferas alian enigmanieron, oni povas facile ÅanÄi. (Oni devas cetere
Åalti aÅ malÅalti la enigmanieron per C-\.)

(6) Nun mi povas meti "set editor=emacs-utf" en mia .muttrc por plej
konvene verki retpoÅton en UFF-8.

Edmundo
(require 'quail)

(quail-define-package
 "ege-eo" "Esperanto" "eo>" t
 "Latin-1 characters input method with prefix modifiers
kun esperantaj aldonaÄoj de Edmundo, kaj Äio estas nun en UTF-8

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> Ã, '' -> Â
    grave    |   `    | `a -> Ã
  circumflex |   ^    | ^a -> Ã
  diaeresis  |   \"    | \"a -> Ã, \"\" -> Â
    tilde    |   ~    | ~a -> Ã
   cedilla   |   ~    | ~c -> Ã
    misc     |  ----  | \"s -> Ã, ~d -> Ã, ~t -> Ã, /a -> Ã, /e -> Ã, /o 
-> Ã
   symbol    |   ~    | ~> -> Â, ~< -> Â, ~! -> Â, ~? -> Â, ~~ -> Â
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?Ã)
 ("'E" ?Ã)
 ("'I" ?Ã)
 ("'O" ?Ã)
 ("'U" ?Ã)
 ("'Y" ?Ã)
 ("'a" ?Ã)
 ("'e" ?Ã)
 ("'i" ?Ã)
 ("'o" ?Ã)
 ("'u" ?Ã)
 ("'y" ?Ã)
 ("''" ?Â)
 ("' " ?')
 ("`A" ?Ã)
 ("`E" ?Ã)
 ("`I" ?Ã)
 ("`O" ?Ã)
 ("`U" ?Ã)
 ("`a" ?Ã)
 ("`e" ?Ã)
 ("`i" ?Ã)
 ("`o" ?Ã)
 ("`u" ?Ã)
 ("``" ?`)
 ("` " ?`)
 ("^A" ?Ã)
 ("^E" ?Ã)
 ("^I" ?Ã)
 ("^O" ?Ã)
 ("^U" ?Ã)
 ("^a" ?Ã)
 ("^e" ?Ã)
 ("^i" ?Ã)
 ("^o" ?Ã)
 ("^u" ?Ã)
 ("^^" ?^)
 ("^ " ?^)
 ("\"A" ?Ã)
 ("\"E" ?Ã)
 ("\"I" ?Ã)
 ("\"O" ?Ã)
 ("\"U" ?Ã)
 ("\"a" ?Ã)
 ("\"e" ?Ã)
 ("\"i" ?Ã)
 ("\"o" ?Ã)
 ("\"s" ?Ã)
 ("\"u" ?Ã)
 ("\"y" ?Ã)
 ("\"\"" ?Â)
 ("\" " ?\")
 ("~A" ?Ã)
 ("~C" ?Ã)
 ("~D" ?Ã)
 ("~N" ?Ã)
 ("~O" ?Ã)
 ("~T" ?Ã)
 ("~a" ?Ã)
 ("~c" ?Ã)
 ("~d" ?Ã)
 ("~n" ?Ã)
 ("~o" ?Ã)
 ("~t" ?Ã)
 ("~>" ?\Â)
 ("~<" ?\Â)
 ("~!" ?Â)
 ("~?" ?Â)
 ("~~" ?Â)
 ("~ " ?~)
 ("/A" ?Ã)
 ("/E" ?Ã)
 ("/O" ?Ã)
 ("/a" ?Ã)
 ("/e" ?Ã)
 ("/o" ?Ã)
 ("//" ?Â)
 ("/ " ?/)

 (";c" ?Ä)
 (";g" ?Ä)
 (";h" ?Ä)
 (";j" ?Ä)
 (";s" ?Å)
 (";u" ?Å)
 (";C" ?Ä)
 (";G" ?Ä)
 (";H" ?Ä)
 (";J" ?Ä)
 (";S" ?Å)
 (";U" ?Å)
)

Reply via email to