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

10
lib/file_store.ml
View file

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

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 let fold fn init = match Sys.readdir text_dir with
| exception (Sys_error msg) -> prerr_endline msg | exception (Sys_error msg) -> prerr_endline msg