Fossil Wrapper

Check-in [5a7ab09561]
Login

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

Overview
Comment:minor adjustments.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: 5a7ab09561864aa639c44b88aa42b0130a315770
User & Date: j 2019-05-21 17:48:30
Context
2019-06-25
12:16
deleted redundant `show' interceptor and defined a new alias `s' to `changes --differ' which does exactly the same thing. check-in: eb6ae3b1a6 user: j tags: dresden
2019-05-21
17:48
minor adjustments. check-in: 5a7ab09561 user: j tags: dresden
2018-10-25
21:19
new `clone' interceptor. check-in: 6a18f733ad user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

115
116
117
118
119
120
121

122
123
124
125
126
127
128
...
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

154
155
156
157
158
159
160
161
    alias  fb     {finfo -b}
    alias  fi     {finfo}
    alias  flog   {finfo}
    alias  heads  leaves;       # for hg refugees
    alias  log    {timeline -t ci}
    alias  not    {extras --dotfiles --ignore {}}
    alias  t      {timeline -t ci}

    alias  time   {timeline}

    # -- Filters:

    filter status {
      add
      addremove
................................................................................
        lassign [split [string trim $line]] status
        switch -regexp $status {
            MERGED_WITH { coloured  purple $line }
            UPDATED_BY_MERGE { coloured  blue $line }
            ADDED       { coloured   green $line }
            EDITED      { coloured    blue $line }
            EXTRA       { coloured magenta $line }
            DELETE      { coloured     red $line }
            IGNORED     { coloured  yellow $line }
            MISSING     { coloured    cyan $line }
            ADD         { coloured   green $line }
            UPDATE      { coloured     red $line }
            REMOVE      { coloured    blue $line }
            UNDO        { coloured    blue $line }
            REDO        { coloured    red $line }
            NEW         { coloured    magenta $line }

            ^(checkout|parent|merged-into): {
               set date_rx {([a-f\d]{40} )(\d{4}-\d{2}-\d{2})}
               set artifact_rx {([a-f\d]{4})}
               regsub $date_rx     $line \\1[coloured blue \\2] line
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {
               regsub {(^tags:[ ]+)(.*)} $line [coloured yellow \\1][coloured cyan \\2]







>







 







|


<





>
|







115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
...
139
140
141
142
143
144
145
146
147
148

149
150
151
152
153
154
155
156
157
158
159
160
161
162
    alias  fb     {finfo -b}
    alias  fi     {finfo}
    alias  flog   {finfo}
    alias  heads  leaves;       # for hg refugees
    alias  log    {timeline -t ci}
    alias  not    {extras --dotfiles --ignore {}}
    alias  t      {timeline -t ci}
    alias  ticks  {ticket show 1}
    alias  time   {timeline}

    # -- Filters:

    filter status {
      add
      addremove
................................................................................
        lassign [split [string trim $line]] status
        switch -regexp $status {
            MERGED_WITH { coloured  purple $line }
            UPDATED_BY_MERGE { coloured  blue $line }
            ADDED       { coloured   green $line }
            EDITED      { coloured    blue $line }
            EXTRA       { coloured magenta $line }
            DELETED     { coloured     red $line }
            IGNORED     { coloured  yellow $line }
            MISSING     { coloured    cyan $line }

            UPDATE      { coloured     red $line }
            REMOVE      { coloured    blue $line }
            UNDO        { coloured    blue $line }
            REDO        { coloured    red $line }
            NEW         { coloured    magenta $line }
            RENAMED     { coloured    green $line }
            ^(checkout|parent|merged-(from|into)): {
               set date_rx {([a-f\d]{40} )(\d{4}-\d{2}-\d{2})}
               set artifact_rx {([a-f\d]{4})}
               regsub $date_rx     $line \\1[coloured blue \\2] line
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {
               regsub {(^tags:[ ]+)(.*)} $line [coloured yellow \\1][coloured cyan \\2]