Subject: Re: bug#24967: Kashubian input method

From: Wojciech Gac <[email-masked]>
Date: Sun, 20 Nov 2016 00:49:07 +0100

Ok, here's another take on the topic. Now it's not region-specific and
incorporates as many regional diacritics as I was able to find.
Regards,
Wojtek

2016-11-19 15:20 GMT+01:00 Eli Zaretskii <[email-masked]>:

> > From: Wojciech Gac <[email-masked]>
> > Date: Sat, 19 Nov 2016 14:21:10 +0100
> > Cc: [email-masked]
> >
> > Well, I did consider this for a moment, but the Polish method is called
> 'polish-slash' and assumes slash as
> > the prefix character.
>
> I see.
>
> > But perhaps I could create something called 'polish-prefix' which would
> serve as a union of scripts,
> > i.e. combining ordinary Polish diacritics with regional ones. What do
> you think?
>
> Sounds like a good idea, thanks.
>
diff --git a/lisp/leim/quail/latin-pre.el b/lisp/leim/quail/latin-pre.el
index 138a97a..fb44897 100644
--- a/lisp/leim/quail/latin-pre.el
+++ b/lisp/leim/quail/latin-pre.el
@@ -705,6 +705,97 @@
 )

+;; Author: Wojciech Gac <[email-masked]>
+(quail-define-package
+ "polish-prefix" "Polish" "PL>" nil
+ "Polish input method. Similar in spirit to `polish-slash', but
+ using the most intuitive prefix for each diacritic. In addition
+ to ordinary Polish diacritics, this input method also contains
+ characters from the Kashubian, Kurpie and Silesian (both Steuer
+ and Ślabikŏrzowy szrajbōnek) scripts."
+ nil t t nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ (",a" ?ą)
+ (",A" ?Ą)
+ ("/a" ?á)
+ ("/A" ?Á)
+ ("'a" ?á)
+ ("'A" ?Á)
+ ("\\a" ?à)
+ ("\\A" ?À)
+ ("`a" ?à)
+ ("`A" ?À)
+ (".a" ?å)
+ (".A" ?Å)
+ ("~a" ?ã)
+ ("~A" ?Ã)
+ ("/c" ?ć)
+ ("/C" ?Ć)
+ ("'c" ?ć)
+ ("'C" ?Ć)
+ ("'e" ?é)
+ ("'E" ?É)
+ ("/e" ?é)
+ ("/E" ?É)
+ (",e" ?ę)
+ (",E" ?Ę)
+ (":e" ?ë)
+ (":E" ?Ë)
+ (":i" ?ï)
+ (":I" ?Ï)
+ ("/l" ?ł)
+ ("/L" ?Ł)
+ ("/n" ?ń)
+ ("/N" ?Ń)
+ ("'n" ?ń)
+ ("'N" ?Ń)
+ ("`o" ?ò)
+ ("`O" ?Ò)
+ ("\\o" ?ò)
+ ("\\O" ?Ò)
+ ("'o" ?ó)
+ ("'O" ?Ó)
+ ("/o" ?ó)
+ ("/O" ?Ó)
+ ("^o" ?ô)
+ ("^O" ?Ô)
+ ("-o" ?ō)
+ ("-O" ?Ō)
+ ("~o" ?õ)
+ ("~O" ?Õ)
+ ("#o" ?ŏ)
+ ("#O" ?Ŏ)
+ ("/s" ?ś)
+ ("/S" ?Ś)
+ ("'s" ?ś)
+ ("'S" ?Ś)
+ ("`u" ?ù)
+ ("`U" ?Ù)
+ (".u" ?ů)
+ (".U" ?Ů)
+ ("/z" ?ź)
+ ("/Z" ?Ź)
+ ("'z" ?ź)
+ ("'Z" ?Ź)
+ (".z" ?ż)
+ (".Z" ?Ż)
+ ;; Explicit input of prefix characters. Normally, to input a prefix
+ ;; character itself, one needs to press <Tab>. Definitions below
+ ;; allow to input those characters by entering them twice.
+ ("//" ?/)
+ ("\\\\" ?\\)
+ ("~~" ?~)
+ ("''" ?')
+ ("::" ?:)
+ ("``" ?`)
+ ("^^" ?^)
+ (".." ?.)
+ (",," ?,)
+ ("--" ?-)
+)
+
+
 (quail-define-package
  "polish-slash" "Polish" "PL>" nil
  "Polish diacritics and slash character are input as `/[acelnosxzACELNOSXZ/]'.