Begin unifying conf and pck code; inline CSS; optional CSS & Atom
git-svn-id: file:///srv/svn/repo/kosuzu/trunk@20 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
open Logarion
|
||||
type t = {
|
||||
id: string; dir: string;
|
||||
id: string;
|
||||
dir: string;
|
||||
kv: string Store.KV.t;
|
||||
topic_roots: string list;
|
||||
topics: (String_set.t * String_set.t) Topic_set.Map.t;
|
||||
@@ -12,3 +13,11 @@ type fn_t = {
|
||||
page: (t -> Logarion.Text.t -> string) option;
|
||||
indices: (t -> unit) option;
|
||||
}
|
||||
|
||||
let empty () = {
|
||||
id = ""; dir = "";
|
||||
kv = Store.KV.empty;
|
||||
topic_roots = [];
|
||||
topics = Topic_set.Map.empty;
|
||||
texts = []
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user