enhance: show graph cmd

deps/cli/src/logseq/cli.cljs

@@ -4,10 +4,6 @@
             [clojure.string :as string]
             [logseq.cli.commands.graph :as cli-graph]))
 
-;; TODO
-(defn- query [m]
-  (prn (assoc m :fn :query)))
-
 (defn- format-commands [{:keys [table]}]
   (let [table (mapv (fn [{:keys [cmds desc]}]
                       (cond-> [(string/join " " cmds)]
@@ -21,8 +17,8 @@
   (println (format-commands {:table table})))
 
 (def table
-  [{:cmds ["list"]   :fn cli-graph/list-graphs   :desc "List graphs"}
-   {:cmds ["query"] :fn query :args->opts [:graph] :desc "Query graph"}
+  [{:cmds ["list"] :fn cli-graph/list-graphs :desc "List graphs"}
+   {:cmds ["show"] :fn cli-graph/show-graph :args->opts [:graph] :desc "Show graph info"}
    {:cmds []         :fn help}])
 
 (defn -main [& args]

deps/cli/src/logseq/cli/commands/graph.cljs

@@ -1,9 +1,40 @@
 (ns logseq.cli.commands.graph
   "Graph related commands"
-  (:require ["path" :as node-path]
+  (:require ["fs" :as fs]
+            ["path" :as node-path]
+            [cljs-time.coerce :as tc]
+            [clojure.pprint :as pprint]
             [clojure.string :as string]
+            [datascript.core :as d]
             [logseq.cli.common.graph :as cli-common-graph]
-            [logseq.common.config :as common-config]))
+            [logseq.common.config :as common-config]
+            [logseq.common.util.date-time :as date-time-util]
+            [logseq.db.common.sqlite :as common-sqlite]
+            [logseq.db.common.sqlite-cli :as sqlite-cli]))
+
+(defn ms->journal-title
+  [ms]
+  (date-time-util/format (tc/from-long ms) "MMM do, yyyy"))
+
+(defn show-graph
+  [{{:keys [graph]} :opts}]
+  (let [graph-dir (node-path/join (cli-common-graph/get-db-graphs-dir) (common-sqlite/sanitize-db-name graph))]
+    (if (fs/existsSync graph-dir)
+      (let [conn (sqlite-cli/open-db! (cli-common-graph/get-db-graphs-dir) (common-sqlite/sanitize-db-name graph))
+            kv-value #(:kv/value (d/entity @conn %))]
+        (pprint/print-table
+         (cond-> [{:name "Graph directory" :value graph-dir}
+                  {:name "Graph created at"
+                   :value (ms->journal-title (kv-value :logseq.kv/graph-created-at))}
+                  {:name "Graph created by commit"
+                   :value (str "https://github.com/logseq/logseq/commit/" (kv-value :logseq.kv/graph-git-sha))}
+                  {:name "Graph schema version" :value (kv-value :logseq.kv/schema-version)}
+                  {:name "Graph initial schema version" :value (kv-value :logseq.kv/graph-initial-schema-version)}]
+           (d/entity @conn :logseq.kv/import-type)
+           (conj {:name "Graph imported by" :value (kv-value :logseq.kv/import-type)}))))
+      (do
+        (println "Graph" (pr-str graph) "does not exist")
+        (js/process.exit 1)))))
 
 (defn list-graphs
   []