|
Last change
on this file since 75 was 73, checked in by Izuru Yakumo, 8 months ago |
|
Because sweet girls are the best, officially rebranding Logarion to Kosuzu
Signed-off-by: Izuru Yakumo <yakumo.izuru@…>
|
|
File size:
883 bytes
|
| Rev | Line | |
|---|
| [73] | 1 | let init_repo =
|
|---|
| 2 | print_endline "No txt.conf found";
|
|---|
| 3 | print_endline "It's required for the repository name and id.";
|
|---|
| 4 | print_endline "Create one? (y/n)";
|
|---|
| 5 | match input_line stdin with
|
|---|
| 6 | |"y"->
|
|---|
| 7 | let title =
|
|---|
| 8 | print_endline "Title for repository: ";
|
|---|
| 9 | input_line stdin in
|
|---|
| 10 | let authors =
|
|---|
| 11 | print_endline "Authors (format: name <name@email> <http://website>): ";
|
|---|
| 12 | input_line stdin in
|
|---|
| 13 | Kosuzu.File_store.file "txt.conf"
|
|---|
| 14 | (Printf.sprintf "Id:%s\nTitle: %s\nAuthors: %s\n" (Kosuzu.Id.generate ()) title authors);
|
|---|
| 15 | Kosuzu.File_store.of_kv_file ()
|
|---|
| 16 | | _ ->
|
|---|
| 17 | print_endline "Aborting..."; exit 1
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
