From 4995a8ccd94d2a363a9a901032d877b0de0c82d9 Mon Sep 17 00:00:00 2001
From: toctan <tianjin.sc@gmail.com>
Date: Wed, 4 Jun 2014 17:36:05 +0800
Subject: [PATCH] Add geiser for scheme

---
 modules/prelude-scheme.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/modules/prelude-scheme.el b/modules/prelude-scheme.el
index 8752bf3..5014093 100644
--- a/modules/prelude-scheme.el
+++ b/modules/prelude-scheme.el
@@ -31,8 +31,17 @@
 ;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
+(prelude-require-package 'geiser)
 
 (require 'prelude-lisp)
+(require 'geiser)
+
+;; geiser replies on a REPL to provide autodoc and completion
+(setq geiser-mode-start-repl-p t)
+
+;; keep the home clean
+(setq geiser-repl-history-filename
+      (expand-file-name "geiser-history" prelude-savefile-dir))
 
 (add-hook 'scheme-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook)))