Clojurians Log v2

I can't seem to find the source file for https://docs.xtdb.com/static/learn-xtql-today-with-clojure.html, because I wanted to work through it and update the docs because xt/put doesn't exist any more

Purely FYI: here’s my update to the save-checkpoint! command that @taylor.jeremydavid had written that makes explicit all the namespaced keywords, so that it can be in any namespace. My use case is a command-line utility that runs regularly (daily), where I want it to save a checkpoint before it exits. (Actually, the real use case is that it took so many iterations to get right, I got tired of waiting the extra 15 seconds for it to sync, I finally had fixed this. 😆 ) https://github.com/xtdb/xtdb/issues/1813#issuecomment-2455704401

(defn save-checkpoint!
  [node]
  (let [dir (xio/create-tmpdir "checkpointing")
        src (:kv-store (:index-store node))
        store (checkpoint/->filesystem-checkpoint-store {:path (.toPath (io/file CHECKPOINTDIR))})]
        ;store (checkpoint/->filesystem-checkpoint-store {:path (.toPath (io/file devdir "cp-store"))})]
    (try
      (when-let [{:keys [tx]} (checkpoint/save-checkpoint src dir)]
        (when tx
          (log/infof "Uploading checkpoint at '%s'" tx)
          (doto (checkpoint/upload-checkpoint store dir
                  ;; NOTE: format version will be "7" for 1.22 RC and above
                  {:tx tx, :xtdb.checkpoint/cp-format
                   {:index-version xtdb.codec/index-version,
                    :xtdb.rocksdb/version "7"}
                   :cp-at (java.util.Date.)})
            (->> pr-str (log/info "Uploaded checkpoint:")))))
      (finally
        (xio/delete-dir dir)))))