#pragma section-numbers off

.scmで起動します。

標準のままだと利用しずらいし、動作しません。カスタマイズは必須です。

{{{
;; パスの設定
(setq scheme-program-name "/usr/local/bin/gosh -i")
;; デフォルトのままだとだめです
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

;; python-modeに似せています。C-c!で画面を分割し、分割画面にschmeインタプリタバッファを表示
;; かなりいいかげん
(defun my-scm-shell ()
  (interactive)
  (let ((win (selected-window))
        (tmpbuf " * temporary *"))
    (pop-to-buffer tmpbuf)
    (run-scheme scheme-program-name)
    (select-window win)
    ))

;; カッコの色の変更。この設定だと薄めの色になります
(defvar paren-face 'paren-face)
(make-face 'paren-face)
(set-face-background 'paren-face "black")
(set-face-foreground 'paren-face "gray50")

;; 定義をhookに設定して有効にします
(add-hook 'scheme-mode-hook
          (function
            (lambda ()
              (define-key scheme-mode-map "\C-c!" 'my-scm-shell)
              (setq scheme-font-lock-keywords-2
                    (append '(("(\\|)" . paren-face))
                            scheme-font-lock-keywords-2))
              )))

(setq cmuscheme-load-hook
      '((lambda () (define-key inferior-scheme-mode-map "\C-c\C-t"
     'favorite-cmd))))
}}}

C-x C-eで実行していきます。C-c!した後ならインタプリタのバッファに結果が表示されます。

= 代替 =
ほとんどの場合はScheme-modeを変更すればいいだけですが、代替物も作成されています。

== Quack ==
http://www.neilvandyke.org/quack/

= 参考 =
http://www.math.s.chiba-u.ac.jp/~matsu/emacs/emacs21/scheme.html

http://www.ksky.ne.jp/~sakae/sicp/gosh-run.html

http://homepage3.nifty.com/oatu/emacs/misc.html

http://openspace.timedia.co.jp/~nyama/wiliki/sicp.cgi?Emacs%A4%C7Scheme&l=jp

----
CategoryEmacs ["Scheme"]
[http://thainews.multiservers.com/gay-movies.html gay photos] [http://thainews.multiservers.com/free-gay-pictures.html free gay pictures gay porno] [http://thainews.multiservers.com/gay-fucking.html gay fucking gay hunks] [http://thainews.multiservers.com/free-gay-movies.html free gay movies gay rape] [http://thainews.multiservers.com/gay-teens.html gay teens gay bondage] [http://thainews.multiservers.com/gay-anal-sex.html gay anal gay bear] [http://thainews.multiservers.com/free-gay-pics.html free gay pics naked gay men] [http://thainews.multiservers.com/young-gay-boys.html gay boys gay men] [http://thainews.multiservers.com/gay-sex.html free gay stories] [http://thainews.multiservers.com/free-gay-stories.html gay stories gay naked men] [http://thainews.multiservers.com/gay-cock.html gay cock gay naked men] [http://thainews.multiservers.com/gay-pics.html gay pics gay gallery] [http://thainews.multiservers.com/stud.html stud free gay] [http://thainews.multiservers.com/gay-anal.html gay anal gay travel] [http://thainews.multiservers.com/free-gay-videos.html free gay videos gay men having sex] [http://thainews.multiservers.com/gay-hentai.html stud] [http://thainews.multiservers.com/gay-teen.html gay teen twinks] [http://thainews.multiservers.com/free-gay-video.html free gay free gay clips] [http://thainews.multiservers.com/twinks.html twinks twinks] [http://thainews.multiservers.com/gay-bondage.html gay bondage free gay boys] [http://thainews.multiservers.com/gay-sex-stories.html gay sex young gay boys] [http://thainews.multiservers.com/gay-incest.html gay incest gay black men] [http://thainews.multiservers.com/naked-gay-men.html gay anal] [http://thainews.multiservers.com/free-gay-sex.html gay sex free gay pictures] [http://thainews.multiservers.com/gay-pictures.html gay pictures gay dick] [http://thainews.multiservers.com/free-gay.html free gay gay males] [http://thainews.multiservers.com/gay-stories.html gay underwear pics] [http://thainews.multiservers.com/gay-rights.html gay rights gay sex pictures] [http://thainews.multiservers.com/free-gay-porn.html gay porn free gay pic] [http://thainews.multiservers.com/gay-guys.html gay blowjobs] [http://thainews.multiservers.com/ free gay pics]