Update of /project/mcclim/cvsroot/mcclim/Goatee In directory common-lisp.net:/tmp/cvs-serv20554/Goatee Modified Files: goatee-command.lisp Log Message: patch queue clearing: add arrow key support (and gestures) to goatee. Date: Mon Dec 5 23:40:02 2005 Author: afuchs Index: mcclim/Goatee/goatee-command.lisp diff -u mcclim/Goatee/goatee-command.lisp:1.19 mcclim/Goatee/goatee-command.lisp:1.20 --- mcclim/Goatee/goatee-command.lisp:1.19 Sun Aug 1 07:39:41 2004 +++ mcclim/Goatee/goatee-command.lisp Mon Dec 5 23:40:01 2005 @@ -67,7 +67,9 @@ modifier-state (keyboard-event-character gesture)) (cdr (assoc modifier-state - (gethash (keyboard-event-character gesture) table nil))))) + (gethash (or (keyboard-event-character gesture) + (keyboard-event-key-name gesture)) + table nil))))) (defmethod lookup-gesture-command (gesture table) (declare (ignore gesture table)) @@ -265,18 +267,30 @@ (add-gesture-command-to-table '(#\f :control) 'forward-character *simple-area-gesture-table*) +(add-gesture-command-to-table '(:right) + 'forward-character + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\b :control) 'backward-character *simple-area-gesture-table*) +(add-gesture-command-to-table '(:left) + 'backward-character + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\f :meta) 'forward-word *simple-area-gesture-table*) +(add-gesture-command-to-table '(:right :meta) + 'forward-word + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\b :meta) 'backward-word *simple-area-gesture-table*) +(add-gesture-command-to-table '(:left :meta) + 'backward-word + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\backspace :meta) 'backwards-delete-word @@ -285,14 +299,23 @@ (add-gesture-command-to-table '(#\delete :meta) 'delete-word *simple-area-gesture-table*) +(add-gesture-command-to-table '(#\d :meta) + 'delete-word + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\a :control) 'beginning-line *simple-area-gesture-table*) +(add-gesture-command-to-table '(:home) + 'beginning-line + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\e :control) 'end-line *simple-area-gesture-table*) +(add-gesture-command-to-table '(:end) + 'end-line + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\k :control) 'kill-line @@ -305,8 +328,14 @@ (add-gesture-command-to-table '(#\p :control) 'up-line *simple-area-gesture-table*) +(add-gesture-command-to-table '(:up) + 'up-line + *simple-area-gesture-table*) (add-gesture-command-to-table '(#\n :control) + 'down-line + *simple-area-gesture-table*) +(add-gesture-command-to-table '(:down) 'down-line *simple-area-gesture-table*)