let tdl_of_svn_log ~login ~title ~dir =
let re_login = Str.regexp login in
let entries = parse_svn_log dir in
prerr_endline (Printf.sprintf "%d entries" (List.length entries));
let entries = List.filter
(fun (_,login,_,_) -> Str.string_match re_login login 0)
entries
in
prerr_endline (Printf.sprintf "%d entries after filtering" (List.length entries));
let items = List.map tdl_item_of_entry entries in
let g = Tdl.group ~title ~items () in
Tdl.group ~title: dir ~groups: [g] ()