Fossil Wrapper

Check-in [1767aecf48]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:different colour scheme for file status information.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: 1767aecf482a8e19a8d11dff638291a578707bf3
User & Date: j 2013-07-26 14:56:20
Context
2013-07-27
09:59
new interceptor `df' allowing relative svn/hg-style revison numbers during diffs. alpha state. check-in: 132ed5e030 user: j tags: dresden
2013-07-26
14:56
different colour scheme for file status information. check-in: 1767aecf48 user: j tags: dresden
14:52
tidy up of `reformTimeline' plus small fixes. check-in: da5f1a3467 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
    # -- Filters:

    filter status {changes status info timeline add rm addremove} {
        lassign [split [string trim $line]] status
        switch $status {
            MERGED_WITH { coloured purple $line }
            ADDED       { coloured  green $line }
            EDITED      { coloured   cyan $line }
            DELETED     { coloured    red $line }
            MISSING     { coloured  blue $line }
            checkout: {
               set artifact_rx {([a-f\d]{4})}
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {
               regsub {(^tags: )(.*)} $line [coloured yellow \\1][coloured green \\2]
            }







|

|







86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
    # -- Filters:

    filter status {changes status info timeline add rm addremove} {
        lassign [split [string trim $line]] status
        switch $status {
            MERGED_WITH { coloured purple $line }
            ADDED       { coloured  green $line }
            EDITED      { coloured   blue $line }
            DELETED     { coloured    red $line }
            MISSING     { coloured   cyan $line }
            checkout: {
               set artifact_rx {([a-f\d]{4})}
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {
               regsub {(^tags: )(.*)} $line [coloured yellow \\1][coloured green \\2]
            }