Documents By Category
hd_keywords {categorical listing of SQLite documents} {documents by category}
set prevHead {}
set lDoc {}
set cnt 0
proc doc {name url desc} {
global lDoc
lappend lDoc $name $url
}
proc heading {text tag {caption {}}} {
end_heading
set ::prevHead $text
}
proc end_heading {} {
global lDoc cnt prevHead
if {$prevHead==""} return
incr cnt
hd_puts "- "
hd_puts "▶ $prevHead\n"
hd_putsnl "
"
foreach {name url} $lDoc {
hd_putsnl "- $name"
}
hd_putsnl
set lDoc {}
}
source [file join $::DOC pages docsdata.tcl]
end_heading