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

Entry access functions improvement

Browse Source
This commit is contained in:
Stavros Polymenis 2017-01-15 10:28:08 +00:00
parent 76825f2524
commit e6aef0f591
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/logarion.ml
View File

@ -80,11 +80,12 @@ module Entry = struct
open Ymd.Meta
type t = { filename : articlefilename_t; attributes : Ymd.Meta.t } [@@deriving lens]
let title entry = entry.attributes.title
let date entry = entry.attributes.date
let date_published entry = entry.attributes.date.Ymd.Date.published
let published entry = Ymd.CategorySet.published entry.attributes.categories
let listed entry = Ymd.CategorySet.listed entry.attributes.categories
let title e = e.attributes.title
let date e = e.attributes.date
let date_edited e = e.attributes.date.Ymd.Date.edited
let date_published e = e.attributes.date.Ymd.Date.published
let published e = Ymd.CategorySet.published e.attributes.categories
let listed e = Ymd.CategorySet.listed e.attributes.categories
let of_filename repo (s : articlefilename_t) =
let ymd = File.ymd (articlefilename_string (article_path repo s)) in