Fossil

**         -t|--technote DATETIME      Specifies the timestamp of
**                                     the technote to be created or
**                                     updated.
**         --technote-tags TAGS        The set of tags for a technote.
**         --technote-bgcolor COLOR    The color used for the technote
**                                     on the timeline.
**
**    %fossil wiki list ?OPTIONS?
**    %fossil wiki ls ?OPTIONS?
**
**       Lists all wiki entries, one per line, ordered
**       case-insensitively by name. 
**
**       Options:
**         --technote                  Technotes will be listed instead of
**                                     pages. The technotes will be in order
**                                     of timestamp with the most recent
**                                     first.
**         --show-artifact-ids         The artifact id of the wiki page or 
**                                     tech note will be listed along side the
**                                     page name or timestamp. The artifact id
**                                     will be the first word on each line.
**
*/
void wiki_cmd(void){
  int n;
  db_find_and_open_repository(0, 0);
  if( g.argc<3 ){
    goto wiki_cmd_usage;

    if( g.argc!=5 ){
      usage("delete PAGENAME");
    }
    fossil_fatal("delete not yet implemented.");
  }else if(( strncmp(g.argv[2],"list",n)==0 )
          || ( strncmp(g.argv[2],"ls",n)==0 )){
    Stmt q;
    int showIds = find_option("show-artifact-ids","s",0)!=0;

    if ( !find_option("technote","t",0) ){
      db_prepare(&q,
        "SELECT substr(t.tagname, 6), b.uuid" 
         " FROM tag t, tagxref x, blob b"
        " WHERE tagname GLOB 'wiki-*'"
          " AND t.tagid=x.tagid AND b.rid=x.rid"
          " AND x.mtime=(SELECT MAX(xx.mtime)"
                         " FROM tagxref xx"
                        " WHERE xx.tagid=x.tagid)"
        " ORDER BY lower(tagname) /*sort*/"
      );
    }else{
      db_prepare(&q,
        "SELECT datetime(e.mtime), substr(t.tagname,7) "
         " FROM event e, tag t"
        " WHERE e.type='e'"
          " AND e.tagid IS NOT NULL"
          " AND t.tagid=e.tagid"
        " ORDER BY e.mtime DESC /*sort*/"
      );
    }
  
    while( db_step(&q)==SQLITE_ROW ){
      const char *zName = db_column_text(&q, 0);
      if (showIds) {
        const char *zUuid = db_column_text(&q, 1);
        fossil_print("%s ",zUuid);
      }
      fossil_print( "%s\n",zName);
    }
    db_finalize(&q);
  }else{
    goto wiki_cmd_usage;
  }
  return;

wiki_cmd_usage:
  usage("export|create|commit|list ...");
}

test wiki-36-2 {$CODE == 0}

###############################################################################
# Check that we have the expected number of tech notes on the list (and not 
# extra ones from other events (such as the attachments) - 7 tech notes 
# expected created by tests 9, 17, 19, 29, 31, 32 and 34 
fossil wiki list --technote
set technotelist [split $RESULT "\n"] 
test wiki-37 {[llength $technotelist] == 7}

###############################################################################
# Check that using the show-artifact-ids shows the same tech notes in the same
# order (with the artifact id as the first word of the line
fossil wiki list --technote --show-artifact-ids
set technoteartifactlist [split $RESULT "\n"]
test wiki-38 {[llength $technoteartifactlist] == 7}
for {set i 0} {$i < [llength $technotelist]} {incr i} {
  set match "*"
  append match [lindex $technotelist $i]
  test "wiki-39-$i" {[string match $match [lindex $technoteartifactlist $i]]} 
}

###############################################################################
# Similarly check that wiki pages can have their artifact ids displayed
# Note: the tests above have only created a single wiki page, hence the list
# should be of length 1 at this point (created by test 1)
fossil wiki list
set wikilist [split $RESULT "\n"]
test wiki-40 {[llength $wikilist] == 1}
fossil wiki list --show-artifact-ids
set wikiartifactlist [split $RESULT "\n"]
test wiki-41 {[llength $wikilist] == [llength $wikiartifactlist]}
for {set i 0} {$i < [llength $wikilist]} {incr i} {
  set match "*"
  append match [lindex $wikilist $i]
  test "wiki-42-$i" {[string match $match [lindex $wikiartifactlist $i]]}
}

###############################################################################

test_cleanup