Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | marginal. |
|---|---|
| Timelines: | family | ancestors | descendants | both | dresden |
| Files: | files | file ages | folders |
| SHA1: |
c51edf73ff03521ffca9ed14b0f70b5e |
| User & Date: | j 2013-07-26 12:19:11 |
Context
|
2013-07-26
| ||
| 14:52 | tidy up of `reformTimeline' plus small fixes. check-in: da5f1a3467 user: j tags: dresden | |
| 12:19 | marginal. check-in: c51edf73ff user: j tags: dresden | |
|
2013-07-24
| ||
| 17:04 | undo recently introduced bug and adjusted corrsponding comments a bit. check-in: 7e0ed090e2 user: j tags: dresden | |
Changes
Changes to fsl.
| ︙ | ︙ | |||
157 158 159 160 161 162 163 |
{^ADDED} { coloured blue $line }
{^DELETED} { coloured red $line }
default { set line }
}
}
filter highlight_branch {branch} {
| | | 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 |
{^ADDED} { coloured blue $line }
{^DELETED} { coloured red $line }
default { set line }
}
}
filter highlight_branch {branch} {
expr {[regexp {^\* } $line] ? [coloured red $line] : $line}
}
# vim: ft=tcl
}
# --( Alias expansion )-------------------------------------------------
|
| ︙ | ︙ | |||
421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 |
# --------------------------------------------------------
#these parameters should be user settable:
set maxlen 78
set indent {........ }
set indent { }
set isAppended 0
set out {}
set buf ""
set usertag ""
set rgxdate {^=== [0-9-]+ ===$}
set rgxtime {^\d\d:\d\d:\d\d}
set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
set rgxuser {\(user: .*\)}
| > < | | | 421 422 423 424 425 426 427 428 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 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 |
# --------------------------------------------------------
#these parameters should be user settable:
set maxlen 78
set indent {........ }
set indent { }
set numrev {}
set isAppended 0
set out {}
set buf ""
set usertag ""
set rgxdate {^=== [0-9-]+ ===$}
set rgxtime {^\d\d:\d\d:\d\d}
set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
set rgxuser {\(user: .*\)}
set maxrev [dict size $revnums]
foreach record $records {
# first get rid of the record/line terminating newline:
set record "[string trimright $record]"
if {[regexp $rgxdate $record]} {
# the `date' information is extracted and then prepended to the suitable checkins
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]
|
| ︙ | ︙ |