software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initialise to .logarion

Browse Source
This commit is contained in:
Stavros Polymenis 2017-10-27 13:29:34 +01:00
parent 9acf043870
commit f823e3bc71
1 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/logarion_cli.ml
View File

@ -7,7 +7,7 @@ let conf () =
let module Config = Confix.Config.Make (Confix.ConfixToml) in let module Config = Confix.Config.Make (Confix.ConfixToml) in
let archive_res = let archive_res =
let open Confix.Config in let open Confix.Config in
Confix.Config.Path.with_file "config.toml" Confix.Config.Path.with_file ".logarion/config.toml"
&> Config.from_path &> Config.from_path
|> Config.to_record C.of_config |> Config.to_record C.of_config
in in
@ -20,17 +20,32 @@ let init force =
| [] -> () | [] -> ()
| (dir,descr)::tl -> | (dir,descr)::tl ->
match Bos.OS.Dir.create (Fpath.v dir) with match Bos.OS.Dir.create (Fpath.v dir) with
| Ok true -> print_endline ("Created empty " ^ descr); create_dirs tl | Ok true -> print_endline ("Created " ^ descr ^ " directory in " ^ dir); create_dirs tl
| Ok false -> print_endline ("Reinitialise existing " ^ descr); create_dirs tl | Ok false -> print_endline ("Reinitialise existing " ^ descr ^ " directory in " ^ dir); create_dirs tl
| Error (`Msg msg) -> prerr_endline @@ "Failed making " ^ descr ^ ". " ^ msg | Error (`Msg msg) -> prerr_endline @@ "Failed making " ^ descr ^ ". " ^ msg
in in
let rec make_copies = function
| [] -> ()
| (source,dest)::tl ->
let recursive = true in
match Bos.OS.Cmd.run (Bos.Cmd.(v "cp" %% (on recursive @@ v "-r") % source % dest)) with
| Ok () -> make_copies tl
| Error (`Msg msg) -> prerr_endline msg
in
let dirs = [ let dirs = [
".logarion", "Logarion directory"; ".logarion", "Logarion";
".logarion/static", "static file directory"; ".logarion/static", "static files";
".logarion/html-templates", "template directory"; ".logarion/html-templates", "templates";
] ]
in in
create_dirs dirs let copies = [
"config.toml", ".logarion/";
"share/static", ".logarion/";
"share/html_templates", ".logarion/";
]
in
create_dirs dirs;
make_copies copies
let init_term = let init_term =
let force = let force =