Adding ADDED at status information.

This commit is contained in:
ruidajo 2022-03-18 19:15:48 -05:00
parent 63f818ff03
commit f3fb8b7fd7

View File

@ -481,7 +481,7 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [
{ #category : #accessing }
FossilRepo >> status [
| status output missing edited |
| status output missing edited added |
status := self command: 'status'.
output := OrderedDictionary new.
@ -502,6 +502,12 @@ FossilRepo >> status [
at: 'edited'
put: (edited collect:
[ :line | (line withoutPrefix: 'EDITED') trimmed accentedCharactersCorrection ]).
added := status lines select: [ :line | line beginsWith: 'ADDED' ].
output
at: 'added'
put: (edited collect:
[ :line | (line withoutPrefix: 'ADDED') trimmed accentedCharactersCorrection ]).
missing := status lines select: [ :line | line beginsWith: 'MISSING' ].
output