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
18 lines
769 B
OCaml
18 lines
769 B
OCaml
module KV = Map.Make (String)
|
|
|
|
module type T = sig
|
|
type t
|
|
type item_t
|
|
type archive_t = { name: string; archivists: Person.Set.t; id: Id.t; kv: string KV.t; store: t }
|
|
type record_t = Text.t * item_t
|
|
val of_path: string -> (archive_t, string) result
|
|
val newest: record_t -> record_t -> int
|
|
val oldest: record_t -> record_t -> int
|
|
val with_id: archive_t -> Id.t -> (Text.t option, Text.t list) result
|
|
val with_text: archive_t -> Text.t -> (string * Text.t, string) result
|
|
val iter: ?predicate:(Text.t -> bool) -> ?order:(record_t -> record_t -> int) -> ?number:int
|
|
-> (record_t -> unit) -> archive_t -> unit
|
|
val fold: ?predicate:(Text.t -> bool) -> ?order:(record_t -> record_t -> int) -> ?number:int
|
|
-> ('a -> record_t -> 'a) -> 'a -> archive_t -> 'a
|
|
end
|