Making more renaming subfolders more modular.
This commit is contained in:
parent
38a72d1f79
commit
ec04597451
@ -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 ]
|
||||
|
Loading…
Reference in New Issue
Block a user