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
33
34
35
36
37
38
39
40
41
42
43
let home_dir = ref @@ lazy (Sys.getenv "HOME")
let base_dir =
  ref
  @@ lazy
       (Option.value (Sys.getenv_opt "PASSAGE_DIR")
          ~default:
            (List.fold_left (fun accum s -> Filename.concat accum s) (Lazy.force !home_dir) [ ".config"; "passage" ]))

(* Paths indicated by config values may not exist, and will result in an exn raised
   by ExtUnix.All.realpath. Therefore, we lazily evaluate these values so that exns
   are raised only when we do use these paths.
*)
let keys_dir =
  ref
  @@ lazy
       (let path =
          Option.value (Sys.getenv_opt "PASSAGE_KEYS") ~default:(Filename.concat (Lazy.force !base_dir) "keys")
        in
        try ExtUnix.All.realpath path
        with Unix.Unix_error (Unix.ENOENT, "realpath", _) ->
          Printf.ksprintf failwith "keys directory (%s) is not initialised. Is passage setup? Try 'passage init'." path)

let secrets_dir =
  ref
  @@ lazy
       (let path =
          Option.value (Sys.getenv_opt "PASSAGE_SECRETS") ~default:(Filename.concat (Lazy.force !base_dir) "secrets")
        in
        try ExtUnix.All.realpath path
        with Unix.Unix_error (Unix.ENOENT, "realpath", _) ->
          Printf.ksprintf failwith "secrets directory (%s) is not initialised. Is passage setup? Try 'passage init'."
            path)

let identity_file =
  ref
  @@ lazy
       (let path =
          Option.value (Sys.getenv_opt "PASSAGE_IDENTITY")
            ~default:(Filename.concat (Lazy.force !base_dir) "identity.key")
        in
        try ExtUnix.All.realpath path
        with Unix.Unix_error (Unix.ENOENT, "realpath", _) ->
          Printf.ksprintf failwith "no identity file found (%s). Is passage setup? Try 'passage init'." path)