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