proc menulink {url name cls} {
upvar current_page current
upvar home home
if {[string range $url 0 [string length $current]] eq "/$current"} {
html "$name\n"
} else {
html "$name\n"
}
}
html "☰"
menulink $index_page Home {}
if {[anycap jor]} {
menulink /timeline Timeline {}
}
if {[hascap oh]} {
menulink /dir?ci=tip Files desktoponly
}
if {[hascap o]} {
menulink /brlist Branches desktoponly
menulink /taglist Tags wideonly
}
if {[anycap 23456] || [anoncap 2] || [anoncap 3]} {
menulink /forum Forum wideonly
}
if {[hascap r]} {
menulink /ticket Tickets wideonly
}
if {[hascap j]} {
menulink /wiki Wiki wideonly
}
if {[hascap s]} {
menulink /setup Admin {}
} elseif {[hascap a]} {
menulink /setup_ulist Users {}
}