cli.clj

(defn print-help [prefix cmds]
  (println "Usage:" prefix "[COMMAND] [FLAGS]")
  (println)
  (println "Flags:")
  (println (format "  %s%-40s%s%s" log/blue "-v" log/nc "Verbose"))
  (println (format "  %s%-40s%s%s" log/blue "-h" log/nc "Help"))
  (println)
  (when (seq cmds)
    (println "Commands:")
    (doseq [[cmd {:keys [description]}] (sort-by first cmds)]
      (println (format "  %s%-40s%s%s" log/blue cmd log/nc description)))))

(def commands
  {"deploy" {:description "Deploys Nextjournal"
             :command deploy-journal
             :subcommands []
             :usages {"nj deploy --image $SHA" "Deploys a specific version of Nextjournal"}}
   "stop" {:description "Stops Nextjournal"
           :command stop-journal
           :subcommands []}
   "configure" {:description "Configures the infrastructure"
                :command init/init}
   "check" {:description "Checks that requirements (binaries & DNS) are met"
            :command init/check-cmd}
   "dump-logs" {:description "Retrieves from the system some logs and configuration files and dumps them locally in ./debug"
                :command dump-logs}
   "show-config" {:description "Prints out the Nextjournal configuration file in use (if present)"
                  :command show-config}
   "setup" {:description "Sets up the nextjournal cluster"
            :command setup}
   "status" {:description "Shows up some information about the system"
             :command status}
   "help" {:description "Show this help information"
           :command (fn [_] (print-help "nj" commands))}
   "tail-logs" {:description "Tails logs for the specified target"
                :command tail-logs
                :subcommands []
                :usages {"nj tail-logs --target TARGET --log-type LOG_TYPE" "Tails the logs of the specific TARGET (.e.g journal). LOG_TYPE can be stdout or stderr, defaults to stdout "}}})
                
                
(defn print-usage [prefix description usages]
  (println description)
  (println)
  (println "Usage:" prefix "[COMMAND] [FLAGS]")
  (println)
  (println "Flags:")
  (println (format "  %s%-40s%s%s" log/blue "-v" log/nc "Verbose"))
  (println (format "  %s%-40s%s%s" log/blue "-h" log/nc "Help"))
  (when (seq usages)
    (println)
    (println "Usage:")
    (doseq [[cmd usage] (sort-by first usages)]
      (println (format "  %s%-40s%s%s" log/blue cmd log/nc usage)))))


(defn -main [& _args]
  (let [cmd (get commands (first *command-line-args*))
        cli-options (->> [["-i" "--image SHA" "Image SHA"
                           :parse-fn str]
                          ["-t" "--target TARGET" "Target name (.e.g journal)"]
                          ["-l" "--log-type LOG_TYPE" "Log type (stdout|stderr, defaults to stdout)"]
                          ["-h" "--help"]
                          ["-c" "--check"]
                          ["-v" "--verbose"]]
                         (tools.cli/parse-opts *command-line-args*)
                         :options)]


    (when (:verbose cli-options)
      (reset! log/debug-enabled? true))

    (if cmd
      (if (:help cli-options)
        (print-usage (first *command-line-args*) (:description cmd) (:usages cmd))
        (let [command (:command cmd)]
          (-> {:cli-options cli-options}
              (initialize-context)
              (command (next *command-line-args*)))))
      ((-> (get commands "help")
           :command) nil))
    (println)))