 ;;; ===============
 
 (defcustom inf-carp-build-command
-  "(build)\n"
+  "(do (reload) (build))\n"
   "Command to build the project."
   :type 'string
   :group 'inf-carp)
 
 (defcustom inf-carp-build-and-run-command
-  "(build) (run)\n"
+  "(do (reload) (build) (run))\n"
   "Command to build and run the project."
-  :type 'string
-  :group 'inf-carp)
-
-(defcustom inf-carp-var-bake-command
-  "(bake %s)\n"
-  "Command to bake a form."
   :type 'string
   :group 'inf-carp)
 

   (t str)))

(defvar inf-carp-project-root-files
  '("project.clj" "build.boot" "project.carp")
  "A list of files that can be considered project markers.")

(defun inf-carp-project-root ()

        "--"
        ["Show arglist" inf-carp-show-arglist t]
        ;;["Show documentation for var" inf-carp-show-var-documentation t]
        ;;["Show info for var" inf-carp-show-var-info t]
        "--"
        ["Clear REPL" inf-carp-clear-repl-buffer]))
    map))

(defvar inf-carp-minor-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "\M-\C-x"  #'inf-carp-eval-defun)
    (define-key map "\C-x\C-e" #'inf-carp-eval-last-sexp)
    (define-key map "\C-c\C-e" #'inf-carp-eval-last-sexp)
    (define-key map "\C-c\C-c" #'inf-carp-build-and-run)
    (define-key map (kbd "<s-return>") #'inf-carp-eval-defun)
    (define-key map "\C-c\C-k" #'inf-carp-build)
    (define-key map "\C-c\C-r" #'inf-carp-eval-region)
    (define-key map "\C-c\C-n" #'inf-carp-eval-form-and-next)
    (define-key map "\C-c\C-z" #'inf-carp-switch-to-repl)
    (define-key map "\C-c\C-m" #'inf-carp-macroexpand)
    (define-key map "\C-c\C-l" #'inf-carp-eval-buffer)
    ;; TODO:
    ;; (define-key map "\C-c\C-v" #'inf-carp-show-var-documentation)
    ;; (define-key map "\C-c\C-t" #'inf-carp-show-var-type)

    (easy-menu-define inf-carp-minor-mode-menu map
      "Inferior Carp Minor Mode Menu"
      '("Inf-Carp"
