|
|
@@ -23,10 +23,10 @@
|
|
|
(defn uuid->uid-map []
|
|
|
(let [db (db/get-db (state/get-current-repo))]
|
|
|
(->>
|
|
|
- (d/q db '[:find (pull ?r [:block/uuid])
|
|
|
- :in $
|
|
|
- :where
|
|
|
- [?b :block/refs ?r]])
|
|
|
+ (d/q '[:find (pull ?r [:block/uuid])
|
|
|
+ :in $
|
|
|
+ :where
|
|
|
+ [?b :block/refs ?r]] db)
|
|
|
(map (comp :block/uuid first))
|
|
|
(distinct)
|
|
|
(map (fn [uuid] [uuid (nano-id)]))
|