|
|
@@ -235,7 +235,9 @@
|
|
|
(let [_ (when verbose (println "Parsing start: " file))
|
|
|
{:keys [pages blocks]} (gp-util/safe-read-string content)
|
|
|
page-block (first pages)
|
|
|
- page-name (filepath->page-name file)
|
|
|
+ page-name (or (:block/original-name page-block)
|
|
|
+ (:block/name page-block)
|
|
|
+ (filepath->page-name file))
|
|
|
page-original-name (-> (:block/original-name page-block)
|
|
|
(#(cond (nil? %) page-name
|
|
|
(= (gp-util/page-name-sanity-lc %)
|