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 ... 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 ... 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 |
# 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
................................................................................
} {
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 }
EXTRAS { 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): {
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]
................................................................................
if {[catch {exec fossil extras} exrep]} {
puts "$exrep"
exit 1
} else { set exrep [split $exrep \n] }
foreach line $exrep {
set line "EXTRAS $line"
filter_with $afilter "$line"
puts ""
}
}
interceptor w:wrapper {
# ------------------------------------------------------------------------
|
> > | | | |
96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 ... 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 ... 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 |
# 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
................................................................................
} {
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]
................................................................................
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 {
# ------------------------------------------------------------------------
|