home *** CD-ROM | disk | FTP | other *** search
Text File | 1990-07-06 | 3.0 KB | 78 lines | [TEXT/CCL ] |
-
- ;=====================================================================
- ;
- ; GPC Editor
- ;
- ; Name: my-extensions.lisp
- ;
- ; Lisp extensions used in the Goal Plan Code editor.
- ;
- ;---------------------------------------------------------------------
- ; Date Name Comments
- ;---------------------------------------------------------------------
- ; 10/12/88 lhh Initial Documentation
- ; 10/13/88 lhh "Lispizing" of Documentation
- ;=====================================================================
-
- ;;; Load in the initial set of files and set *modules*
- (provide 'my-extensions)
- (require 'fred-extensions) ;a few cheap hacks like C-x o = other win
- (require 'keymacros) ;mvmt+sel keys, winmnager,comment boxes, history
-
- ;overview Binds things defined in KEYMACROS. BInds Funckeys.
-
- ;;;line-by-line history. BUG: It skips command lines exactly one line above
- ;;;the current command line when moving up, but one can move back down to them.
- (comtab-set-key *listener-comtab* '(:meta #\uparrow)
- #'(lambda () (to-nearest-cmnd-line :up))
- "Moves up one command line.")
- (comtab-set-key *listener-comtab* '(:meta #\downarrow)
- #'(lambda () (to-nearest-cmnd-line :down))
- "Moves down one command line.")
-
-
- ;;;rotate the list of windows through the front position.
- (def-fred-command (:control #\uparrow) up-a-window)
- (def-fred-command (:control #\downarrow) down-a-window)
-
- ;;;do function keys as parts of control-p-comtab
- (comtab-set-key *comtab* (code-char 16)
- #'(lambda ()
- (funkey-despatch (ldb (byte 8 8)
- (rref *current-event* event.message)))))
-
-
-
- ;;;switch the enter and control-x-control-c keys, and return and control-return keys
- (def-fred-command #\return ccl::ed-newline-and-indent)
- (def-fred-command (:control #\return) ccl::ed-self-insert)
-
- ;;;comment posters for 5 levels
- ;
- ;?????
- ; why 5 levels? why not 6? or 1?
- ;?????
- (comtab-set-key *control-x-comtab* #\1 #'(lambda () (comment-graphics 1)))
- (comtab-set-key *control-x-comtab* #\2 #'(lambda () (comment-graphics 2)))
- (comtab-set-key *control-x-comtab* #\3 #'(lambda () (comment-graphics 3)))
- (comtab-set-key *control-x-comtab* #\4 #'(lambda () (comment-graphics 4)))
- (comtab-set-key *control-x-comtab* #\5 #'(lambda () (comment-graphics 5)))
-
-
- (when (find :window-stacker *features*)
- (comtab-set-key *control-p-comtab* #\5
- #'(lambda () (push-window))
- "F5 - push-window")
- (comtab-set-key *control-p-comtab* #\6
- #'(lambda () (pull-window))
- "F6 - pull-window")
- (comtab-set-key *control-p-comtab* #\7
- #'(lambda () (flip-window-stack))
- "F7 - flip-window-stack")
- (comtab-set-key *control-p-comtab* #\8
- #'(lambda () (clean-up-window-stack))
- "F8 - clean-up-window-stack"))
-
- ;;; add the features defined in this file to the global set of features provided
- ;;; by this implementation
- (pushnew :my-extensions *features*)