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 [
|
||||
| output |
|
||||
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: ': '.
|
||||
k := temp first.
|
||||
v := temp second trimmed.
|
||||
output at: k put: v.
|
||||
temp size = 2
|
||||
ifTrue: [
|
||||
k := temp first.
|
||||
v := temp second trimmed.
|
||||
output at: k put: v
|
||||
]
|
||||
ifFalse: [ commitLog add: line ].
|
||||
output at: 'commitLog' put: commitLog
|
||||
].
|
||||
^ output
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user