From 1b55734aeb4a0a3f69ef4e3857a70d597e7fa672 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Thu, 17 Mar 2022 15:28:28 -0500 Subject: [PATCH] More status details. --- repository/Fossil/FossilRepo.class.st | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st index 266f5b9..0a0b41b 100644 --- a/repository/Fossil/FossilRepo.class.st +++ b/repository/Fossil/FossilRepo.class.st @@ -331,6 +331,11 @@ FossilRepo >> lastVersionPath: aFileNameWithRelativePath [ ifFalse: [ ^ '/doc/tip/', aFileNameWithRelativePath ] ] +{ #category : #accessing } +FossilRepo >> list [ + ^ (self command: 'ls') lines +] + { #category : #accessing } FossilRepo >> listUnversioned [ @@ -464,14 +469,6 @@ FossilRepo >> status [ status := self command: 'status'. output := OrderedDictionary new. - edited := status lines select: [ :line | line beginsWith: 'EDITED' ]. - output at: 'edited files' put: (edited collect: - [ :line | (line withoutPrefix: 'EDITED')trimmed ]). - - missing := status lines select: [ :line | line beginsWith: 'MISSING' ]. - output at: 'missing files' put: (missing collect: - [ :line | (line withoutPrefix: 'MISSING')trimmed ]). - status linesDo: [ :line | | k v temp commitLog | commitLog := OrderedCollection new. temp := line splitOn: ': '. @@ -484,6 +481,13 @@ FossilRepo >> status [ ifFalse: [ commitLog add: line ]. output at: 'commitLog' put: commitLog ]. + edited := status lines select: [ :line | line beginsWith: 'EDITED' ]. + output at: 'edited files' put: (edited collect: + [ :line | (line withoutPrefix: 'EDITED')trimmed ]). + + missing := status lines select: [ :line | line beginsWith: 'MISSING' ]. + output at: 'missing files' put: (missing collect: + [ :line | (line withoutPrefix: 'MISSING')trimmed ]). ^ output ]