gnu-emacs-sources
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

shavian-ucs.el: An input method for the Shaw Alphabet


From: Sergei
Subject: shavian-ucs.el: An input method for the Shaw Alphabet
Date: Wed, 28 Mar 2012 19:04:55 -0000
User-agent: G2/1.0

You can read about the Shavian alphabet and this particular package at
http://www.pok.heliohost.org/en/shavian/shavian.pdf

Also in Wikipedia,
http://en.wikipedia.org/wiki/Shavian_alphabet

----------------------------

;;; quail/e8.el -- Quail package for inputting Savian letters -*-
coding: utf-8 -*-

;; Copyright (C) 2011 Sergei Pokrovsky

;; Keywords: multilingual, input method, Shavian

;; 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 "shavian-ucs" "utf-8" "๐‘–8" t
 "A SAMPA-like notation to input Shavian letters in UTF-8 encoding.
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("p" ?๐‘) ("b" ?๐‘š)
 ("t" ?๐‘‘) ("d" ?๐‘›)
 ("k" ?๐‘’) ("g" ?๐‘œ)
 ("f" ?๐‘“) ("v" ?๐‘)
 ("T" ?๐‘”) ("D" ?๐‘ž)
 ("s" ?๐‘•) ("z" ?๐‘Ÿ)
 ("S" ?๐‘–) ("Z" ?๐‘ )
 ("J" ?๐‘—) ("j" ?๐‘ก) ; The "tall" J is the voiceless [tS]
 ("y" ?๐‘˜) ; [j], yea (SAMPA [j])
 ("w" ?๐‘ข)
 ("N" ?๐‘™) ("h" ?๐‘ฃ)

 ;; --- Short letters:
 ("l"  ?๐‘ค) ("r"  ?๐‘ฎ)
 ("m"  ?๐‘ฅ) ("n"  ?๐‘ฏ)

 ("i"  ?๐‘ฆ)  ; [ษช], if (SAMPA [I])
 ("ee"  ?๐‘ฐ) ; [i:], eat (SAMPA [i:])

 ("E"  ?๐‘ง)  ; egg [ษ›]
 ("ei" ?๐‘ฑ)  ; Age

 ("{"  ?๐‘จ)  ; [รฆ] Ash
 ("ai"  ?๐‘ฒ) ; Ice

 ("@"  ?๐‘ฉ) ; Ado [ษ™]
 ("x"  ?๐‘ฉ) ; Ado [ษ™] (just a handy variant for @)
 ("V"  ?๐‘ณ) ; Up [สŒ]

 ("q"  ?๐‘ช) ; On [ษ’]
 ("Q"  ?๐‘ช) ; On [ษ’]
 ("ou" ?๐‘ด) ; OAk [oสŠ]

 ("u" ?๐‘ซ) ; [สŠ], wOOl (SAMPA [U])
 ("U" ?๐‘ซ) ; [สŠ], wOOl (SAMPA [U])
 ("oo"  ?๐‘ต) ; [u:], ooze

 ("au" ?๐‘ฌ) ; [aสŠ], out
 ("oi" ?๐‘ถ) ; [ษ”ษช], oil

 ("A"  ?๐‘ญ) ; [ษ‘ห], ah
 ("O"  ?๐‘ท) ; [ษ”ห], awe

 ;; --- Ligatures et al.:
 ("c" ?ยท) ("C" ?ยท); naming dot
 (";;" ?\;)

 ("Ar" ?๐‘ธ) ; [ษ‘r] - are
 ("Or" ?๐‘น) ; [ษ”r], [ษ”ษ™r] - or

 (";E" ?๐‘บ) ; [ษ›ษ™r] - air
 (";3" ?๐‘ป) ; [ษœr] - err

 ("@r"  ?๐‘ผ) ; [ษ™r] - ARRay
 ("xr"  ?๐‘ผ) ; [ษ™r] - ARRay
 ("address@hidden" ?๐‘ฝ) ; [ษชษ™r] - ear
 ("ixr" ?๐‘ฝ) ; [ษชษ™r] - ear

 ("i@" ?๐‘พ) ; [i.ษ™] - Ian
 ("ix" ?๐‘พ) ; [i.ษ™] - Ian
 ("yu" ?๐‘ฟ) ; [ju:] - yew
)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]