GaucheのためのEmacsの環境を整える

cametanさんに教えて貰ったGaucheのためのEmacs環境を作ってみました。参考は以下のUbuntuフォーラムでのcametanさんのコメントと、私のブログにコメントいただいた内容です。
Ubuntu日本語フォーラム / Gaucheがはいりません
Ubuntu 9.04にGauche 0.8.14ではなく0.8.13を入れてみた - ありの日記

まず以下のファイルをダウンロードして、~/.emacs.d/elipsディレクトリに入れます。(ディレクトリがない場合は作っておきます)

• quack.el
  • http://www.neilvandyke.org/quack/

• scheme-complete-0.8.7.el
  • http://synthcode.com/wiki/scheme-complete

scheme-completeの方はgzで圧縮されているので解凍して、名前を「scheme-complete-0.8.7.el」から「scheme-complete.el」にしてここ→~/.emacs.d/elispへ移動させておきます。

$ gzip -d scheme-complete-0.8.7.el.gz
$ mv scheme-complete-0.8.7.el ~/.emacs.d/elisp/scheme-complete.el

次に~/.emacsに以下の設定を追加します。~/.emacs.d/elispをロードパスに追加しておかないとエラーが出るので以下のコードの1〜8行目を追加しています。これはid:Ubuntuさんのエントリを参考にしています(http://d.hatena.ne.jp/Ubuntu/20090501/1241143579)

(defvar default-load-path load-path
  "*Base of `load-path'.
It is used as a default value of target path to search file or
subdirectory under load-path.")
(setq my-load-path
      (list "/usr/local/share/emacs/site-lisp"
            (expand-file-name "~/.emacs.d/elisp")))
(setq load-path (append my-load-path default-load-path))

(require 'quack)

(autoload 'scheme-smart-complete "scheme-complete" nil t)
(eval-after-load 'scheme
  '(progn (define-key scheme-mode-map "\e\t" 'scheme-smart-complete)))

(autoload 'scheme-get-current-symbol-info "scheme-complete" nil t)
(add-hook 'scheme-mode-hook
  (lambda ()
    (make-local-variable 'eldoc-documentation-function)
    (setq eldoc-documentation-function 'scheme-get-current-symbol-info)
    (eldoc-mode)))

そしてEmacsを起動。
〜.scmというファイルを作って開いた状態で
M-x run-schemと入力してEnterを押したら以下の内容が表示されるので、

Run Scheme (default "mzscheme"):

ここでgoshと入力しEnterを押すとGaucheが起動します。
そしてエディタの部分でコードを入力し、C-x C-eと入力すると、カーソルのある行が実行されるという仕組み。そして実行された結果が↓こんな感じ。すごい。さくさくだねー。

cametanさんありがとうございましたm(＿ ＿)m

次はkahuaフレームワークを試してみるぞー。ってちょっと試してるんだけど、上手く行ってなかったりするので早めにエントリ書くぞ。しかし、kahuaって最近活動してるのかなー。