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: |
a745700c2a47cf6aa91af89b1462b2f1 |
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
Changes to fsl.
︙ | ︙ | |||
117 118 119 120 121 122 123 | # -- 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}\]*)\]} | | | | 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] } |
︙ | ︙ |