fix: paste query block should create new block

related to logseq/db-test#572

Author: tiensonqin

deps/db/src/logseq/db.cljs

@@ -199,7 +199,9 @@
              :as opts}]
   (if-let [children (sort-by-order
                      (if include-property-block?
-                       (entity-plus/lookup-kv-then-entity entity :block/_raw-parent)
+                       (let [children (entity-plus/lookup-kv-then-entity entity :block/_raw-parent)]
+                         (concat children
+                                 (keep (fn [c] (:logseq.property/query c)) children)))
                        (entity-plus/lookup-kv-then-entity entity :block/_parent)))]
     (cons entity (mapcat #(get-block-and-children-aux % opts) children))
     [entity]))

deps/outliner/src/logseq/outliner/core.cljs

@@ -795,23 +795,25 @@
                                 :or {update-timestamps? true}}]
   {:pre [(seq blocks)
          (m/validate block-map-or-entity target-block)]}
-  (let [blocks (keep (fn [b]
-                       (if-let [eid (or (:db/id b)
-                                        (when-let [id (:block/uuid b)]
-                                          [:block/uuid id]))]
-                         (let [b' (if-let [e (if (de/entity? b) b (d/entity db eid))]
-                                    (merge
-                                     (into {} e)
-                                     {:db/id (:db/id e)
-                                      :block/title (or (:block/raw-title e) (:block/title e))}
+  (let [blocks (->>
+                (keep (fn [b]
+                        (if-let [eid (or (:db/id b)
+                                         (when-let [id (:block/uuid b)]
+                                           [:block/uuid id]))]
+                          (let [b' (if-let [e (if (de/entity? b) b (d/entity db eid))]
+                                     (merge
+                                      (into {} e)
+                                      {:db/id (:db/id e)
+                                       :block/title (or (:block/raw-title e) (:block/title e))}
+                                      b)
                                      b)
-                                    b)
-                               dissoc-keys (concat [:block/tx-id]
-                                                   (when (contains? #{:insert-template-blocks :paste} outliner-op)
-                                                     [:block/refs]))]
-                           (apply dissoc b' dissoc-keys))
-                         b))
-                     blocks)
+                                dissoc-keys (concat [:block/tx-id]
+                                                    (when (contains? #{:insert-template-blocks :paste} outliner-op)
+                                                      [:block/refs]))]
+                            (apply dissoc b' dissoc-keys))
+                          b))
+                      blocks)
+                (remove ldb/asset?))
         [target-block sibling?] (get-target-block db blocks target-block opts)
         _ (assert (some? target-block) (str "Invalid target: " target-block))
         replace-empty-target? (if (and (some? replace-empty-target?)