d89a2c061d
Converter - type selection - subdir conversion - htm extension Gemini - index.gmi - topics and latest - gmi.atom feed Add pull (http(s)) operation - peers.pub.conf and peers.priv.conf HTML5 format & fixes by Novaburst Phony target (thanks Gergely) May Basic unit renamed from Note to Text. New modular text-parser, internal to Logarion, for generic notation parsing. The default input format is now a much plainer text. Logarion created texts have part of the UUID in filename. Logarion's index re-written in Messagepack format. Removed `indices` command. They are generated during `convert`. git-svn-id: file:///srv/svn/repo/kosuzu/trunk@2 eb64cd80-c68d-6f47-b6a3-0ada418499da
9 lines
479 B
OCaml
9 lines
479 B
OCaml
type t = { created: Ptime.t option; edited: Ptime.t option }
|
|
let compare = compare
|
|
let rfc_string date = match date with Some t -> Ptime.to_rfc3339 t | None -> ""
|
|
let of_string (rfc : string) = match Ptime.of_rfc3339 rfc with Ok (t,_,_) -> Some t | Error _ -> None
|
|
let listing date = if Option.is_some date.edited then date.edited else date.created
|
|
let pretty_date = function
|
|
| Some t -> Ptime.to_date t |> fun (y, m, d) -> Printf.sprintf "%04d-%02d-%02d" y m d
|
|
| None -> ""
|