To: paradigm@graco.c.u-tokyo.ac.jp
Subject: Re: STk installed
Date: Sat, 21 Jun 1997 12:56:24 +0900
From: Daichi Mochihashi <daichi6@dolphin.c.u-tokyo.ac.jp>

From: MASUHARA Hidehiko <masuhara-spam@graco.c.u-tokyo.ac.jp>
Subject: STk installed
Date: Fri, 20 Jun 1997 21:09:49 +0900
Message-ID: <199706201209.VAA06557@gale.c.u-tokyo.ac.jp>

> 「絵の出るScheme」をECCのマシンにインストールしました。
> 使い方は、
> 
>   file:///home/masuhara/WWW/local/stk/index.html
> 
> を見て下さい。
> 
> Enjoy!
> 
> 増原

run-stk という関数を作りました.

(defun run-stk ()
  "Run an inferior Scheme process, input and output via buffer *scheme*.
If there is a process already running in `*scheme*', switch to that buffer.
With argument, allows you to edit the command line (default is value
of `scheme-program-name').  Runs the hooks `inferior-scheme-mode-hook'
\(after the `comint-mode-hook' is run).
\(Type \\[describe-mode] in the process buffer for a list of commands.)"

  (interactive)
  (require 'cmuscheme)
  (let ((sthem-program-name "stk"))
    (progn (set-buffer (make-comint "scheme" "stk"))
         (inferior-scheme-mode))
    ;(setq scheme-program-name "stk")
    (setq scheme-buffer "*scheme*")
    (pop-to-buffer "*scheme*")))

.emacsに入れて使ってください。

;; 適当にやっただけなのでElispに詳しい人はあらを探さないで下さいね.

scheme-program-nameの値を変えずに M-x run-stk で実行できます。
バグは, 同時に scm と stkを走らせられないことでしょうか。^^;

(define-key ctl-x-map "S" 'run-stk) ; "s" -> run-schemeになっている(私)

とかして使うと C-x Sで起動できて便利かもしれません。

以上です。

----
◆ 持橋 大地 ＠ 基礎二. 4年
◇ daichi6@dolphin.c.u-tokyo.ac.jp
◇ http://dolphin.c.u-tokyo.ac.jp/~daichi6/