   :type '(string))
 
 (defun flusspferd-is-running-p ()
-  "Checks if Flusspferd is already running"
+  "Check if Flusspferd is already running."
   (comint-check-proc flusspferd-buffer-name))
 
 (defun flusspferd-switch-to ()
-  "Switch to Flusspferd buffer"
+  "Switch to Flusspferd buffer."
   (interactive)
   (switch-to-buffer flusspferd-buffer-name))
 
 (defmacro flusspferd-defun-and-go (name arglist docstring &rest body)
-  "defun a function with name NAME and NAME-and-go which calls
- (switch-to-buffer flusspferd-buffer-name) when finished."
+  "Create two function with name NAME and NAME-and-go.
+The NAME-and-go version calls (switch-to-buffer flusspferd-buffer-name) when done."
   (let ((name-and-go (intern (concat (symbol-name name) "-and-go")))
         (new-docstring
          (concat docstring " Switches to Flusspferd buffer when finished.")))

(define-derived-mode inferior-flusspferd-mode comint-mode "Inferior Flusspferd"
                     "Embeds Flusspferd as a Javascript REPL into Emacs."
                     :group 'flusspferd
                     (setq comint-prompt-regexp "^> ")
                     (setq comint-use-prompt-regexp t)
                     (setq comint-process-echoes t))

;;;###autoload
(defun flusspferd ()
  "Flusspferd (Javascript interpreter) REPL"
  (interactive)
  (unless (flusspferd-is-running-p)
    (let ((flusspferd-buffer

    map))

(defun flusspferd-helper-mark-active ()
  "Check if there is an active region."
  (if (functionp 'use-region-p)
      (use-region-p)
      (and transient-mark-mode mark-active)))
