Update of /project/phemlock/cvsroot/phemlock/src/user In directory common-lisp.net:/tmp/cvs-serv16879/src/user Modified Files: bindings.lisp Log Message: Delayed key bindings for some keys until the corresponding commands are ported, using #+ read macros. Date: Sat Oct 16 21:28:23 2004 Author: abakic Index: phemlock/src/user/bindings.lisp diff -u phemlock/src/user/bindings.lisp:1.3 phemlock/src/user/bindings.lisp:1.4 --- phemlock/src/user/bindings.lisp:1.3 Tue Aug 10 08:34:42 2004 +++ phemlock/src/user/bindings.lisp Sat Oct 16 21:28:23 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.3 2004/08/10 06:34:42 rstrandh Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.4 2004/10/16 19:28:23 abakic Exp $") ;;; ;;; ********************************************************************** ;;; @@ -321,25 +321,30 @@  ;;;; Typescript. -;; (bind-key "Confirm Typescript Input" #k"return" :mode "Typescript") +#+port-user-ts-buf +(progn +(bind-key "Confirm Typescript Input" #k"return" :mode "Typescript") ;; (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Typescript") ;; (bind-key "Kill Interactive Input" #k"meta-i" :mode "Typescript") ;; (bind-key "Previous Interactive Input" #k"meta-p" :mode "Typescript") ;; (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Typescript") ;; (bind-key "Next Interactive Input" #k"meta-n" :mode "Typescript") ;; (bind-key "Reenter Interactive Input" #k"control-return" :mode "Typescript") -;; (bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript") -;; (bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript") -;; (bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript") -;; (bind-key "Select Slave" #k"control-meta-\c") -;; (bind-key "Select Background" #k"control-meta-C") - -;; (bind-key "Abort Operations" #k"hyper-a") -;; (bind-key "List Operations" #k"hyper-l") - -;; (bind-key "Next Compiler Error" #k"hyper-n") -;; (bind-key "Previous Compiler Error" #k"hyper-p") - +(bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript") +(bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript") +(bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript") +(bind-key "Select Slave" #k"control-meta-\c") +(bind-key "Select Background" #k"control-meta-C") +) + +#+port-user-lispeval +(progn +(bind-key "Abort Operations" #k"hyper-a") +(bind-key "List Operations" #k"hyper-l") + +(bind-key "Next Compiler Error" #k"hyper-n") +(bind-key "Previous Compiler Error" #k"hyper-p") +)  ;;;; Lisp (some). @@ -371,6 +376,8 @@ (bind-key "Delete Previous Character Expanding Tabs" #k"backspace" :mode "Lisp") (bind-key "Delete Previous Character Expanding Tabs" #k"delete" :mode "Lisp") +#+port-user-lispeval +(progn (bind-key "Evaluate Expression" #k"meta-escape") (bind-key "Evaluate Defun" #k"control-x control-e") (bind-key "Compile Defun" #k"control-x control-c") @@ -379,9 +386,11 @@ (bind-key "Describe Function Call" #k"control-meta-A") (bind-key "Describe Symbol" #k"control-meta-S") - +) (bind-key "Goto Definition" #k"control-meta-F") +#+port-user-debug +(progn (bind-key "Debug Up" #k"control-meta-hyper-u") (bind-key "Debug Down" #k"control-meta-hyper-d") (bind-key "Debug Top" #k"control-meta-hyper-t") @@ -400,7 +409,7 @@ (bind-key "Debug Source" #k"control-meta-hyper-s") (bind-key "Debug Edit Source" #k"control-meta-hyper-S") (bind-key "Debug Flush Errors" #k"control-meta-hyper-F") - +)  ;;;; More Miscellaneous bindings. @@ -474,21 +483,23 @@  ;;;; Spell bindings. -;; (bind-key "Check Word Spelling" #k"meta-$") -;; (bind-key "Add Word to Spelling Dictionary" #k"control-x $") - -;; (dolist (info (command-bindings (getstring "Self Insert" *command-names*))) -;; (let* ((key (car info)) -;; (key-event (svref key 0)) -;; (character (key-event-char key-event))) -;; (unless (or (alpha-char-p character) (eq key-event #k"'")) -;; (bind-key "Auto Check Word Spelling" key :mode "Spell")))) -;; (bind-key "Auto Check Word Spelling" #k"return" :mode "Spell") -;; (bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell") -;; (bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell") -;; (bind-key "Correct Last Misspelled Word" #k"meta-:") -;; (bind-key "Undo Last Spelling Correction" #k"control-x a") - +#+port-user-spellcoms +(progn +(bind-key "Check Word Spelling" #k"meta-$") +(bind-key "Add Word to Spelling Dictionary" #k"control-x $") + +(dolist (info (command-bindings (getstring "Self Insert" *command-names*))) + (let* ((key (car info)) + (key-event (svref key 0)) + (character (key-event-char key-event))) + (unless (or (alpha-char-p character) (eq key-event #k"'")) + (bind-key "Auto Check Word Spelling" key :mode "Spell")))) +(bind-key "Auto Check Word Spelling" #k"return" :mode "Spell") +(bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell") +(bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell") +(bind-key "Correct Last Misspelled Word" #k"meta-:") +(bind-key "Undo Last Spelling Correction" #k"control-x a") +)  ;;;; Overwrite Mode. @@ -540,7 +551,8 @@ (dolist (key (list #k"]" #k")" #k"}" #k"\>")) (bind-key "Scribe Insert Bracket" key :mode "Scribe")) -;;GB (bind-key "Scribe Buffer File" #k"control-x c" :mode "Scribe") +#+port-user-unixcoms +(bind-key "Scribe Buffer File" #k"control-x c" :mode "Scribe") (bind-key "Select Scribe Warnings" #k"control-meta-C" :mode "Scribe") (bind-key "Insert Scribe Directive" #k"hyper-i" :mode "Scribe") @@ -557,6 +569,8 @@ ;;; Clear everything user might hit to avoid getting the internal error ;;; message about modifying read-only buffers. ;;; +#+port-user-mh +(progn (hemlock-ext:do-alpha-key-events (key-event :both) (bind-key "Illegal" key-event :mode "Headers") (bind-key "Illegal" key-event :mode "Message")) @@ -640,7 +654,7 @@ (bind-key "Delete Draft and Buffer" #k"hyper-q" :mode "Draft") (bind-key "List Mail Buffers" #k"hyper-l" :mode "Draft") (bind-key "Draft Help" #k"hyper-?" :mode "Draft") - +)  ;;;; Netnews. @@ -648,6 +662,8 @@ ;;; Clear everything user might hit to avoid getting the internal error ;;; message about modifying read-only buffers. ;;; +#+port-user-netnews +(progn (hemlock-ext:do-alpha-key-events (key-event :both) (bind-key "Illegal" key-event :mode "News-Headers") (bind-key "Illegal" key-event :mode "News-Message")) @@ -700,11 +716,14 @@ (bind-key "Netnews Previous Line" #k"Uparrow" :mode "News-Headers") (bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "News-Headers") (bind-key "Netnews Show Article" #k"space" :mode "News-Headers") - +) ;;; News-Message. ;;; +#+port-user-mh (bind-key "Insert Message Region" #k"Hyper-y" :mode "News-Message") +#+port-user-netnews +(progn (bind-key "Netnews Message File Message" #k"o" :mode "News-Message") (bind-key "Netnews Message Keep Buffer" #k"k" :mode "News-Message") (bind-key "Netnews Message Quit" #k"q" :mode "News-Message") @@ -721,20 +740,26 @@ (bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "Post") (bind-key "Netnews Deliver Post" #k"hyper-s" :mode "Post") (bind-key "Netnews Abort Post" #k"hyper-q" :mode "Post") +) +#+port-user-mh (bind-key "Insert Message Buffer" #k"Hyper-y" :mode "Post") ;;; News-Browse. +#+port-user-netnews +(progn (bind-key "Netnews Quit Browse" #k"q" :mode "News-Browse") (bind-key "Netnews Browse Add Group To File" #k"a" :mode "News-Browse") (bind-key "Netnews Browse Read Group" #k"space" :mode "News-Browse") (bind-key "Next Line" #k"n" :mode "News-Browse") (bind-key "Previous Line" #k"p" :mode "News-Browse") - +)  ;;;; Process (Shell). +#+port-user-shell +(progn (bind-key "Shell" #k"control-meta-s") (bind-key "Confirm Process Input" #k"return" :mode "Process") (bind-key "Shell Complete Filename" #k"M-escape" :mode "Process") @@ -749,7 +774,7 @@ (bind-key "Kill Interactive Input" #k"meta-i" :mode "Process") (bind-key "Next Interactive Input" #k"meta-n" :mode "Process") (bind-key "Reenter Interactive Input" #k"control-return" :mode "Process") - +)  ;;;; Bufed. @@ -772,6 +797,8 @@  ;;;; Dired. +#+port-user-diredcoms +(progn (bind-key "Dired" #k"control-x control-meta-d") (bind-key "Dired Delete File and Down Line" #k"d" :mode "Dired") @@ -811,17 +838,19 @@ (bind-key "View Help" #k"?" :mode "View") (bind-key "Beginning of Buffer" #k"\<" :mode "View") (bind-key "End of Buffer" #k"\>" :mode "View") - +)  ;;;; Lisp Library. +#+port-user-lisp-lib +(progn (bind-key "Describe Pointer Library Entry" #k"leftdown" :mode "Lisp-Lib") (bind-key "Load Pointer Library Entry" #k"rightdown" :mode "Lisp-Lib") (bind-key "Describe Library Entry" #k"space" :mode "Lisp-Lib") (bind-key "Load Library Entry" #k"l" :mode "Lisp-Lib") (bind-key "Exit Lisp Library" #k"q" :mode "Lisp-Lib") (bind-key "Lisp Library Help" #k"?" :mode "Lisp-Lib") - +)  ;;;; Completion mode.