all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* slovenian support
@ 2005-03-23 22:38 Jure Cuhalev
  2005-03-24 10:48 ` Juri Linkov
  0 siblings, 1 reply; 5+ messages in thread
From: Jure Cuhalev @ 2005-03-23 22:38 UTC (permalink / raw)


[-- Attachment #1: Type: text/plain, Size: 121 bytes --]

Attached are two trivial patches that add support for slovenian keyboard 
and slovenian language.

regards

Jure Cuhalev

[-- Attachment #2: iso-acc.el.patch --]
[-- Type: text/x-patch, Size: 2085 bytes --]

--- iso-acc.el	2001-10-30 17:11:34.000000000 +0100
+++ iso-acc.el.sl	2005-03-23 23:25:56.498167000 +0100
@@ -143,6 +143,41 @@
 	 (?\  . ?~))
      (?, (?c . ?\347) (?C . ?\307) (?, . ?,)))
 
+    ("slovenian" latin-iso8859-2
+     (?' (?A . ?\301) (?C . ?\306) (?D . ?\320) (?E . ?\311) (?I . ?\315)
+         (?L . ?\305) (?N . ?\321) (?O . ?\323) (?R . ?\300) (?S . ?\246)
+         (?U . ?\332) (?Y . ?\335) (?Z . ?\254)
+         (?a . ?\341) (?c . ?\346) (?d . ?\360) (?e . ?\351) (?i . ?\355)
+         (?l . ?\345) (?n . ?\361) (?o . ?\363) (?r . ?\340) (?s . ?\266)
+         (?u . ?\372) (?y . ?\375) (?z . ?\274)
+         (?' . ?\264) (?\  . ?'))
+     (?` (?A . ?\241) (?C . ?\307) (?E . ?\312) (?L . ?\243) (?S . ?\252)
+         (?T . ?\336) (?Z . ?\257)
+         (?a . ?\261) (?l . ?\263) (?c . ?\347) (?e . ?\352) (?s . ?\272)
+         (?t . ?\376) (?z . ?\277)
+         (?` . ?\252)
+         (?. . ?\377) (?\  . ?`))
+     (?^ (?A . ?\302) (?I . ?\316) (?O . ?\324)
+         (?a . ?\342) (?i . ?\356) (?o . ?\364)
+         (?^ . ?^)                      ; no special code?
+         (?\  . ?^))
+     (?\" (?C . ?\310) (?S . ?\251) (?Z . ?\256)
+          (?c . ?\350) (?s . ?\271) (?z . ?\276)
+          (?A . ?\304) (?E . ?\313) (?O . ?\326) (?U . ?\334)
+          (?a . ?\344) (?e . ?\353) (?o . ?\366) (?u . ?\374)
+          (?\" . ?\250)
+          (?\  . ?\"))
+     (?~ (?A . ?\303) (?C . ?\310) (?D . ?\317) (?L . ?\245) (?N . ?\322)
+         (?O . ?\325) (?R . ?\330) (?S . ?\251) (?T . ?\253) (?U . ?\333)
+         (?Z . ?\256)
+         (?a . ?\343) (?c . ?\350) (?d . ?\357) (?l . ?\265) (?n . ?\362)
+         (?o . ?\365) (?r . ?\370) (?s . ?\271) (?t . ?\273) (?u . ?\373)
+         (?z . ?\276)
+         (?v . ?\242)                   ; v accent
+         (?\~ . ?\242)                  ; v accent
+         (?\. . ?\270)                  ; cedilla accent
+         (?\  . ?~)))
+
     ("spanish"
      (?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
 	 (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)

[-- Attachment #3: ispell.el.patch --]
[-- Type: text/x-patch, Size: 910 bytes --]

--- ispell.el	2002-01-22 08:36:53.000000000 +0100
+++ ispell.el.sl	2005-03-23 23:29:20.881096072 +0100
@@ -623,6 +623,10 @@
     "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]"
     "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]"
     "" nil ("-B" "-d" "slovak") nil iso-8859-2)))
+   ("slovenian"
+    "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]"
+    "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]"
+    "" nil ("-B" "-d" "slovenian") nil iso-8859-2)))
 
 ;;;###autoload
 (defcustom ispell-dictionary-alist

[-- Attachment #4: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs

^ permalink raw reply	[flat|nested] 5+ messages in thread
* slovenian support
@ 2005-04-27  9:06 Jure Cuhalev
  0 siblings, 0 replies; 5+ messages in thread
From: Jure Cuhalev @ 2005-04-27  9:06 UTC (permalink / raw)


[-- Attachment #1: Type: text/plain, Size: 150 bytes --]


Support for slovenian keyboard. To enable selection of keyboard,
slovenian is included in leim-list. Please include upstream.

regards

Jure Cuhalev

[-- Attachment #2: slovenian.el --]
[-- Type: application/octet-stream, Size: 3741 bytes --]

;;; quail/slovenian.el -- Quail package for inputing Slovenian  -*-coding: iso-8859-2;-*-

;; Copyright (C) 2002 Free Software Foundation.

;; Author: Ale¹ Ko¹ir <ales.kosir@lugos.si>
;; The slovenian input method is enabled by set-input-method command.
;; Keywords: i18n

;; This file is 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
 "slovenian" "Slovenian" "SI" nil
 "\"Standard\" Slovenian QWERTZ keyboard as per MS Windows NT 105 keys with
US layout."  
nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("@" ?\")
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("-" ?\')
 ("_" ??)
 ("=" ?+)
 ("+" ?*)
 ("[" ?¹)
 ("{" ?©)
 ("]" ?ð)
 ("}" ?Ð)
 (";" ?è)
 (":" ?È)
 ("'" ?æ)
 ("\"" ?Æ)
 ("\\" ?¾)
 ("|" ?®)
 ("<" ?\;)
 (">" ?:)
 ("/" ?-)
 ("?" ?_)
 ("y" ?z)
 ("Y" ?Z)
 ("z" ?y)
 ("Z" ?Y))

(quail-define-package
 "slovenian-qwerty" "Slovenian" "SI" nil
 "Slovenian QWERTY keyboard as per MS Windows NT 105 keys with US
layout."  
nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("@" ?\")
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("-" ?\')
 ("_" ??)
 ("=" ?+)
 ("+" ?*)
 ("[" ?¹)
 ("{" ?©)
 ("]" ?ð)
 ("}" ?Ð)
 (";" ?è)
 (":" ?È)
 ("'" ?æ)
 ("\"" ?Æ)
 ("\\" ?¾)
 ("|" ?®)
 ("<" ?\;)
 (">" ?:)
 ("/" ?-)
 ("?" ?_))

(quail-define-package
 "slovenian-prefix" "Slovenian" "SL>" nil
 "Slovenian input method, prefix.

\"c -> è
'c -> æ
\"s -> ¹
\"z -> ¾
/d -> ð"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("\"c" ?è)
 ("\"C" ?È)
 ("'c" ?æ)
 ("'C" ?Æ)
 ("\"s" ?¹)
 ("\"S" ?©)
 ("\"z" ?¾)
 ("\"Z" ?®)
 ("/d" ?ð)
 ("/D" ?Ð))

(quail-define-package
 "slovenian-postfix" "Slovenian" "SL<" nil
 "Slovenian input method, postfix.

c\" -> è
c' -> æ
s\" -> ¹
z\" -> ¾
d/ -> ð"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("c\"" ?è)
 ("C\"" ?È)
 ("c'" ?æ)
 ("C'" ?Æ)
 ("s\"" ?¹)
 ("S\"" ?©)
 ("z\"" ?¾)
 ("Z\"" ?®)
 ("d/" ?ð)
 ("D/" ?Ð))

(quail-define-package
 "slovenian-xy" "Slovenian" "SL" nil
 "An alternative Slovenian input method.

cx -> è
cy -> æ
sx -> ¹
zx -> ¾
dy -> ð"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("cx" ?è)
 ("CX" ?È)
 ("Cx" ?È)
 ("cy" ?æ)
 ("CY" ?Æ)
 ("Cy" ?Æ)
 ("sx" ?¹)
 ("SX" ?©)
 ("Sx" ?©)
 ("zx" ?¾)
 ("ZX" ?®)
 ("Zx" ?®)
 ("dy" ?ð)
 ("DY" ?Ð)
 ("Dy" ?Ð))

(quail-define-package
 "slovenian-cc" "Slovenian" "SL" nil
 "Another alternative Slovenian input method.

cc -> è
ch -> æ
ss -> ¹
zz -> ¾
dd -> ð"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("cc" ?è)
 ("CC" ?È)
 ("Cc" ?È)
 ("ch" ?æ)
 ("CH" ?Æ)
 ("Ch" ?Æ)
 ("ss" ?¹)
 ("SS" ?©)
 ("Ss" ?©)
 ("zz" ?¾)
 ("ZZ" ?®)
 ("Zz" ?®)
 ("dd" ?ð)
 ("DD" ?Ð)
 ("Dd" ?Ð))

(quail-define-package
 "slovenian-sch" "Slovenian" "SL" nil
 "Another alternative Slovenian input method.

ch  -> è
sch -> ¹
zh  -> ¾"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("ch" ?è)
 ("CH" ?È)
 ("Ch" ?È)
 ("sch" ?¹)
 ("SCH" ?©)
 ("SCh" ?©)
 ("Sch" ?©)
 ("zh" ?¾)
 ("ZH" ?®)
 ("Zh" ?®))


;;; slovenian.el ends here


[-- Attachment #3: leim-list.el --]
[-- Type: application/octet-stream, Size: 23315 bytes --]

[-- Attachment #4: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2005-04-27  9:06 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-03-23 22:38 slovenian support Jure Cuhalev
2005-03-24 10:48 ` Juri Linkov
2005-03-26 10:39   ` Jure Cuhalev
2005-03-27  3:53     ` Richard Stallman
  -- strict thread matches above, loose matches on Subject: below --
2005-04-27  9:06 Jure Cuhalev

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.