From: Rustom Mody <rustompmody@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel <emacs-devel@gnu.org>
Subject: Re: APL mode
Date: Sat, 26 Oct 2013 00:39:24 +0530 [thread overview]
Message-ID: <CAJ+TeofyBYq+1TUjVsNT8E52WWaSgQ6teT_RkeAJrvZaY4djGw@mail.gmail.com> (raw)
In-Reply-To: <jwvr4be7paq.fsf-monnier+emacs@gnu.org>
[-- Attachment #1: Type: text/plain, Size: 559 bytes --]
On the help emacs list Stefan made some elisp suggestions for the apl mode.
Since its about nitty-gritties of elisp I think this may be the more
suitable list.
So heres some code to input apl. (attached)
Currently there is no major-mode stuff.
Just in any mode if you run this (and you have a scroll-lock key
working) then scroll-lock behaves like a toggle for an apl keyboard.
[If scroll-lock is not there as on laptops, you will need to pick some
other key and change that line]
If there is something fundamentally wrong with this line please let me know
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: ap3.el --]
[-- Type: text/x-emacs-lisp; name="ap3.el", Size: 2238 bytes --]
(defvar apl-keyboard '(
;; number row
"`◊ 1¨ 2¯ 3< 4≤ 5= 6≥ 7> 8≠ 9∨ 0∧ -× =÷ \⍝ |⍀"
;; number row SHIFTed
"~⍨ !¡ @€ #£ $⍧ % ^ & *⍂ (⍱ )⍲ _≡ +⌹"
;; qwert row
"q? w⍵ e∈ t∼ y↑ r⍴ u↓ i⍳ o○ p⋆"
;; qwert row shifted
"Q¿ W⌽ E⋸ T⍉ Y¥ I⍸ O⍥ P⍟ [← ]→"
;; asdf row
"a⍺ s⌈ d⌊ f_ g∇ h∆ j∘ k' l⎕ ;⊢ '⊣"
;; asdf row shifted
"A⊖ S D F⍫ G⍒ H⍋ J⍤ K⌻ L⍞"
;; zxcv row
"z⊂ x⊃ c∩ v∪ b⊥ n⊤ m∣ ,⌷ .⍎ /⍕"
;; zxcv row shifted
"Z X C⍝ V B⍎ N⍕ M⌶ <⍪ >⍙ ?⌿"
)
"APL keyboard is a list of keyboard rows
For structure see \\[kb-block-defrules]
"
)
(defun kb-block-defrules (kb)
"kb is a list of keyboard rows
Each row is a space delimited string
The elements of the rows apart from spaces are a pair of characters
the first is a keyboard and the second is a translation (which could be absent)
See apl-keyboard above for example.
This function converts that list of strings
into a lisp list of (key .translation) pairs
"
(let ((kbl nil))
(dolist (row kb (reverse kbl))
(let ((key-trans-list (split-string row "[ \t]+" t))
(key) (trans))
(dolist (key-trans key-trans-list)
(when (= (length key-trans) 2)
(setq key (aref key-trans 0)
trans (aref key-trans 1)
kbl (cons (cons key trans) kbl)
)))))))
(defvar apl-input-mode nil)
;; obviously this will not be global when the rest of apl mode
;; are in shape. Just a hack for now
(global-set-key (kbd "<Scroll_Lock>") 'toggle-apl-input-mode)
(defvar mode-name-aplized "απλ")
(defvar mode-name-ascii "APL")
(defvar apl-translation-table (make-translation-table
(kb-block-defrules apl-keyboard)))
(defun toggle-apl-input-mode ()
(interactive)
(setq apl-input-mode (not apl-input-mode))
(if apl-input-mode
(setq keyboard-translate-table apl-translation-table
mode-name mode-name-aplized)
(setq keyboard-translate-table nil
mode-name mode-name-ascii))
(force-mode-line-update))
next prev parent reply other threads:[~2013-10-25 19:09 UTC|newest]
Thread overview: 46+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-10-12 4:48 APL mode Rustom Mody
2013-10-12 7:25 ` Thien-Thi Nguyen
2013-10-12 14:26 ` Stefan Monnier
2013-10-12 16:09 ` Rustom Mody
2013-10-12 19:08 ` Stefan Monnier
2013-10-13 6:45 ` Stephen J. Turnbull
2013-10-13 6:59 ` Rustom Mody
2013-10-13 11:10 ` Stephen J. Turnbull
2013-10-13 14:04 ` Rustom Mody
2013-10-13 15:35 ` Stephen J. Turnbull
2013-10-13 16:11 ` Ivan Andrus
2013-10-13 12:42 ` Rüdiger Sonderfeld
2013-10-13 14:47 ` Rustom Mody
2013-10-13 15:24 ` Rüdiger Sonderfeld
2013-10-14 5:00 ` Rustom Mody
2013-10-14 6:45 ` Rustom Mody
2013-10-14 13:34 ` Stefan Monnier
2013-10-14 8:21 ` Xue Fuqiao
2013-10-14 11:08 ` Rustom Mody
2013-10-17 18:54 ` David De La Harpe Golden
2013-10-17 19:26 ` Stefan Monnier
2013-10-20 13:57 ` Rustom Mody
2013-10-21 10:46 ` Xue Fuqiao
2013-10-21 13:03 ` Stefan Monnier
2013-10-25 19:09 ` Rustom Mody [this message]
2013-10-26 1:40 ` Stefan Monnier
2013-10-26 4:38 ` Rustom Mody
2013-10-26 10:35 ` Juergen Sauermann
2013-10-26 11:42 ` Rustom Mody
2013-10-26 15:40 ` David De La Harpe Golden
2013-10-26 16:48 ` Rustom Mody
2013-10-26 17:41 ` Rustom Mody
2013-10-26 17:48 ` David De La Harpe Golden
2013-10-27 5:08 ` Stefan Monnier
2013-10-27 22:41 ` Xue Fuqiao
2013-10-28 4:09 ` Stephen J. Turnbull
2013-10-28 12:21 ` Rustom Mody
2013-10-28 12:40 ` Juergen Sauermann
[not found] ` <CAJ+Teofv_2bHhdAvxsVRY8EYLQO6ERZ_zbAWh0FLQnUMndcfSg@mail.gmail.com>
[not found] ` <526E669E.60501@t-online.de>
[not found] ` <CAJ+TeofjYsy4eLDr=aM3Vo36=76zipbn7HmXcm59YNwkgLoaSg@mail.gmail.com>
[not found] ` <526E7EC3.3050305@t-online.de>
[not found] ` <526E967F.3010903@harpegolden.net>
[not found] ` <526E9DCE.8080504@t-online.de>
2013-10-28 17:42 ` Rustom Mody
2013-10-28 19:45 ` David De La Harpe Golden
2013-10-18 7:06 ` Rustom Mody
2013-10-14 10:40 ` Rüdiger Sonderfeld
2013-10-14 17:03 ` David De La Harpe Golden
2013-10-14 19:48 ` Stefan Monnier
2013-10-15 3:15 ` Rustom Mody
-- strict thread matches above, loose matches on Subject: below --
2013-10-12 5:01 Rustom Mody
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAJ+TeofyBYq+1TUjVsNT8E52WWaSgQ6teT_RkeAJrvZaY4djGw@mail.gmail.com \
--to=rustompmody@gmail.com \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
/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 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.