                   (split-string flusspferd-options))))
       (save-excursion
         (set-buffer flusspferd-buffer)
-        (flusspferd-mode))))
+        (inferior-flusspferd-mode))))
   (when (interactive-p)
       (switch-to-buffer flusspferd-buffer-name)))
 
-(defun flusspferd-eval-region (start end)
-  "evaluated the region between START and END with flusspferd."
-  (interactive "r")
-  (comint-send-region flusspferd-buffer-name start end)
-  (comint-send-string flusspferd-buffer-name "\n"))
-
-;; TODO flusspferd-eval-last-sexp flusspferd-eval-buffer flusspferd-minor-mode and so on
-
 (provide 'flusspferd)

  :type '(string))

(defun flusspferd-is-running-p ()
  "Checks if flusspferd is already running"
  (comint-check-proc flusspferd-buffer-name))

(defun flusspferd-mode () )

;;;###autoload
(defun flusspferd ()

;;
;; ...

;;; Code:

(require 'comint)
(require 'easymenu)

;; Options
(defgroup flusspferd nil
