Bugfix and better management of commit messages.
This commit is contained in:
parent
6e12663256
commit
584bd2403f
@ -415,11 +415,17 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
|
|||||||
FossilRepo >> status [
|
FossilRepo >> status [
|
||||||
| output |
|
| output |
|
||||||
output := OrderedDictionary new.
|
output := OrderedDictionary new.
|
||||||
(self command: 'status') linesDo: [ :line | |k v temp|
|
(self command: 'status') linesDo: [ :line | | k v temp commitLog |
|
||||||
|
commitLog := OrderedCollection new.
|
||||||
temp := line splitOn: ': '.
|
temp := line splitOn: ': '.
|
||||||
k := temp first.
|
temp size = 2
|
||||||
v := temp second trimmed.
|
ifTrue: [
|
||||||
output at: k put: v.
|
k := temp first.
|
||||||
|
v := temp second trimmed.
|
||||||
|
output at: k put: v
|
||||||
|
]
|
||||||
|
ifFalse: [ commitLog add: line ].
|
||||||
|
output at: 'commitLog' put: commitLog
|
||||||
].
|
].
|
||||||
^ output
|
^ output
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user