|
Last change
on this file since 33 was 20, checked in by fox, 2 years ago |
|
Begin unifying conf and pck code; inline CSS; optional CSS & Atom
|
|
File size:
414 bytes
|
| Line | |
|---|
| 1 | open Logarion
|
|---|
| 2 | type t = {
|
|---|
| 3 | id: string;
|
|---|
| 4 | dir: string;
|
|---|
| 5 | kv: string Store.KV.t;
|
|---|
| 6 | topic_roots: string list;
|
|---|
| 7 | topics: (String_set.t * String_set.t) Topic_set.Map.t;
|
|---|
| 8 | texts: Text.t list
|
|---|
| 9 | }
|
|---|
| 10 |
|
|---|
| 11 | type fn_t = {
|
|---|
| 12 | ext: string;
|
|---|
| 13 | page: (t -> Logarion.Text.t -> string) option;
|
|---|
| 14 | indices: (t -> unit) option;
|
|---|
| 15 | }
|
|---|
| 16 |
|
|---|
| 17 | let empty () = {
|
|---|
| 18 | id = ""; dir = "";
|
|---|
| 19 | kv = Store.KV.empty;
|
|---|
| 20 | topic_roots = [];
|
|---|
| 21 | topics = Topic_set.Map.empty;
|
|---|
| 22 | texts = []
|
|---|
| 23 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
