   (setq scheme-program-name "s7")
   (if (not (comint-check-proc "*scheme*"))
       (let ((cmdlist (list '("localhost" . 5555))))
-	    (set-buffer (apply 'make-comint "scheme" (car cmdlist) nil nil))
-	    (inferior-scheme-mode)))
+        (set-buffer (apply 'make-comint "scheme" (car cmdlist) nil nil))
+        (inferior-scheme-mode)))
   (setq scheme-buffer "*scheme*")
   (pop-to-buffer-same-window "*scheme*"))
 

(setq helm-candidate-number-limit 100)
(setq helm-buffer-max-length 32)
(setq helm-display-header-line nil)
(setq helm-fuzzy-match t)
;; (helm-push-mark-mode 1)
(bind-keys :map helm-map
           ("<tab>" . helm-execute-persistent-action)

(require 'helm-xref)
(setq xref-show-xrefs-function 'helm-xref-show-xrefs)

(require 'parinfer)
(add-hook 'clojure-mode-hook #'parinfer-mode)
(add-hook 'emacs-lisp-mode-hook #'parinfer-mode)
(add-hook 'scheme-mode-hook #'parinfer-mode)
(add-hook 'lisp-mode-hook #'parinfer-mode)

(require 'scheme)

(defun run-s7 ()
