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: |
d6d6025c5856963c16759e93d7c624a8 |
User & Date: | j 2018-10-18 15:33:39 |
Context
2018-10-19
| ||
08:30 | fix typo in help text/comment. check-in: 5bd4c8a1a9 user: j tags: dresden | |
2018-10-18
| ||
15:33 | minor adjustments. check-in: d6d6025c58 user: j tags: dresden | |
2018-10-09
| ||
22:16 | exit immediately after error. check-in: 3a4bd5c887 user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | # to be permanent: the file is regenerated if it is older # than the script file for `fsl' (which will happen # each time the script file itself is edited). # -- Aliases: alias . changes alias , ui alias alog {timeline -t ci -n 0} alias b branch alias d diff alias dd {diff -tk} alias de descendants alias desc descendants alias di diff | > > | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | # to be permanent: the file is regenerated if it is older # than the script file for `fsl' (which will happen # each time the script file itself is edited). # -- Aliases: alias . changes alias .. {changes --differ} alias , ui alias ahelp {test-all-help} alias alog {timeline -t ci -n 0} alias b branch alias d diff alias dd {diff -tk} alias de descendants alias desc descendants alias di diff |
︙ | ︙ | |||
135 136 137 138 139 140 141 | } { 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 } | | | | 137 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] |
︙ | ︙ | |||
811 812 813 814 815 816 817 | if {[catch {exec fossil extras} exrep]} { puts "$exrep" exit 1 } else { set exrep [split $exrep \n] } foreach line $exrep { | | | 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 | if {[catch {exec fossil extras} exrep]} { puts "$exrep" exit 1 } else { set exrep [split $exrep \n] } foreach line $exrep { set line "EXTRA $line" filter_with $afilter "$line" puts "" } } interceptor w:wrapper { # ------------------------------------------------------------------------ |
︙ | ︙ |