let set_project_name p name = p.name := name