clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-02 09:56:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance: add acceptance test for file to db graph import

Browse Source 
Part of LOG-3092
This commit is contained in:
Gabriel Horner
2024-06-26 15:36:02 -04:00
parent 51a2c1425f
commit e619874dc4
8 changed files with 551 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
deps/graph-parser/script/db_import.cljs vendored
View File

@@ -39,21 +39,24 @@
_ (fsp/mkdir parent-dir #js {:recursive true})]
(fsp/copyFile (:path file) (node-path/join parent-dir (node-path/basename (:path file))))))
(defn- notify-user [m]
(println (:msg m))
(println "Ex-data:" (pr-str (dissoc (:ex-data m) :error)))
(println "Stacktrace:")
(if-let [stack (some-> (get-in m [:ex-data :error]) ex-data :sci.impl/callstack deref)]
(println (string/join
"\n"
(map
#(str (:file %) (when (:line %) (str ":" (:line %)))
" calls #'"
(str (get-in % [:sci.impl/f-meta :ns]) "/" (get-in % [:sci.impl/f-meta :name])))
stack)))
(println (.-stack (get-in m [:ex-data :error])))))
(def default-export-options
{;; common options
:rpath-key ::rpath
:notify-user (fn notify-user [m]
(println (:msg m))
(println "Ex-data:" (pr-str (dissoc (:ex-data m) :error)))
(when-let [stack (some-> (get-in m [:ex-data :error]) ex-data :sci.impl/callstack deref)]
(println "Stacktrace:")
(println (string/join
"\n"
(map
#(str (:file %) (when (:line %) (str ":" (:line %)))
" calls #'"
(str (get-in % [:sci.impl/f-meta :ns]) "/" (get-in % [:sci.impl/f-meta :name])))
stack)))))
:notify-user notify-user
:<read-file <read-file
;; :set-ui-state prn
;; config file options