Offray
/
Fossil
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
repository/Fossil/FossilRepo.class.st
View File

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