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