let tdl_item_of_entry (revid, login, d, comment) =
  let (y,m,d,h,mi,s,tz) = d in
  let date = {
      Tdl.year = y;
      month = m ;
      day = d ;
      hour = h;
      minute = m;
      second = s;
      zone = tz * 60;
      week_day = - 1;
    }
  in
  let title = Printf.sprintf "[r%d] %s"
    revid
    (chop_n_char 40 (Str.global_replace (Str.regexp "\n\008*""; " comment))
  in
  Tdl.item ~title ~enddate: date ~date ~desc: comment ~state: Tdl.Done ()