type config = {
-
site_title : string;
-
site_description : string;
-
author : string;
-
base_url : string;
-
output_dir : string;
-
content_dir : string;
-
template_dir : string;
-
static_dir : string;
}
type page_metadata = {
-
title : string;
-
date : string option;
-
tags : string list;
-
summary : string option;
-
draft : bool;
}
type page = {
-
metadata :
page_metadata;
-
content : string;
-
url : string;
-
source_path : string;
}
val process_content :
string ->
page option
val escape_xml :
Stdlib.String.t
->
string
val take :
int ->
'a list
->
'a list