Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | minor fixes. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
e8e0d695ab5e8a8e2b73e49679438bd0 |
User & Date: | j 2013-03-24 01:16:56 |
Context
2013-07-24
| ||
11:24 | start of another attempt at improved timeline output. check-in: a5391d6012 user: j tags: dresden | |
2013-03-24
| ||
01:16 | minor fixes. check-in: e8e0d695ab user: j tags: dresden | |
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 | |
Changes
Changes to fsl.
︙ | ︙ | |||
57 58 59 60 61 62 63 | # -- Aliases: alias . changes alias , ui alias d diff alias di diff alias elog {timeline -t ci -showfiles} | | | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | # -- Aliases: alias . changes alias , ui alias d diff alias di diff alias elog {timeline -t ci -showfiles} alias flog {finfo} alias heads leaves; # for hg refugees alias log {timeline -t ci} alias not {extras --dotfiles --ignore ""} alias st status alias stat status alias t {timeline -t ci} alias time timeline |
︙ | ︙ | |||
126 127 128 129 130 131 132 | 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 &]] | | | | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | 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-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] } # Filter only on aliases of `diff' but not the original command so that # the latter's output can be redirected to create patch files. filter diff {d di} { |
︙ | ︙ |