clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-29 16:36:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance: add export edn graph as file

Browse Source 
Remove command version of export which is a less useful dev tool
than what's possible with cli
This commit is contained in:
Gabriel Horner
2025-03-17 23:20:01 -04:00
parent 4d37ce8565
commit 06b3bba5fc
8 changed files with 40 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
src/main/frontend/handler/db_based/export.cljs
View File

@@ -2,12 +2,15 @@
"Handles DB graph exports and imports across graphs"
(:require [cljs.pprint :as pprint]
[clojure.edn :as edn]
[clojure.string :as string]
[frontend.config :as config]
[frontend.db :as db]
[frontend.handler.notification :as notification]
[frontend.handler.ui :as ui-handler]
[frontend.state :as state]
[frontend.util :as util]
[frontend.util.page :as page-util]
[goog.dom :as gdom]
[logseq.db :as ldb]
[logseq.db.sqlite.export :as sqlite-export]
[logseq.shui.ui :as shui]
@@ -61,14 +64,35 @@
(count (:properties result)) " properties"))
(notification/show! "Copied graphs's ontology data!" :success))))
(defn ^:export export-graph-data []
(defn- export-graph-edn-data []
(when-let [^Object worker @state/*db-worker]
(p/let [result* (.export-edn worker (state/get-current-repo) (ldb/write-transit-str {:export-type :graph}))
(p/let [result* (.export-edn worker
(state/get-current-repo)
(ldb/write-transit-str {:export-type :graph
:graph-options {:include-timestamps? true}}))
result (ldb/read-transit-str result*)
pull-data (with-out-str (pprint/pprint result))]
(.writeText js/navigator.clipboard pull-data)
(println pull-data)
(notification/show! "Copied graphs's data!" :success))))
pull-data)))
;; Copied from handler.export
(defn- file-name [repo extension]
(-> (string/replace repo config/local-db-prefix "")
(string/replace #"^/+" "")
(str "_" (quot (util/time-ms) 1000))
(str "." (string/lower-case (name extension)))))
(defn export-repo-as-db-edn!
[repo]
(p/let [edn-str (export-graph-edn-data)]
(when edn-str
(let [data-str (some->> edn-str
js/encodeURIComponent
(str "data:text/edn;charset=utf-8,"))
filename (file-name repo :edn)]
(when-let [anchor (gdom/getElement "download-as-db-edn")]
(.setAttribute anchor "href" data-str)
(.setAttribute anchor "download" filename)
(.click anchor))))))
(defn- import-submit [import-inputs _e]
(let [export-map (try (edn/read-string (:import-data @import-inputs)) (catch :default _err ::invalid-import))