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] ()