[Openmcl-devel] very newbie question: emacs and OpenMCL

Rick Taube taube at uiuc.edu
Sun Jan 11 20:54:39 UTC 2004


Assuming that you want to have an X/Emacs experience that is similar to
MCL's Listener/Fred experience, install the attached "listener.el" file and
follow the directions below. The "listener.el" file is built on top of
inf-lisp. It provides a dedicated Listener window (a "Frame" in Emacs-speak
that runs a repl) and a "Listener" menu for Lisp-Mode. You can install the
Listener in XEmacs or Emacs and use it with any lisp, even Guile.

1. Install "Emacs for OSX", for example the binary at:
    http://www.mindlube.com/products/emacs/
2. Put the attached file (listener.el) in some dir.
3. Add the following to your .emacs file, changing the listener-el and
   openmcl-cmd variables to reflect your file system.
4. Quit and restart X/Emacs to get the changes to .emacs in effect
   (or just eval your .emacs buffer again if you know how).
5. Set an edit buffer into Lisp-Mode by typing 'M-x: lisp-mode' or editing a
   .lisp file
6.  Select "Lisp Listener" from the "Listener" menu
    that appears in your X/Emacs menu bar (or type 'C-x: l')

and away you go.

;-------------------------------------------
(defvar listener-el "/path/to/listener.el")
(defvar openmcl-cmd "openmcl")

(load listener-el)
(setq inferior-lisp-program openmcl-cmd)
;; add Apple Commands to Emacs.
;; move Meta next to Control to free up Apple key.
(setq mac-command-key-is-meta nil)
;; standard Apple key commands
(global-set-key [(alt a)] 'mark-whole-buffer)
(global-set-key [(alt v)] 'yank)
(global-set-key [(alt c)] 'kill-ring-save)
(global-set-key [(alt x)] 'kill-region)
(global-set-key [(alt s)] 'save-buffer)
(global-set-key [(alt l)] 'goto-line)
(global-set-key [(alt o)] 'find-file)
(global-set-key [(alt f)] 'isearch-forward)
(global-set-key [(alt g)] 'isearch-repeat-forward)
(global-set-key [(alt w)] (lambda ()(interactive)
                            (kill-buffer (current-buffer))))
(global-set-key [(alt ?.)] 'keyboard-quit)
(global-set-key [(alt z)] 'undo))
;-------------------------------------------


-------------- next part --------------
A non-text attachment was scrubbed...
Name: listener.el
Type: application/octet-stream
Size: 27039 bytes
Desc: not available
URL: <http://lists.clozure.com/pipermail/openmcl-devel/attachments/20040111/2a878c14/attachment.obj>


More information about the Openmcl-devel mailing list