Bugfix and better management of commit messages.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-09 17:52:17 -05:00
parent 6e12663256
commit 584bd2403f

View File

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