[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: guile.el?
From: |
thi |
Subject: |
Re: guile.el? |
Date: |
Thu, 19 Apr 2001 11:34:34 -0700 |
please find below run-guile.el, implementing `run-guile' and friends.
notable feature is `C-h C-g' interface to `help' and `C-h C-a' interface
to `apropos'. probably there are more fancy integrations available...
thi
__________________________________________________________________
;;; ID: run-guile.el,v 1.21 2001/02/13 09:33:00 ttn Rel
;;;
;;; Copyright (C) 1997-2001 Thien-Thi Nguyen
;;; This file is part of ttn's personal elisp library, released under GNU
;;; GPL with ABSOLUTELY NO WARRANTY. See the file COPYING for details.
;;; Description: Provide `run-guile' and friends.
;;;###autoload
(defun run-like-scheme (program &optional edit-cmd-p prompt)
"Run an inferior interpreter PROGRAM using `run-scheme'.
The variable `scheme-buffer' is set to the new buffer."
(let ((scheme-program-name
(or (when (and edit-cmd-p (not noninteractive))
(read-string (or prompt "Program: ") program))
program)))
(run-scheme scheme-program-name)
(setq scheme-buffer (rename-buffer (format "*%s*" scheme-program-name)))
(local-set-key "\C-h\C-g" '(lambda (s)
(interactive "sGuile help: ")
(insert "(help " s ")")
(comint-send-input)))
(local-set-key "\C-h\C-a" '(lambda (s)
(interactive "sGuile apropos: ")
(insert "(apropos \"" s "\")")
(comint-send-input)))
(square-braces-as-parens-mode 1)))
;;;###autoload
(defun run-guile (&optional edit-cmd-p)
"Run an inferior guile process using `run-like-scheme'."
(interactive "P")
(run-like-scheme "guile" edit-cmd-p "Run Guile: "))
;;;###autoload
(defun run-guile-tcltk (&optional edit-cmd-p)
"Run an inferior guile-tcltk process using `run-like-scheme'."
(interactive "P")
(run-like-scheme "guile-tcltk" edit-cmd-p "Run Guile-TclTk: "))
;;;###autoload
(defun run-guile-gtk (&optional edit-cmd-p)
"Run an inferior guile-gtk process using `run-like-scheme'."
(interactive "P")
(run-like-scheme "guile-gtk" edit-cmd-p "Run Guile-GTK: "))
;;;###autoload
(defun run-guile-pgsql (&optional edit-cmd-p)
"Run an inferior guile-pgsql process using `run-like-scheme'."
(interactive "P")
(run-like-scheme "guile-pgsql" edit-cmd-p "Run Guile-PGSQL: "))
;;;###autoload
(defun run-guile-pg (&optional edit-cmd-p)
"Run an inferior guile-pg process using `run-like-scheme'."
(interactive "P")
(run-like-scheme "guile-pg" edit-cmd-p "Run Guile-PG: "))
;;;###autoload
(defun run-guile-oops (&optional edit-cmd-p)
"Run an inferior guile-oops process using `run-like-scheme'."
(interactive "P")
(run-like-scheme "guile-oops" edit-cmd-p "Run GOOPS: "))
(provide 'run-guile)
;;; run-guile.el,v1.21 ends here