Fossil Wrapper

Check-in [e8e0d695ab]
Login

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: e8e0d695ab5e8a8e2b73e49679438bd015ffb10d
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
    # -- Aliases:

    alias  .      changes
    alias  ,      ui
    alias  d      diff
    alias  di     diff
    alias  elog   {timeline -t ci -showfiles}
    alias  flog   {finfo --limit 55}
    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
................................................................................
       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]
   }


    # 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} {







|







 







|
|







57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
    # -- 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
................................................................................
       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} {