;;; quail/sxava-ucs.el -- Quail package for inputting Esperanto in Shavian alphabet

;; Copyright (C) 2011 Sergio Pokrovskij

;; Keywords: multilingual, input method, Esperanto, Shavian alphabet

;; This file is not a part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

(require 'quail)

(quail-define-package
 "sxava-ucs" "utf-8" "𐑧𐑩" t
 "A method to input Esperanto in Shavian letters.
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("a" ?𐑨)
 ("A" ?𐑲) ; aŭ, instead of [aɪ]
 ("b" ?𐑚)
 ("c" ?𐑔) ; instead of [θ]
 ("x" ?𐑗) ; ĉ
 ("d" ?𐑛)
 ("e" ?𐑧)
 ("E" ?𐑱) ; eŭ, instead of [eɪ]
 ("f" ?𐑓)
 ("g" ?𐑜)
 ("y" ?𐑡) ; ĝ
 ("h" ?𐑣)
 ("H" ?𐑙) ; ĥ; instead of [ŋ]
 ("i" ?𐑦)
 ("j" ?𐑰)
 ("Y" ?𐑢) ; Starlinga /j/; swapped with [w]
 ("J" ?𐑠) ; ĵ
 ("k" ?𐑒)
 ("l" ?𐑤)
 ("m" ?𐑫) ; instead of [ʊ]
 ("n" ?𐑵) ; instead of [u:]
 ("o" ?𐑩) ; instead of [ə]
 ("p" ?𐑐)
 ("r" ?𐑮)
 ("s" ?𐑕)
 ("q" ?𐑖) ; ŝ
 ("t" ?𐑑)
 ("u" ?𐑪)
 ("v" ?𐑝)
 ("w" ?𐑘) ; ŭ; swapped with [j] (\)
 ("z" ?𐑟)
 ("Z" ?𐑞) ; dz, mankas en Eo; instead of [ð]

 ("`" ?·) ("``" ?`)
)