scheme-mycoustom-prelude.el

;;;;;;;;;;;
;; https://www.math.s.chiba-u.ac.jp/~matsu/emacs/emacs21/scheme.html

(setq scheme-program-name "/usr/bin/gosh")
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)
(setq cmuscheme-load-hook
      '((lambda () (define-key inferior-scheme-mode-map "\C-c\C-t"
                     'favorite-cmd))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; https://hayate2255.wordpress.com/2013/02/03/windows7-emacs-gauche-%E3%81%AE%E7%92%B0%E5%A2%83%E6%A7%8B%E7%AF%89/

(setq process-coding-system-alist
      (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
(setq scheme-program-name "gosh -i")
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)
(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))
(define-key global-map
  "\C-cS" 'scheme-other-window)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; https://prelude.emacsredux.com/en/latest/configuration/
;;(prelude-require-package 'some-package)

(prelude-require-package 'geiser)
(prelude-require-package 'geiser-gauche)
;;(prelude-require-package 'some-package)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; https://gitlab.com/emacs-geiser/gauche

(with-eval-after-load 'geiser-impl
  (add-to-list 'geiser-active-implementations 'gauche))





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;  https://github.com/tsu-nera/dotfiles/blob/master/.emacs.d/inits/31_lisp.org#scheme-mode

;; (use-package scheme
;;              :commands (scheme-mode run-scheme)
;;              :config
;;              (setq process-coding-system-alist
;; 	           (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
;;              (setq scheme-program-name "gosh -i")

;;              ;; 別のウィンドウに gosh を動作させる
;;              (defun scheme-other-window ()
;;                "Run Gauche on other window"
;;                (interactive)
;;                (split-window-horizontally (/ (frame-width) 2))
;;                (let ((buf-name (buffer-name (current-buffer))))
;;                  (scheme-mode)
;;                  (switch-to-buffer-other-window
;;                   (get-buffer-create "*scheme*"))
;;                  (run-scheme scheme-program-name)
;;                  (switch-to-buffer-other-window
;;                   (get-buffer-create buf-name))))

;;              (define-key scheme-mode-map (kbd "C-c S") 'scheme-other-window)
;;              )