13 lines
357 B
OCaml
13 lines
357 B
OCaml
let ( let* ) = Result.bind
|
|
|
|
module UserPage = struct
|
|
type t = { frontmatter : Frontmatter.t; content : string }
|
|
|
|
let of_string md =
|
|
let yaml, content = Frontmatter.extract_frontmatter md in
|
|
let* frontmatter = Frontmatter.parse_frontmatter yaml in
|
|
Ok { frontmatter; content }
|
|
|
|
let of_file filepath = Eio.Path.load filepath |> of_string
|
|
end
|