let new_day_entry (v : Ed_sourceview.sourceview) args =
  let username = Cam_commands.safe_get_global "username" in 
  let usermail = Cam_commands.safe_get_global "usermail" in
  let date =
    let t = Unix.localtime (Unix.time ()) in
    Printf.sprintf "%04d-%02d-%02d"
      (t.Unix.tm_year + 1900) (t.Unix.tm_mon+1) t.Unix.tm_mday
  in
  v#set_location (0,0);
  let s = Printf.sprintf "%s  %s  <%s>\n\n\t* \n\n" 
    date username usermail
  in
  v#insert s