orbifx/logarion
1
1
Fork 0
Code Pull requests Releases Activity

Txt pull puts peer texts in $txtdir/peers

Browse source
This commit is contained in:
orbifx 2022-10-21 20:07:45 +01:00
parent 7ce741cf56
commit e471b6c9c2
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/file_store.ml
View file

@ -3,11 +3,9 @@ type item_t = t list
type record_t = Text.t * item_t
let extension = ".txt"
let def_dir () =
let share = Sys.getenv "HOME" ^ "/.local/share/texts/" in
try Sys.getenv "txtdir" with Not_found ->
match Sys.is_directory share with
| true -> share
let def_dir () = try Sys.getenv "txtdir" with Not_found ->
let share = Filename.concat (Sys.getenv "HOME") ".local/share/texts/" in
match Sys.is_directory share with true -> share
| false | exception (Sys_error _) -> "."
let to_string f =

2
lib/peers.ml
View file

@ -1,4 +1,4 @@
let text_dir = Filename.concat (Sys.getenv "HOME") ".local/share/texts"
let text_dir = Filename.concat (File_store.def_dir ()) "peers"
let fold fn init = match Sys.readdir text_dir with
| exception (Sys_error msg) -> prerr_endline msg