silo: onset

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/working_directory.ml b/lib/working_directory.ml
index fec8934..21aa0cd 100644
--- a/lib/working_directory.ml
+++ b/lib/working_directory.ml
@@ -57,6 +57,19 @@ let set_up_ignore ~dir ~content =
 	Eio.Buf_write.with_flow flow @@ fun writer ->
 	Eio.Buf_write.string writer content
 
+let silo_dir = "silo"
+
+let set_up_silo () =
+	let dir = Eio.Path.(get () / silo_dir) in
+	match Eio.Path.kind ~follow: true dir with
+	| `Directory ->
+		()
+	| `Not_found ->
+		Logs.info (fun m -> m "Making Nixtamal’s silo directory%a" pp_native_path dir);
+		Eio.Path.mkdirs ~perm: 0o755 dir;
+	| _ ->
+		failwith @@ Fmt.str "There is a Nixtamal path, but is not a directory%a" pp_native_path dir
+
 let set_up_root () =
 	let dir = get () in
 	match Eio.Path.kind ~follow: true dir with
@@ -64,6 +77,7 @@ let set_up_root () =
 		Logs.info (fun m -> m "Making Nixtamal directory%a" pp_native_path dir);
 		Eio.Path.mkdirs ~perm: 0o755 dir;
 		set_up_editor_config ~dir ~content: root_editor_config_content;
+		set_up_silo ();
 		set_up_ignore ~dir ~content: root_ignore_content
 	| `Directory ->
 		Logs.warn (fun m -> m "Nixtamal directory already exists%a" pp_native_path dir)