global mainmenu
set mainmenu ""

proc mainmenu.add {name link} {
  global mainmenu
  lappend mainmenu [list $name $link]
  }

proc mainmenu.html {} {
  global mainmenu
  set htmlout ""
  foreach entry $mainmenu {
    htmlout "<a href=\"[lindex $entry 1]\">[lindex $entry 0]</a><br>"
    }
  return $htmlout
  }