refactor: Rename sydnix → sydnix-cli

scripts/sydnix-cli/src/sydnix_cli/commands/help.clj

@@ -0,0 +1,43 @@
+(ns sydnix-cli.commands.help
+  (:require
+   [babashka.process :as p]
+   [sydnix-cli.mangen :as mangen]))
+
+(defn adorn-with-help-option [wrapped-command-fn]
+  (fn [{:keys [opts dispatch]}]
+    (if (:help opts)
+      (mangen/with-pipe
+        (fn [man->]
+          (mangen/write-man-for-command (mangen/find-dispatched dispatch)
+                                        :out man->))
+        (fn [->man]
+          (p/shell {:in ->man}
+                   "man -l -")))
+      (wrapped-command-fn opts))))
+
+(defn- view-man-for-command [command-spec]
+  (mangen/with-pipe
+    (fn [man->]
+      (mangen/write-man-for-command command-spec :out man->))
+    (fn [->man]
+      (p/shell {:in ->man} "man -l -"))))
+
+(defn- wrap-command-fn [wrapped-fn]
+  (fn [info]
+    (if (:help (:opts info))
+      (do (mangen/render-docs-for-command
+           (mangen/find-dispatched (:dispatch info)))
+          #_
+          (view-man-for-command (mangen/find-dispatched (:dispatch info))))
+      (when-not (nil? wrapped-fn)
+        (wrapped-fn info)))))
+
+(defn adorn-with-help-option* [command-spec]
+  (update command-spec :fn wrap-command-fn))
+
+(defn- command-fn [_opts]
+  (view-man-for-command (mangen/find-dispatched [])))
+
+(def command
+  {:cmds ["help"]
+   :fn command-fn})