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

introducing logarion type and refactoring

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-17 22:37:27 +01:00
parent 8818004f35
commit b9a1ea7f95
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/logarion.ml
View File

@ -1,4 +1,4 @@
open Ymd type logarion = { title : string }
let load_file f = let load_file f =
let ic = open_in f in let ic = open_in f in
@ -10,6 +10,7 @@ let load_file f =
let of_file s = let of_file s =
let segments = Re_str.(split (regexp "^---$")) (load_file s) in let segments = Re_str.(split (regexp "^---$")) (load_file s) in
let open Ymd in
if List.length segments = 2 then if List.length segments = 2 then
let yaml_str = List.nth segments 0 in let yaml_str = List.nth segments 0 in
let md_str = List.nth segments 1 in let md_str = List.nth segments 1 in
@ -20,9 +21,9 @@ let of_file s =
let to_file ymd = let to_file ymd =
let open Lwt.Infix in let open Lwt.Infix in
let path = "ymd/" ^ (filename ymd) in let path = "ymd/" ^ (Ymd.filename ymd) in
Lwt_io.with_file ~mode:Lwt_io.output path (fun out -> Lwt_io.with_file ~mode:Lwt_io.output path (fun out ->
Lwt_io.write out (to_string ymd) Lwt_io.write out (Ymd.to_string ymd)
) )
let file_meta_pairs () = let file_meta_pairs () =
@ -33,6 +34,7 @@ let file_meta_pairs () =
List.map t ymds List.map t ymds
let latest_file_meta_pair fragment = let latest_file_meta_pair fragment =
let open Ymd in
let latest p (path', meta') = let latest p (path', meta') =
if not @@ BatString.exists (meta'.title) fragment then None if not @@ BatString.exists (meta'.title) fragment then None
else else