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

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







<







56
57
58
59
60
61
62

63
64
65
66
67
68
69

    # -- 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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
       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 {







|
|







111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
       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 {