|
|
@@ -263,7 +263,7 @@
|
|
|
(if (and (:block/pre-block? block)
|
|
|
(seq (:block/properties block)))
|
|
|
(let [page-properties (:block/properties block)
|
|
|
- str->page (fn [n] {:block/name (string/lower-case n) :block/original-name n})
|
|
|
+ str->page (fn [n] (block/page-name->map n true))
|
|
|
refs (->> page-properties
|
|
|
(filter (fn [[_ v]] (coll? v)))
|
|
|
(vals)
|