Introduce inf-clojure-skip-project-detection

This patch adds a defcustom, inf-clojure-skip-project-detection, that when
non-nil skips the project detection so that only inf-clojure-generic-cmd will
be used.  This is very useful for projects that don't have standard layouts.

Author: arichiardi

CHANGELOG.md

@@ -9,6 +9,10 @@
 * [#93](https://github.com/clojure-emacs/inf-clojure/pull/93): Slow response from inf-clojure (completions, arglists, ...).
 * [#101](https://github.com/clojure-emacs/inf-clojure/pull/101): `inf-clojure-set-ns` hangs Emacs.
 
+### New Features
+
+* [#114](https://github.com/clojure-emacs/inf-clojure/pull/114): Introduce `inf-clojure-skip-project-detection`.
+
 ## 2.0.1 (2017-05-18)
 
 ### Bugs Fixed

README.md

@@ -74,6 +74,9 @@ interacting with it.
 `inf-clojure` has several custom variables which control the command
 used to start a REPL for particular project type - `inf-clojure-lein-cmd`,
 `inf-clojure-boot-cmd` and `inf-clojure-generic-cmd`.
+If `inf-clojure-skip-project-detection` is non-nil, only
+`inf-clojure-generic-cmd` will be used, which can be useful for projects that
+don't have standard layouts.
 
 By default all those variables are set to strings (e.g. `lein repl`).
 However, it is possible to use a cons pair like `("localhost" . 5555)`

inf-clojure.el

@@ -189,6 +189,15 @@ number (e.g. (\"localhost\" . 5555))."
    (stringp (car x))
    (numberp (cdr x))))
 
+(defcustom inf-clojure-skip-project-detection nil
+  "Skip project detection if non-nil.
+
+This allows to rely on `inf-clojure-generic-cmd` for specifying
+the REPL command."
+  :type 'boolean
+  :safe #'booleanp
+  :package-version '(inf-clojure . "2.1.0"))
+
 (defcustom inf-clojure-lein-cmd "lein repl"
   "The command used to start a Clojure REPL for Leiningen projects.
 
@@ -510,10 +519,11 @@ Fallback to `default-directory.' if not within a project."
 
 (defun inf-clojure-project-type ()
   "Determine the type, either leiningen or boot of the current project."
-  (let ((default-directory (inf-clojure-project-root)))
-    (cond ((file-exists-p "project.clj") "lein")
-          ((file-exists-p "build.boot") "boot")
-          (t nil))))
+  (when (not inf-clojure-skip-project-detection)
+    (let ((default-directory (inf-clojure-project-root)))
+      (cond ((file-exists-p "project.clj") "lein")
+            ((file-exists-p "build.boot") "boot")
+            (t nil)))))
 
 (defun inf-clojure-cmd (project-type)
   "Determine the command `inf-clojure' needs to invoke for the PROJECT-TYPE."