継続にっき

))) Gauche と Emacs(2)

scheme-modeではlispモードよろしくC-x C-eなどが使えることに今更になって気づいた。 評価時には即座にその結果を見たいので、*scheme*バッファ表示用にこんなのを。

(setq scheme-program-name "gosh")
(add-hook 'scheme-mode-hook '(lambda ()
                              (define-key scheme-mode-map "\C-c\M-r"
                                          '(lambda ()
                                            (interactive)
                                            (let ((pop-up-windows t))
                                              (pop-to-buffer (or scheme-buffer "*scheme*") t)
                                              (run-scheme scheme-program-name)
                                              (enlarge-window (- (- (window-height) 10)))
                                              (other-window -1))))))

さらにscheme-modeを拡張するQuackなんてライブラリがあることも知ったけど これはあまりメリットを感じなかったので見送り。λ表示は大変にカッコイイんだけど。