Fossil Wrapper

Check-in [1d05884eb1]
Login

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: 1d05884eb19f01153ebf16be29d073e275b53c10
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
127
128
129
130
131
132
133

134
135
136
137
138
139
140
141
142


143
144
145
146
147
148
149
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 ...)

................................................................................
        #
        # -- 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):
        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 $time_rx    $line [coloured yellow \\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]
    }








|
|







 







>






<


>
>







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
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
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 ...)

................................................................................
        #
        # -- 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]
    }