stathissideris · September 9, 2020 09:21 · Sep 9, 2020
diff --git a/read-line-menu.clj b/read-line-menu.clj
@@ -0,0 +1,35 @@
+;; Usage:
+
+(menu {:prompt "Which database" 
+       :options ["Localhost" "Remote" {:id "o" :text "Other"}]})
+
+;; Implementation
+(require '[clojure.string :as str])
+
+(defn menu [{:keys [prompt options]}]
+  (let [options       (map (fn [o idx]
+                             (if (string? o)
+                               {:id (str (inc idx)) :text o}
+                               o)) options (range))
+        valid-options (set (map :id options))]
+    (loop []
+      (when prompt
+        (println)
+        (println prompt)
+        (println))
+      (doseq [{:keys [id text]} options]
+        (println (str " [" id "]") text))
+      (println)
+      (println "or press <enter> to cancel")
+
+      (let [in (str/trim (read-line))]
+        (cond (= in "")
+              :cancelled
+
+              (not (valid-options in))
+              (do
+                (println (format "\n-- Invalid option '%s'!" in))
+                (recur))
+
+              :else
+              (first (filter #(= in (:id %)) options)))))))