source: code/trunk/init/init.ml@ 72

open Logarion
let init_repo = 
        print_endline "No txt.conf found";
        print_endline "It's required for the repository name and id.";
        print_endline "Create one? (y/n)";
        match input_line stdin with
        |"y"->
                        let title =
                                print_endline "Title for repository: ";
                                input_line stdin in
                        let authors =
                                print_endline "Authors (format: name <name@email> <http://website>): ";
                                input_line stdin in
                        Logarion.File_store.file "txt.conf" 
                        (Printf.sprintf "Id:%s\nTitle: %s\nAuthors: %s\n" (Logarion.Id.generate ()) title authors);
                        Logarion.File_store.of_kv_file ()
        | _ ->
                        print_endline "Aborting..."; exit 1