refactor: Rename sydnix → sydnix-cli

scripts/sydnix-cli/src/sydnix_cli/prelude.clj

@@ -0,0 +1,21 @@
+(ns sydnix-cli.prelude
+  (:require
+   [clojure.core.match :refer [match]]))
+
+(defn y-or-n?
+  [prompt
+   & {:keys [default]
+      :or {default :n}
+      :as opts}]
+  (let [y-n-indicator (case default
+                        :y " [Y/n] "
+                        :n " [y/N] ")]
+    (print (str prompt y-n-indicator))
+    (flush))
+  (let [line (read-line)]
+    (match line
+           "" (case default :y true :n false)
+           (:or "y" "Y") true
+           (:or "n" "N") false
+           _ (do (println "Please enter y or n.")
+                 (recur prompt opts)))))