software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix titles

Browse Source
This commit is contained in:
Stavros Polymenis 2017-11-27 22:20:24 +00:00
parent 0a181f80ad
commit fe0ae40e86
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/logarion_cli.ml
View File

@ -123,8 +123,13 @@ let convert directory =
let notes = File.to_list L.note_lens archive.store in
let metas = File.to_list L.meta_lens archive.store in
let page_of_note = Converters.Template.note_page ~style:"static/main.css" "localhost" "title for now" in
let page_of_note_listing = Converters.Template.listing_page ~style:"static/main.css" ~from:0 ~n:1000 "localhost" "title for now" in
let page_of_note page =
let title = Note.(page.meta.Meta.title) in
Converters.Template.note_page ~style:"static/main.css" "localhost" title page
in
let page_of_note_listing =
Converters.Template.listing_page ~style:"static/main.css" ~from:0 ~n:1000 "localhost" "Index"
in
let path_of_note note = directory ^ "/" ^ Meta.string_alias Note.(note.meta.Meta.title) ^ ".html" in
let file_creation path content =
let out = open_out path in