From f3fb8b7fd7a7dbf5025392907095763e25236169 Mon Sep 17 00:00:00 2001 From: ruidajo Date: Fri, 18 Mar 2022 19:15:48 -0500 Subject: [PATCH] Adding `ADDED` at status information. --- repository/Fossil/FossilRepo.class.st | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st index 0b41788..7a8da16 100644 --- a/repository/Fossil/FossilRepo.class.st +++ b/repository/Fossil/FossilRepo.class.st @@ -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