Source file `Config.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(*
 * SPDX-FileCopyrightText: 2024 The Forester Project Contributors
 *
 * SPDX-License-Identifier: GPL-3.0-or-later
 *)

type foreign = {
  path: string;
  route_locally: bool
}
[@@deriving show, repr]

type t = {
  trees: string list;
  assets: string list;
  foreign: foreign list;
  url: URI.t;
  home: URI.t;
}
[@@deriving show, repr]

let default_url = URI.of_string_exn "http://forest.local/"

let default ?(url = default_url) () : t = {
  trees = ["trees"];
  assets = [];
  foreign = [];
  url;
  home = URI_scheme.named_uri ~base: url "index";
}

let home_uri config = config.home