Re: guile.el?

[thi]

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