Fossil Wrapper

Check-in [37ea358f3a]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:small fixes.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: 37ea358f3a04e7b33beb8f442edd0b1ca0ca48c1
User & Date: j 2013-01-11 20:53:16
Context
2013-01-15
13:05
modified `timeline' processing in order to sanitize output in case `-showfiles' is specified. otherwise some tidy up. check-in: c9f625fef0 user: j tags: dresden
2013-01-11
20:53
small fixes. check-in: 37ea358f3a user: j tags: dresden
12:24
tidy up. check-in: 3ac24d1cd2 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
...
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

    # -- Aliases:

    alias  .      changes
    alias  d      diff
    alias  di     diff
    alias  not    {extras --dotfiles --ignore ""}
    alias  cat    {finfo -p}
    alias  heads  leaves;       # for hg refugees
    alias  st     status
    alias  stat   status
    alias  time   timeline
    alias  log    {timeline -t ci}
    alias  t      {timeline -t ci}
    alias  ,      ui
................................................................................
       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]]
       regsub {(tags: )([a-z][-_,a-z ]*)} $line [coloured yellow \\1][coloured green \\2]
   }


    # 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} {
        switch -regexp $line {







<







 







|
|







56
57
58
59
60
61
62

63
64
65
66
67
68
69
...
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

    # -- Aliases:

    alias  .      changes
    alias  d      diff
    alias  di     diff
    alias  not    {extras --dotfiles --ignore ""}

    alias  heads  leaves;       # for hg refugees
    alias  st     status
    alias  stat   status
    alias  time   timeline
    alias  log    {timeline -t ci}
    alias  t      {timeline -t ci}
    alias  ,      ui
................................................................................
       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]]
       regsub {(tags: )([a-z][-_,.a-z ]*)} $line [coloured yellow \\1][coloured green \\2]
   }


    # 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} {
        switch -regexp $line {