Fossil Wrapper

    alias  f      {finfo}
    alias  fb     {finfo -b}
    alias  fi     {finfo}
    alias  flog   {finfo}
    alias  heads  leaves;       # for hg refugees
    alias  log    {timeline -t ci}
    alias  not    {extras --dotfiles --ignore {}}

    alias  t      {timeline -t ci}
    alias  ticks  {ticket show 1}
    alias  time   {timeline}

    # -- Filters:

    filter status {
      add
      addremove
      changes
      info
      redo
      rm
      search
      status
      undo
      up
    } {
        lassign [split [string trim $line]] status
        switch -regexp $status {
            MERGED_WITH { coloured  purple $line }
            UPDATED_BY_MERGE { coloured  blue $line }
            ADDED       { coloured   green $line }
            EDITED      { coloured    blue $line }
            EXTRA       { coloured magenta $line }
            DELETED     { coloured     red $line }
            IGNORED     { coloured  yellow $line }
            MISSING     { coloured    cyan $line }
            UPDATE      { coloured     red $line }
            REMOVE      { coloured    blue $line }
            UNDO        { coloured    blue $line }
            REDO        { coloured    red $line }
            NEW         { coloured    magenta $line }
            RENAMED     { coloured    green $line }
            ^(checkout|parent|merged-(from|into)): {
               set date_rx {([a-f\d]{40} )(\d{4}-\d{2}-\d{2})}
               set artifact_rx {([a-f\d]{4})}
               regsub $date_rx     $line \\1[coloured blue \\2] line
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {

               exit 1
            }
         }
      } 
   } else { return $params }
}

interceptor s:show {
# ------------------------------------------------------------------------
# Provide repository status information the hg/svn way. 
# ------------------------------------------------------------------------
   set afilter ::config::fslrc::status

   if {[catch {exec fossil changes} chrep]} {
      puts "$chrep"
      exit 1
   } else { set chrep [split $chrep \n] }

   foreach line "$chrep" {
      filter_with $afilter "$line"
      puts ""
   }

   if {[catch {exec fossil extras} exrep]} {
      puts "$exrep"
      exit 1
   } else { set exrep [split $exrep \n] }

   foreach line $exrep {
      set line "EXTRA      $line"
      filter_with $afilter "$line"
      puts ""
   }
}

interceptor w:wrapper {
# ------------------------------------------------------------------------
# This interceptor provides a compilation of the current aliases, filters,
# and interceptors.
# ------------------------------------------------------------------------
    # undo `span' expansion of the interceptors for this report
    # (admittedly, this is a bit stupid...). first, pad the list with