|
Last change
on this file since 76 was 76, checked in by Izuru Yakumo, 8 months ago |
|
Move documentation to Suzunaan software library, stop assuming txt.conf doesn't exist in txt_init
Signed-off-by: Izuru Yakumo <yakumo.izuru@…>
|
|
File size:
892 bytes
|
| Line | |
|---|
| 1 | let init_repo =
|
|---|
| 2 | print_endline "Initializing repository...";
|
|---|
| 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.
