From 60251b6bb42ad1e98d796ffc7e73ce71d373b998 Mon Sep 17 00:00:00 2001 From: Tienson Qin Date: Sun, 29 Nov 2020 21:08:39 +0800 Subject: [PATCH] fix: remove empty pages when importing --- src/main/frontend/db.cljs | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/main/frontend/db.cljs b/src/main/frontend/db.cljs index 6b69e69e65..8ffb86e7ba 100644 --- a/src/main/frontend/db.cljs +++ b/src/main/frontend/db.cljs @@ -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]