         "--"
         ["Show arglist" inf-carp-show-arglist t]
         ;;["Show documentation for var" inf-carp-show-var-documentation t]
-        ["Show source for var" inf-carp-show-var-source 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)     ; Gnu convention
-    (define-key map "\C-x\C-e" #'inf-carp-eval-last-sexp) ; Gnu convention
+    (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)
-    (define-key map (kbd "<s-return>") #'inf-carp-eval-defun)     ; Light Table style
-    (define-key map "\C-c\C-k" #'inf-carp-eval-buffer)
+    (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-i" #'inf-carp-show-ns-vars)
-    (define-key map "\C-c\C-A" #'inf-carp-apropos)
     (define-key map "\C-c\C-m" #'inf-carp-macroexpand)
-    (define-key map "\C-c\C-l" #'inf-carp-load-file)
-    (define-key map "\C-c\C-a" #'inf-carp-show-arglist)
-    ;;(define-key map "\C-c\C-v" #'inf-carp-show-var-documentation)
-    (define-key map "\C-c\C-t" #'inf-carp-show-var-type)
-    (define-key map "\C-c\C-s" #'inf-carp-show-var-source)
-    (define-key map "\C-c\M-n" #'inf-carp-set-ns)
+    (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"

   (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 ()

;;; ===============

(defcustom inf-carp-build-command
  "(do (reload) (build))\n"
  "Command to build the project."
  :type 'string
  :group 'inf-carp)

(defcustom inf-carp-build-and-run-command
  "(do (reload) (build) (run))\n"
  "Command to build and run the project."
  :type 'string
  :group 'inf-carp)

