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







>







115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
    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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

154
155
156
157
158
159
160
161
        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]







|


<





>
|







139
140
141
142
143
144
145
146
147
148

149
150
151
152
153
154
155
156
157
158
159
160
161
162
        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]