chore: update nbb scripts to be repl friendly

With https://github.com/babashka/nbb/issues/95 done, this allows
all nbb script namespaces to required or used from a repl
This commit is contained in:
Gabriel Horner
2025-03-07 11:49:28 -05:00
parent 1ccdcab8a9
commit 7917afaa45
9 changed files with 9 additions and 9 deletions

View File

@@ -50,5 +50,5 @@
(when (:validate options)
(validate-db/validate-db @conn db-name {:group-errors true :closed-maps true :humanize true}))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -28,5 +28,5 @@
(println "Writing" (count datoms) "datoms to" file)
(fs/writeFileSync file (with-out-str (pprint/pprint datoms)))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -71,5 +71,5 @@
(sh ["puget"] {:input (pr-str results) :stdio ["pipe" "inherit" "inherit"]})
(pprint/pprint results)))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -189,5 +189,5 @@
(when (:verbose options') (println "Transacted" (count (d/datoms @conn :eavt)) "datoms"))
(println "Created graph" (str db-name "!")))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -37,5 +37,5 @@
(d/transact! conn update-tx)
(println "Updated" (count update-tx) "block(s) for graph" (str db-name "!"))))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -60,5 +60,5 @@
(publish-db-graph static-dir graph-dir output-path options)
(publish-file-graph static-dir graph-dir output-path options))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -83,5 +83,5 @@
#_(d/transact! conn blocks-tx)
(println "Created graph" (str db-name " with " (count (d/datoms @conn :eavt)) " datoms!"))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -222,5 +222,5 @@
(d/transact! conn block-props-tx)
(println "Created graph" (str db-name " with " (count (d/datoms @conn :eavt)) " datoms!"))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))

View File

@@ -423,5 +423,5 @@
(when (:debug options) (write-debug-file @conn))
(println "Created graph" (str db-name "!"))))
(when (= nbb/*file* (:file (meta #'-main)))
(when (= nbb/*file* (nbb/invoked-file))
(-main *command-line-args*))