#!/usr/bin/wapptclsh
#
proc wapp-default {} {
  wapp-trim {
    <h1>Fossil Self-Hosting With Built-In Skins</h1>
    <p>The following links run the Fossil self-hosting repository using
    the various built-in skins.  Use these for testing the built-in
    skins.</p>

    <p>The <a href='/fossil'>main self-hosting repository</a> uses a
    customized skin, different from all of the built-ins shown below.</p>

    <ol>
  }
  set parentdir [file dir [wapp-param SCRIPT_NAME]]
  foreach file [lsort [glob -nocomplain *]] {
    if {[regexp {[^a-z0-9_]} $file]} continue
    if {![file executable $file]} continue
    set url $parentdir/$file/timeline
    wapp-subst {<li><a href='%url($url)'>%html($file)</a>\n}
  }
  wapp-subst {</ol>\n}
}
wapp-start $argv