kaustubh/rechiko
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add userpage

Browse Source
This commit is contained in:
Kaustubh Maske Patil 2025-06-01 01:05:21 +05:30
parent a6fd0fcc2c
commit 1780e5c6a6
3 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/page.ml
View File

@ -1,3 +1,12 @@
let ( let* ) = Result.bind
module UserPage = struct module UserPage = struct
type t = { frontmatter : Frontmatter.t; content : string } 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 end

6
lib/page.mli Normal file
View File

@ -0,0 +1,6 @@
module UserPage : sig
type t = { frontmatter : Frontmatter.t; content : string }
val of_string : string -> (t, string) Result.t
val of_file : 'a Eio.Path.t -> (t, string) Result.t
end