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