Making more renaming subfolders more modular.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-08-08 22:59:30 -05:00
parent 38a72d1f79
commit ec04597451

View File

@ -443,13 +443,19 @@ FossilRepo >> remote: anUrlString [
{ #category : #accessing }
FossilRepo >> renameFrom: currentName to: newName [
^ self renameFrom: currentName to: newName inSubfolder: self localRoot
]
{ #category : #accessing }
FossilRepo >> renameFrom: currentName to: newName inSubfolder: aFolder [
OSSUnixSubprocess new
command: 'fossil';
arguments: {
'rename'.
currentName.
newName };
workingDirectory: self localRoot;
currentName basename.
newName basename};
workingDirectory: aFolder fullName;
redirectStdout;
redirectStderr;
runAndWaitOnExitDo: [ :process :outString | ^ outString ]