Adding ADDED
at status information.
This commit is contained in:
parent
63f818ff03
commit
f3fb8b7fd7
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user