(require 'scheme)
(require 'xscheme)

(setq scheme-program-name "/home/stud/kornstae/bin/scm")
(setq scheme-mit-dialect nil)

(defun xscheme-send-line ()
  "Feeds the current line."
  (interactive)
  (save-excursion
    (beginning-of-line)
    (let ((start (point)))
      (end-of-line)
      (xscheme-send-region start (point)))))

(defun xscheme-send-paragraph ()
  "Feeds the current paragraph."
  (interactive)
  (save-excursion
    (backward-paragraph)
    (let ((start (point)))
      (forward-paragraph)
      (xscheme-send-region start (point)))))

(define-key scheme-mode-map (kbd "RET") 'reindent-then-newline-and-indent)
(define-key scheme-mode-map (kbd "C-c C-r") 'run-scheme)
(define-key scheme-mode-map (kbd "C-c C-h") 'reset-scheme)
(define-key scheme-mode-map (kbd "M-r") 'xscheme-send-region)
(define-key scheme-mode-map (kbd "M-l") 'xscheme-send-line)
(define-key scheme-mode-map (kbd "C-c C-p") 'xscheme-send-paragraph)
(define-key scheme-mode-map (kbd "M-RET") 'xscheme-send-buffer)

(provide 'my-scheme-mode)