|
@@ -62,7 +62,7 @@
|
|
|
[blocks root-id]
|
|
[blocks root-id]
|
|
|
(let [original-blocks blocks
|
|
(let [original-blocks blocks
|
|
|
blocks (atom blocks)
|
|
blocks (atom blocks)
|
|
|
- [page? root] (get-root-and-page root-id)
|
|
|
|
|
|
|
+ [page? root] (get-root-and-page (str root-id))
|
|
|
result (blocks->vec-tree-aux blocks root)]
|
|
result (blocks->vec-tree-aux blocks root)]
|
|
|
(cond
|
|
(cond
|
|
|
(not root) ; custom query
|
|
(not root) ; custom query
|