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

make function

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-20 23:22:49 +01:00
parent 392dfd3692
commit 65dcc3f72e
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/ymd.ml
View File

@ -109,7 +109,30 @@ let of_string s =
{ meta = m; body = md_str }
else
{ blank_ymd with body = "Error parsing file" }
let make ?(author_name="") ?(author_email="") ?(date_published=None) ?(date_edited=None)
?(abstract="") ?(topics=[]) ?(keywords=[]) ?(categories=[]) ?(series=[])
title body =
{
meta = {
title;
topics;
keywords;
categories;
series;
abstract;
author = {
Author.name = author_name;
Author.email = author_email;
};
date = {
Date.edited = date_edited;
Date.published = date_published;
}
};
body
}
let to_string ymd =
let buf = Buffer.create (String.length ymd.body + 256) in
let buf_acc = Buffer.add_string buf in