Browse Source

fix: don't create new card page when importing file graph

fix https://github.com/logseq/db-test/issues/521
Tienson Qin 4 days ago
parent
commit
ace82d7151
1 changed files with 10 additions and 8 deletions
  1. 10 8
      deps/graph-parser/src/logseq/graph_parser/exporter.cljs

+ 10 - 8
deps/graph-parser/src/logseq/graph_parser/exporter.cljs

@@ -1382,14 +1382,16 @@
                    (or (all-existing-page-uuids (:block/name page))
                        (throw (ex-info (str "No uuid found for existing namespace page " (pr-str (:block/name page)))
                                        (select-keys page [:block/name :block/namespace]))))))
-          (cond-> page
-            ;; fix extract incorrectly assigning new user pages built-in uuids
-            (contains? all-built-in-names (keyword (:block/name page)))
-            (assoc :block/uuid (d/squuid))
-            ;; only happens for few file built-ins like tags and alias
-            (and (contains? all-built-in-names (keyword (:block/name page)))
-                 (not (:block/tags page)))
-            (assoc :block/tags [:logseq.class/Page])))]
+          (let [built-in-name? (and (contains? all-built-in-names (keyword (:block/name page)))
+                                    ;; Don't create new card page
+                                    (not (contains? #{:card} (keyword (:block/name page)))))]
+            (cond-> page
+              ;; fix extract incorrectly assigning new user pages built-in uuids
+              built-in-name?
+              (assoc :block/uuid (d/squuid))
+              ;; only happens for few file built-ins like tags and alias
+              (and built-in-name? (not (:block/tags page)))
+              (assoc :block/tags [:logseq.class/Page]))))]
     (cond-> page'
       true
       (dissoc :block/format)