fix: normalize page names after parsing files

This commit is contained in:
Tienson Qin
2021-12-27 21:35:14 +08:00
parent 417acc58ae
commit 0770893217
3 changed files with 10 additions and 8 deletions

View File

@@ -255,7 +255,8 @@
"Convert journal file name to user' custom date format"
[original-page-name]
(when original-page-name
(let [page-name (string/lower-case original-page-name)
(let [page-name (-> (string/lower-case original-page-name)
(util/page-name-sanity))
day (date/journal-title->int page-name)]
(if day
(let [original-page-name (date/int->journal-title day)]