Merge pull request #2038 from neotyk/fix/copy-block-tree

fix: make copy block tree great (again?)
athensresearch · Feb 23, 2022 · f7eddc2 · f7eddc2
2 parents bd0441c + 6f181e7
commit f7eddc2
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/cljc/athens/common_db.cljc b/src/cljc/athens/common_db.cljc
@@ -268,6 +268,13 @@
       (conj :node/title :page/sidebar)))
 
 
+(defn get-block-document
+  "Fetches whole block and whole children"
+  [db id]
+  (->> (d/pull db block-document-pull-vector id)
+       sort-block-children))
+
+
 (defn get-page-uid
   "Finds page `:block/uid` by `page-title`."
   [db page-title]

diff --git a/src/cljs/athens/listeners.cljs b/src/cljs/athens/listeners.cljs
@@ -186,7 +186,7 @@
   (let [uids @(subscribe [::select-subs/items])]
     (when (not-empty uids)
       (let [copy-data      (->> uids
-                                (map #(db/get-block [:block/uid %]))
+                                (map #(common-db/get-block-document @db/dsdb [:block/uid %]))
                                 (map #(blocks-to-clipboard-data 0 %))
                                 (apply str))
             clipboard-data (.. e -event_ -clipboardData)