From: Jure Cuhalev <gandalf@owca.info>
Subject: slovenian support
Date: Wed, 27 Apr 2005 11:06:13 +0200 [thread overview]
Message-ID: <426F5605.50506@owca.info> (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
next reply other threads:[~2005-04-27 9:06 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-04-27 9:06 Jure Cuhalev [this message]
-- strict thread matches above, loose matches on Subject: below --
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
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=426F5605.50506@owca.info \
--to=gandalf@owca.info \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).