clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-01 19:01:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: remove empty pages when importing

Browse Source
This commit is contained in:
Tienson Qin
2020-11-29 21:08:39 +08:00
parent 68308dea63
commit 60251b6bb4
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/main/frontend/db.cljs
View File

@@ -1487,13 +1487,14 @@
(defn extract-all-blocks-pages
[repo-url contents]
(let [result (map
(fn [[file content] contents]
(println "Parsing : " file)
(when content
(let [utf8-content (utf8/encode content)]
(extract-blocks-pages repo-url file content utf8-content))))
contents)
(let [result (->> contents
(map
(fn [[file content] contents]
(println "Parsing : " file)
(when content
(let [utf8-content (utf8/encode content)]
(extract-blocks-pages repo-url file content utf8-content)))))
(remove empty?))
[pages block-ids blocks] (apply map concat result)
block-ids-set (set block-ids)
blocks (map (fn [b]