Var to enable/disable prompts on starting REPL

Author: vlatkoB

haskell-session.el

@@ -150,11 +150,14 @@ with all relevant buffers)."
   (haskell-session-get s 'name))
 
 (defun haskell-session-target (s)
-  "Get the session build target."
+  "Get the session build target.
+If `haskell-process-load-or-reload-p' is nil, accept `default'."
   (let* ((maybe-target (haskell-session-get s 'target))
          (target (if maybe-target maybe-target
                    (let ((new-target
-                          (read-string "build target (empty for default):")))
+			  (if haskell-process-load-or-reload-p
+			      (read-string "build target (empty for default):")
+			    "")))
                      (haskell-session-set-target s new-target)))))
     (if (not (string= target "")) target nil)))
 

haskell-utils.el

@@ -45,13 +45,14 @@
 (defun haskell-utils-read-directory-name (prompt default)
   "Read directory name and normalize to true absolute path.
 Refer to `read-directory-name' for the meaning of PROMPT and
-DEFAULT."
+DEFAULT. If `haskell-process-load-or-reload-p' is nil, accept `default'."
   (let ((filename (file-truename
-                   (read-directory-name prompt
-                                        default
-                                        default))))
-    (concat (replace-regexp-in-string "/$" "" filename)
-            "/")))
+		   (if haskell-process-load-or-reload-p
+		       (read-directory-name prompt
+					    default
+					    default)
+		     default))))
+    (concat (replace-regexp-in-string "/$" "" filename) "/")))
 
 (defun haskell-utils-parse-import-statement-at-point ()
   "Return imported module name if on import statement or nil otherwise.

haskell.el

@@ -168,13 +168,17 @@
     (haskell-process-start session)
     session))
 
+(defvar haskell-process-load-or-reload-p t
+  "Non-nil means there will be no prompts on starting REPL. Defaults will be accepted.")
+
 (defun haskell-session-new-assume-from-cabal ()
-  "Prompt to create a new project based on a guess from the nearest Cabal file."
+  "Prompt to create a new project based on a guess from the nearest Cabal file.
+If `haskell-process-load-or-reload-p' is nil, accept `default'."
   (let ((name (haskell-session-default-name)))
     (unless (haskell-session-lookup name)
-      (when (y-or-n-p (format "Start a new project named “%s”? "
-                              name))
-        (haskell-session-make name)))))
+      (if (or (not haskell-process-load-or-reload-p)
+	      (y-or-n-p (format "Start a new project named “%s”? " name)))
+	    (haskell-session-make name)))))
 
 ;;;###autoload
 (defun haskell-session ()