Fossil Wrapper

Check-in [a745700c2a]
Login

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

Overview
Comment:bug fix to get colors right even when output is piped through `less'.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: a745700c2a47cf6aa91af89b1462b2f12290eb95
User & Date: j 2013-01-16 16:07:12
Context
2013-01-25
11:42
tentative changes to timeline formatting. modifcations to the `expect' block as suggested by marc. check-in: 9187755636 user: j tags: dresden
2013-01-16
16:07
bug fix to get colors right even when output is piped through `less'. check-in: a745700c2a user: j tags: dresden
15:57
remove spurious `puts'. check-in: db8044a913 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
       # -- add (artifact:)     to account for `finfo' output
       #
       if {[regexp "\n=== .* ===" $line]} {
           return [coloured yellow $line]
       }
       # Expressions to match:
       set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]}
       set date_rx     {(\n\d\d:\d\d:\d\d)|^\d{4}-\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 &]]
       set line [regsub $current_rx $line [display reversed &]]
       set line [regsub $frkmrg_rx  $line [display underscored &]]
       set line [regsub {(user: )([a-z][-_.a-z]*)} $line [coloured yellow \\1][coloured green \\2]]
       set line [regsub {((tags|branch): )([a-z][-_,.a-z ]*)} $line [coloured yellow \\1][coloured green \\3]]
       regsub {(artifact: )} $line [coloured yellow \\1]
   }








|





|







117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
       # -- add (artifact:)     to account for `finfo' output
       #
       if {[regexp "\n=== .* ===" $line]} {
           return [coloured yellow $line]
       }
       # Expressions to match:
       set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]}
       set date_rx     {\n(\d\d:\d\d:\d\d)|^\d{4}-\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-z]*)} $line [coloured yellow \\1][coloured green \\2]]
       set line [regsub {((tags|branch): )([a-z][-_,.a-z ]*)} $line [coloured yellow \\1][coloured green \\3]]
       regsub {(artifact: )} $line [coloured yellow \\1]
   }