Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | further adjustment to timeline format. a further alias definition. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
11ad9134d28e57992735058b1d117bb7 |
User & Date: | j 2013-07-24 13:03:45 |
Context
2013-07-24
| ||
13:58 | `fsl' now regenerates the config file (~/.fslrc) if it is _older_ than the file containing the exectuable of `fsl'. check-in: 29016465ca user: j tags: dresden | |
13:03 | further adjustment to timeline format. a further alias definition. check-in: 11ad9134d2 user: j tags: dresden | |
11:28 | adjusted indent of `fancy_timeline' so that de-indentation works when `.fslrc' is first created. check-in: e36ec516ef user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
54 55 56 57 58 59 60 61 62 63 64 65 66 67 | set config::defaults { # -*-tcl-*- # -- 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 ""} | > | 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | set config::defaults { # -*-tcl-*- # -- Aliases: alias . changes alias , ui alias alog {timeline -n 100000} 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 ""} |
︙ | ︙ | |||
114 115 116 117 118 119 120 | # -- more specific `artifact_rx' to avoid unintentional hits # -- augmented `date_rx' to account for `finfo' output # -- use (tags|branch) to account for `finfo' output # -- add (artifact:) to account for `finfo' output # # Expressions to match: set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]} | | > > | 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 | # -- more specific `artifact_rx' to avoid unintentional hits # -- augmented `date_rx' to account for `finfo' output # -- use (tags|branch) to account for `finfo' output # -- add (artifact:) to account for `finfo' output # # Expressions to match: set artifact_rx {\[([a-f\d]{4})([a-f\d]{6}\]*)\]} set date_rx {(\d{4}-\d\d-\d\d)} set time_rx {(\d\d:\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 $time_rx $line [coloured yellow \\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] } |
︙ | ︙ | |||
426 427 428 429 430 431 432 | set date [regsub {(=== )(.*)( ===)} $record {\2}] } elseif {[regexp $rgxrev $record]} { # this line contains the checkin message: regexp $rgxtime $record time regexp $rgxrev $record rev regexp $rgxuser $record usertag set numrev [expr { $maxrev - [dict get $revnums $rev] }] | < > | > > | | 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 | set date [regsub {(=== )(.*)( ===)} $record {\2}] } elseif {[regexp $rgxrev $record]} { # this line contains the checkin message: regexp $rgxtime $record time regexp $rgxrev $record rev regexp $rgxuser $record usertag set numrev [expr { $maxrev - [dict get $revnums $rev] }] regsub $rgxuser $record "" record regsub $time $record "" record regsub $rgxrev $record "" record set record "[string trim $record]" ###### patch ###### #lappend out $record lappend out "\n$date $time $numrev:$rev $record $usertag" ###### the following line wrapping does not work anymore for current format. delete or adjust.... continue ###### patch ###### set message [string trim $record] set words [split $message] set line $indent[lindex $words 0] set len [string length $line] |
︙ | ︙ |