Fossil Wrapper

        if {[regexp "^=== .* ===" $line]} {
            coloured blue $line
        } else {
            regsub -all {\[[A-Fa-f0-9]+\]} $line [coloured yellow &]
        }
    }

   filter fancy_timeline {leaves timeline finfo} {
       #currently, addition of `finfo' has to be considered
       #tentative only since coloring (if it occurs) interferes
       #with `finfo -p' (although nowadays `cat' should be the
       #canonical command for this purpose). 
       #
       #the modified patterns, however, should not be a problem
       #modifications are:
       #
       # -- more specific `artifact_rx' to avoid unintentional hits
       # -- augmented `date_rx' to account for `finfo' output 
       # -- use (tags|branch)   to account for `finfo' output
       # -- add (artifact:)     to account for `finfo' output
       #
       # Expressions to match:
       set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]}
       set date_rx     {(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d)}
       set current_rx  {\*CURRENT\*}
       set frkmrg_rx   {\*(FORK|MERGE|BRANCH)\*}
       # Colour the output (repeated substitutions on $line):
       set line [regsub -all $artifact_rx $line [format {[%s%s]} [coloured red {\1}] {\2}]]
       set line [regsub $date_rx    $line [coloured blue \\1]]
       set line [regsub $current_rx $line [display reversed &]]
       set line [regsub $frkmrg_rx  $line [display underscored &]]
       set line [regsub {(user: )([a-z][-_.a-z0-9]*)} $line [coloured yellow \\1][coloured green \\2]]
       set line [regsub {((tags|branch): )([a-z][-_,.a-z0-9 ]*)} $line [coloured yellow \\1][coloured green \\3]]
       regsub {(artifact: )} $line [coloured yellow \\1]
   }


    # Filter only on aliases of `diff' but not the original command so that 
    # the latter's output can be redirected to create patch files.
    filter diff {d di} {
        switch -regexp $line {
           {^-}       { coloured    red $line }

        if {[regexp "^=== .* ===" $line]} {
            coloured blue $line
        } else {
            regsub -all {\[[A-Fa-f0-9]+\]} $line [coloured yellow &]
        }
    }

    filter fancy_timeline {leaves timeline finfo} {
        #currently, addition of `finfo' has to be considered
        #tentative only since coloring (if it occurs) interferes
        #with `finfo -p' (although nowadays `cat' should be the
        #canonical command for this purpose). 
        #
        #the modified patterns, however, should not be a problem
        #modifications are:
        #
        # -- more specific `artifact_rx' to avoid unintentional hits
        # -- augmented `date_rx' to account for `finfo' output 
        # -- use (tags|branch)   to account for `finfo' output
        # -- add (artifact:)     to account for `finfo' output
        #
        # Expressions to match:
        set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]}
        set date_rx     {(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d)}
        set current_rx  {\*CURRENT\*}
        set frkmrg_rx   {\*(FORK|MERGE|BRANCH)\*}
        # Colour the output (repeated substitutions on $line):
        set line [regsub -all $artifact_rx $line [format {[%s%s]} [coloured red {\1}] {\2}]]
        set line [regsub $date_rx    $line [coloured blue \\1]]
        set line [regsub $current_rx $line [display reversed &]]
        set line [regsub $frkmrg_rx  $line [display underscored &]]
        set line [regsub {(user: )([a-z][-_.a-z0-9]*)} $line [coloured yellow \\1][coloured green \\2]]
        set line [regsub {((tags|branch): )([a-z][-_,.a-z0-9 ]*)} $line [coloured yellow \\1][coloured green \\3]]
        regsub {(artifact: )} $line [coloured yellow \\1]
    }


    # Filter only on aliases of `diff' but not the original command so that 
    # the latter's output can be redirected to create patch files.
    filter diff {d di} {
        switch -regexp $line {
           {^-}       { coloured    red $line }