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]
}
|
| ︙ | ︙ |