* Re: Half-QWERTY keyboard minor mode [not found] <mailman.20155.1222699482.18990.help-gnu-emacs@gnu.org> @ 2008-09-29 16:30 ` weber 2008-09-29 17:02 ` Corey Foote 2008-10-04 21:47 ` Xah 1 sibling, 1 reply; 8+ messages in thread From: weber @ 2008-09-29 16:30 UTC (permalink / raw) To: help-gnu-emacs On 29 set, 11:44, Corey Foote <coreyfo...@hotmail.com> wrote: > Hi everybody, > > I injured my left hand the other day, so I'm typing one > handed until it recovers. I was wondering if it would be possible to create an Emacs > minor mode which would allow half-QWERTY typing on a regular keyboard. (The way half-QWERTY typing works is you hit SPACE-y for t, SPACE-u for r, etc. For details on the half-QWERTY keyboard see:http://www.billbuxton.com/matiasHCI96.html#c2)I'mnot much of a LISP programmer, so any help I could get on this > would be most appreciated. Once the minor mode is complete, I will put the > source code on the Emacs wiki accessibility section. Thanks! > > _________________________________________________________________ > See how Windows Mobile brings your life together—at home, work, or on the go.http://clk.atdmt.com/MRT/go/msnnkwxp1020093182mrt/direct/01/ Something like this seems to work: (define-minor-mode right-hand-qwerty "Qwerty for right-hand only typing." (let ((keypairs '(("q" "p") ("w" "o")))) (dolist (key keypairs) (eval `(local-set-key (kbd ,(concat "SPC " (second key))) (lambda () (interactive) (insert ,(first key)))))) (local-set-key (kbd "SPC SPC") (lambda () (interactive) (insert " "))))) This helps you? -Hugo ^ permalink raw reply [flat|nested] 8+ messages in thread
* RE: Half-QWERTY keyboard minor mode 2008-09-29 16:30 ` Half-QWERTY keyboard minor mode weber @ 2008-09-29 17:02 ` Corey Foote [not found] ` <2f1c7d020809291153r2c7f1018o80bb8d8e30b7c085@mail.gmail.com> 0 siblings, 1 reply; 8+ messages in thread From: Corey Foote @ 2008-09-29 17:02 UTC (permalink / raw) To: weber, help-gnu-emacs [-- Attachment #1: Type: text/plain, Size: 3760 bytes --] Hi, when I evaluate that I get: Debugger entered--Lisp error: (void-function second) (second key) (concat "SPC " (second key)) (list (quote kbd) (concat "SPC " (second key))) (list (quote local-set-key) (list (quote kbd) (concat "SPC " ...)) (list (quote lambda) nil (quote ...) (list ... ...))) (\` (local-set-key (kbd ...) (lambda nil ... ...))) (eval (\` (local-set-key ... ...))) (while --dolist-tail-- (setq key (car --dolist-tail--)) (eval (\` ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- keypairs) key) (while --dolist-tail-- (setq key ...) (eval ...) (setq --dolist-tail-- ...))) (dolist (key keypairs) (eval (\` ...))) (let ((keypairs ...)) (dolist (key keypairs) (eval ...)) (local-set-key (kbd "SPC SPC") (lambda nil ... ...))) (defvar right-hand-qwerty (let (...) (dolist ... ...) (local-set-key ... ...)) "Non-nil if Right-Hand-Qwerty mode is enabled.\nUse the command `right-hand-qwerty' to change this variable.") (progn (defvar right-hand-qwerty (let ... ... ...) "Non-nil if Right-Hand-Qwerty mode is enabled.\nUse the command `right-hand-qwerty' to change this variable.") (make-variable-buffer-local (quote right-hand-qwerty))) (progn (progn (defvar right-hand-qwerty ... "Non-nil if Right-Hand-Qwerty mode is enabled.\nUse the command `right-hand-qwerty' to change this variable.") (make-variable-buffer-local ...)) (defun right-hand-qwerty (&optional arg) "Qwerty for right-hand only typing." (interactive ...) (setq right-hand-qwerty ...) (run-hooks ... ...) (if ... ...) (force-mode-line-update) right-hand-qwerty) :autoload-end nil (add-minor-mode (quote right-hand-qwerty) (quote nil) (if ... ...))) (define-minor-mode right-hand-qwerty "Qwerty for right-hand only typing." (let (...) (dolist ... ...) (local-set-key ... ...))) eval((define-minor-mode right-hand-qwerty "Qwerty for right-hand only typing." (let (...) (dolist ... ...) (local-set-key ... ...)))) eval-last-sexp-1(nil) eval-last-sexp(nil) call-interactively(eval-last-sexp) > From: hugows@gmail.com > Date: Mon, 29 Sep 2008 09:30:55 -0700 > To: help-gnu-emacs@gnu.org > Subject: Re: Half-QWERTY keyboard minor mode > > On 29 set, 11:44, Corey Foote <coreyfo...@hotmail.com> wrote: > > Hi everybody, > > > > I injured my left hand the other day, so I'm typing one > > handed until it recovers. I was wondering if it would be possible to create an Emacs > > minor mode which would allow half-QWERTY typing on a regular keyboard. (The way half-QWERTY typing works is you hit SPACE-y for t, SPACE-u for r, etc. For details on the half-QWERTY keyboard see:http://www.billbuxton.com/matiasHCI96.html#c2)I'mnot much of a LISP programmer, so any help I could get on this > > would be most appreciated. Once the minor mode is complete, I will put the > > source code on the Emacs wiki accessibility section. Thanks! > > > > _________________________________________________________________ > > See how Windows Mobile brings your life together—at home, work, or on the go.http://clk.atdmt.com/MRT/go/msnnkwxp1020093182mrt/direct/01/ > > Something like this seems to work: > > (define-minor-mode right-hand-qwerty > "Qwerty for right-hand only typing." > (let ((keypairs '(("q" "p") ("w" "o")))) > (dolist (key keypairs) > (eval `(local-set-key (kbd ,(concat "SPC " (second key))) (lambda > () (interactive) (insert ,(first key)))))) > (local-set-key (kbd "SPC SPC") (lambda () (interactive) (insert " > "))))) > > This helps you? > -Hugo _________________________________________________________________ Stay up to date on your PC, the Web, and your mobile phone with Windows Live. http://clk.atdmt.com/MRT/go/msnnkwxp1020093185mrt/direct/01/ [-- Attachment #2: Type: text/html, Size: 4252 bytes --] ^ permalink raw reply [flat|nested] 8+ messages in thread
[parent not found: <2f1c7d020809291153r2c7f1018o80bb8d8e30b7c085@mail.gmail.com>]
* RE: Half-QWERTY keyboard minor mode [not found] ` <2f1c7d020809291153r2c7f1018o80bb8d8e30b7c085@mail.gmail.com> @ 2008-09-29 19:17 ` Corey Foote 2008-10-03 2:24 ` Kevin Rodgers 0 siblings, 1 reply; 8+ messages in thread From: Corey Foote @ 2008-09-29 19:17 UTC (permalink / raw) To: Hugo Schmitt, help-gnu-emacs [-- Attachment #1: Type: text/plain, Size: 4616 bytes --] Thanks! It works now. The only problem is I can't seem to type a space while in right-hand-qwerty mode. > Date: Mon, 29 Sep 2008 15:53:39 -0300 > From: hugows@gmail.com > To: coreyfoote@hotmail.com > Subject: Re: Half-QWERTY keyboard minor mode > > Oh, Please eval (require 'cl) before, then :) > > Cheers > > On Mon, Sep 29, 2008 at 2:02 PM, Corey Foote <coreyfoote@hotmail.com> wrote: > > Hi, when I evaluate that I get: > > > > Debugger entered--Lisp error: (void-function second) > > (second key) > > (concat "SPC " (second key)) > > (list (quote kbd) (concat "SPC " (second key))) > > (list (quote local-set-key) (list (quote kbd) (concat "SPC " ...)) (list > > (quote lambda) nil (quote ...) (list ... ...))) > > (\` (local-set-key (kbd ...) (lambda nil ... ...))) > > (eval (\` (local-set-key ... ...))) > > (while --dolist-tail-- (setq key (car --dolist-tail--)) (eval (\` ...)) > > (setq --dolist-tail-- (cdr --dolist-tail--))) > > (let ((--dolist-tail-- keypairs) key) (while --dolist-tail-- (setq key > > ...) (eval ...) (setq --dolist-tail-- ...))) > > (dolist (key keypairs) (eval (\` ...))) > > (let ((keypairs ...)) (dolist (key keypairs) (eval ...)) (local-set-key > > (kbd "SPC SPC") (lambda nil ... ...))) > > (defvar right-hand-qwerty (let (...) (dolist ... ...) (local-set-key ... > > ...)) "Non-nil if Right-Hand-Qwerty mode is enabled.\nUse the command > > `right-hand-qwerty' to change this variable.") > > (progn (defvar right-hand-qwerty (let ... ... ...) "Non-nil if > > Right-Hand-Qwerty mode is enabled.\nUse the command `right-hand-qwerty' to > > change this variable.") (make-variable-buffer-local (quote > > right-hand-qwerty))) > > (progn (progn (defvar right-hand-qwerty ... "Non-nil if Right-Hand-Qwerty > > mode is enabled.\nUse the command `right-hand-qwerty' to change this > > variable.") (make-variable-buffer-local ...)) (defun right-hand-qwerty > > (&optional arg) "Qwerty for right-hand only typing." (interactive ...) (setq > > right-hand-qwerty ...) (run-hooks ... ...) (if ... ...) > > (force-mode-line-update) right-hand-qwerty) :autoload-end nil > > (add-minor-mode (quote right-hand-qwerty) (quote nil) (if ... ...))) > > (define-minor-mode right-hand-qwerty "Qwerty for right-hand only typing." > > (let (...) (dolist ... ...) (local-set-key ... ...))) > > eval((define-minor-mode right-hand-qwerty "Qwerty for right-hand only > > typing." (let (...) (dolist ... ...) (local-set-key ... ...)))) > > eval-last-sexp-1(nil) > > eval-last-sexp(nil) > > call-interactively(eval-last-sexp) > > > >> From: hugows@gmail.com > >> Date: Mon, 29 Sep 2008 09:30:55 -0700 > >> To: help-gnu-emacs@gnu.org > >> Subject: Re: Half-QWERTY keyboard minor mode > >> > >> On 29 set, 11:44, Corey Foote <coreyfo...@hotmail.com> wrote: > >> > Hi everybody, > >> > > >> > I injured my left hand the other day, so I'm typing one > >> > handed until it recovers. I was wondering if it would be possible to > >> > create an Emacs > >> > minor mode which would allow half-QWERTY typing on a regular keyboard. > >> > (The way half-QWERTY typing works is you hit SPACE-y for t, SPACE-u for r, > >> > etc. For details on the half-QWERTY keyboard > >> > see:http://www.billbuxton.com/matiasHCI96.html#c2)I'mnot much of a LISP > >> > programmer, so any help I could get on this > >> > would be most appreciated. Once the minor mode is complete, I will put > >> > the > >> > source code on the Emacs wiki accessibility section. Thanks! > >> > > >> > _________________________________________________________________ > >> > See how Windows Mobile brings your life together—at home, work, or on > >> > the go.http://clk.atdmt.com/MRT/go/msnnkwxp1020093182mrt/direct/01/ > >> > >> Something like this seems to work: > >> > >> (define-minor-mode right-hand-qwerty > >> "Qwerty for right-hand only typing." > >> (let ((keypairs '(("q" "p") ("w" "o")))) > >> (dolist (key keypairs) > >> (eval `(local-set-key (kbd ,(concat "SPC " (second key))) (lambda > >> () (interactive) (insert ,(first key)))))) > >> (local-set-key (kbd "SPC SPC") (lambda () (interactive) (insert " > >> "))))) > >> > >> This helps you? > >> -Hugo > > > > ________________________________ > > Stay up to date on your PC, the Web, and your mobile phone with Windows > > Live. See Now _________________________________________________________________ See how Windows connects the people, information, and fun that are part of your life. http://clk.atdmt.com/MRT/go/msnnkwxp1020093175mrt/direct/01/ [-- Attachment #2: Type: text/html, Size: 5656 bytes --] ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Half-QWERTY keyboard minor mode 2008-09-29 19:17 ` Corey Foote @ 2008-10-03 2:24 ` Kevin Rodgers 0 siblings, 0 replies; 8+ messages in thread From: Kevin Rodgers @ 2008-10-03 2:24 UTC (permalink / raw) To: help-gnu-emacs Corey Foote wrote: > Thanks! It works now. The only problem is I can't seem to type a space > while in right-hand-qwerty mode. This part of Hugo's solution allows you to insert a space by typing it twice (SPC SPC): > > >> (local-set-key (kbd "SPC SPC") (lambda () (interactive) (insert " > > >> "))))) -- Kevin Rodgers Denver, Colorado, USA ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Half-QWERTY keyboard minor mode [not found] <mailman.20155.1222699482.18990.help-gnu-emacs@gnu.org> 2008-09-29 16:30 ` Half-QWERTY keyboard minor mode weber @ 2008-10-04 21:47 ` Xah 1 sibling, 0 replies; 8+ messages in thread From: Xah @ 2008-10-04 21:47 UTC (permalink / raw) To: help-gnu-emacs Corey Foote wrote: «For details on the half-QWERTY keyboard see:http://www.billbuxton.com/ matiasHCI96.html#c2» half-QWERTY seems ill conceived. If you check the author, it's his university thesis and the design Patented in US and Europe by his own company. It compares something he cooked up “half-dvorak” and chalk it up to use in single handed typing devices in wearable computer. For comparison, on standard keyboard, if you only have one hand, there's already Single handed Dvorak, one version for left and and one version for right hand. See http://en.wikipedia.org/wiki/Dvorak_Simplified_Keyboard So, if you are handicapp'd and can only use one hand to type on standard PC keyboard, single handed Dvorak would probably be much more efficient. (the article don't mention it) Now, if one is thinking of keyboard input devices that must be designed for single hand use, as stated in the article, such as some future vision of wearable computer on the forearm, then there's no good reason to limit the physical design of such input device to something like cutting up existing to half of standard PC keyboard. There are, for example, numberous design of chorded input devices for single hand that are actually in use. As for ease of transition of learning, as cited in the article as a major reason... there are lots problems. For example, first of all, majority of people who use a PC keyboard do not touch type. So, he's presumed ease of transition is useless. Even, suppose we limit the subjects to people who already touch type qwerty, then, learning the half-QWERTY is not necessarily faster than learning a single hand dvorak. (the simply doesn't mention single hand dvorak) ... Xah ∑ http://xahlee.org/ ☄ ^ permalink raw reply [flat|nested] 8+ messages in thread
* Half-QWERTY keyboard minor mode @ 2008-09-29 14:44 Corey Foote 2008-09-29 17:35 ` Corey Foote 0 siblings, 1 reply; 8+ messages in thread From: Corey Foote @ 2008-09-29 14:44 UTC (permalink / raw) To: help-gnu-emacs [-- Attachment #1: Type: text/plain, Size: 832 bytes --] Hi everybody, I injured my left hand the other day, so I'm typing one handed until it recovers. I was wondering if it would be possible to create an Emacs minor mode which would allow half-QWERTY typing on a regular keyboard. (The way half-QWERTY typing works is you hit SPACE-y for t, SPACE-u for r, etc. For details on the half-QWERTY keyboard see: http://www.billbuxton.com/matiasHCI96.html#c2)I'm not much of a LISP programmer, so any help I could get on this would be most appreciated. Once the minor mode is complete, I will put the source code on the Emacs wiki accessibility section. Thanks! _________________________________________________________________ See how Windows Mobile brings your life together—at home, work, or on the go. http://clk.atdmt.com/MRT/go/msnnkwxp1020093182mrt/direct/01/ [-- Attachment #2: Type: text/html, Size: 1025 bytes --] ^ permalink raw reply [flat|nested] 8+ messages in thread
* RE: Half-QWERTY keyboard minor mode 2008-09-29 14:44 Corey Foote @ 2008-09-29 17:35 ` Corey Foote 2008-09-29 20:22 ` Paul R 0 siblings, 1 reply; 8+ messages in thread From: Corey Foote @ 2008-09-29 17:35 UTC (permalink / raw) To: help-gnu-emacs [-- Attachment #1: Type: text/plain, Size: 1149 bytes --] I found a demo of what I'm trying to do: http://half-qwerty.com/demo/ From: coreyfoote@hotmail.com To: help-gnu-emacs@gnu.org Date: Mon, 29 Sep 2008 10:44:33 -0400 Subject: Half-QWERTY keyboard minor mode Hi everybody, I injured my left hand the other day, so I'm typing one handed until it recovers. I was wondering if it would be possible to create an Emacs minor mode which would allow half-QWERTY typing on a regular keyboard. (The way half-QWERTY typing works is you hit SPACE-y for t, SPACE-u for r, etc. For details on the half-QWERTY keyboard see: http://www.billbuxton.com/matiasHCI96.html#c2)I'm not much of a LISP programmer, so any help I could get on this would be most appreciated. Once the minor mode is complete, I will put the source code on the Emacs wiki accessibility section. Thanks! See how Windows Mobile brings your life together—at home, work, or on the go. See Now _________________________________________________________________ See how Windows Mobile brings your life together—at home, work, or on the go. http://clk.atdmt.com/MRT/go/msnnkwxp1020093182mrt/direct/01/ [-- Attachment #2: Type: text/html, Size: 1718 bytes --] ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Half-QWERTY keyboard minor mode 2008-09-29 17:35 ` Corey Foote @ 2008-09-29 20:22 ` Paul R 0 siblings, 0 replies; 8+ messages in thread From: Paul R @ 2008-09-29 20:22 UTC (permalink / raw) To: Corey Foote; +Cc: help-gnu-emacs On Mon, 29 Sep 2008 13:35:12 -0400, Corey Foote <coreyfoote@hotmail.com> said: Corey> I found a demo of what I'm trying to do: Corey> http://half-qwerty.com/demo/ Impressively efficient -- Paul ^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2008-10-04 21:47 UTC | newest] Thread overview: 8+ messages (download: mbox.gz follow: Atom feed -- links below jump to the message on this page -- [not found] <mailman.20155.1222699482.18990.help-gnu-emacs@gnu.org> 2008-09-29 16:30 ` Half-QWERTY keyboard minor mode weber 2008-09-29 17:02 ` Corey Foote [not found] ` <2f1c7d020809291153r2c7f1018o80bb8d8e30b7c085@mail.gmail.com> 2008-09-29 19:17 ` Corey Foote 2008-10-03 2:24 ` Kevin Rodgers 2008-10-04 21:47 ` Xah 2008-09-29 14:44 Corey Foote 2008-09-29 17:35 ` Corey Foote 2008-09-29 20:22 ` Paul R
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.