Accept plain figwheel-main build name, normalizing to keyword (#2385)

1 files changed, 10 insertions, 4 deletions

diff --git a/cider.el b/cider.el
index 691edcca..19dcd305 100644
--- a/cider.el
+++ b/cider.el
@@ -702,10 +702,16 @@ Figwheel for details."
 
 (defun cider-figwheel-main-init-form ()
   "Produce the figwheel-main ClojureScript init form."
-  (let ((form "(do (require 'figwheel.main) (figwheel.main/start %s))")
-        (options (or cider-figwheel-main-default-options
-                     (read-from-minibuffer "Select figwheel-main build (e.g. :dev): "))))
-    (format form options)))
+  (let* ((form "(do (require 'figwheel.main) (figwheel.main/start %s))")
+         (options (string-trim
+                   (or cider-figwheel-main-default-options
+                       (read-from-minibuffer "Select figwheel-main build (e.g. :dev): "))))
+         (normalized-options (if (or (string-prefix-p "{" options)
+                                     (string-prefix-p "(" options)
+                                     (string-prefix-p ":" options))
+                                 options
+                               (concat ":" options))))
+    (format form normalized-options)))
 
 (defun cider-custom-cljs-repl-init-form ()
   "Prompt for a form that would start a ClojureScript REPL.