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