Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | adjusted `fancy_timeline' which now highlights the relative revision numbers in magenta. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
1d05884eb19f01153ebf16be29d073e2 |
User & Date: | j 2013-07-27 12:20:25 |
Context
2013-07-27
| ||
15:06 | augmented `df' interceptor to map to `gdi' if called as `gdf'. `df' can now also be called without further args. check-in: ec867b5461 user: j tags: dresden | |
12:20 | adjusted `fancy_timeline' which now highlights the relative revision numbers in magenta. check-in: 1d05884eb1 user: j tags: dresden | |
12:04 | improved `df' interceptor. check-in: 1f0b2f3546 user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
8 9 10 11 12 13 14 | namespace eval config { set aliases {} set filters {}; # registered filters set commands {}; # registered interceptors proc init {filename} { set myname $::argv0 | | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | namespace eval config { set aliases {} set filters {}; # registered filters set commands {}; # registered interceptors proc init {filename} { set myname $::argv0 if {[file exists $filename] && [file mtime $filename] > [file mtime $myname]} { #if {[file exists $filename] } {} # an existing config file is used only if it is _newer_ than the # running `fsl' file. otherwise the config file is (re)created # since it's definition in `config::defaults' might have changed. # this makes it probable that changes to this script become # automatically active for other users (as long as they don't happen # to manually modify there config files frequently ...) |
︙ | ︙ | |||
127 128 129 130 131 132 133 134 135 136 137 138 139 | # # -- 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)} set time_rx {(\d\d:\d\d:\d\d)} set current_rx {\*CURRENT\*} set frkmrg_rx {\*(FORK|MERGE|BRANCH)\*} # Colour the output (repeated substitutions on $line): | > < > > | 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | # # -- 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 revnum_rx {([[:digit:]]+)(:\[)} set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]} set date_rx {(\d{4}-\d\d-\d\d)} set time_rx {(\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 $date_rx $line [coloured blue \\1]] set line [regsub $time_rx $line [coloured yellow \\1]] set line [regsub $revnum_rx $line [format {%s%s} [coloured magenta {\1}] \\2]] set line [regsub -all $artifact_rx $line [format {[%s%s]} [coloured red {\1}] {\2}]] 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] } |
︙ | ︙ |