Fixing commands for other libraries to ensure Ci is working

Author: alesshosry

src/TreeSitter-Libraries/TSLibrariesCSS.class.st

@@ -15,9 +15,12 @@ TSLibrariesCSS >> cloneTreeSitterCSS [
 	"before cloning get the latest release"	
 	lastReleasedVersion := self class gitBranchToUse ifNil: [ self latestReleaseTagForOwner: 'tree-sitter' repo: 'tree-sitter-css' ].
 
-	"Execute clone command" 
-	cloneCommand := 'git clone --branch ', lastReleasedVersion ,' --depth 1 https://github.com/tree-sitter/tree-sitter-css.git '
-	                , clonePath.
+	"Execute clone command"  
+	cloneCommand := self
+		gitCloneCommandFor: 'https://github.com/tree-sitter/tree-sitter-css.git'
+		branch: lastReleasedVersion
+		destination: clonePath.
+	
 
 	self logInTranscript:
 		'Start cloning Tree-Sitter-CSS in' , clonePath.

src/TreeSitter-Libraries/TSLibrariesHTML.class.st

@@ -15,11 +15,11 @@ TSLibrariesHTML >> cloneTreeSitterHTML [
 	"before cloning get the latest release"	
 	lastReleasedVersion := self class gitBranchToUse ifNil: [ self latestReleaseTagForOwner: 'tree-sitter' repo: 'tree-sitter-html' ].
 
-	"Execute clone command"
-	"cloneCommand := 'git clone https://github.com/tree-sitter/tree-sitter-html.git '
-	                , clonePath."
-	cloneCommand := 'git clone --branch ', lastReleasedVersion ,' --depth 1 https://github.com/tree-sitter/tree-sitter-html.git '
-	                , clonePath.
+	"Execute clone command" 
+	cloneCommand := self
+		gitCloneCommandFor: 'https://github.com/tree-sitter/tree-sitter-html.git'
+		branch: lastReleasedVersion
+		destination: clonePath.
 
 	self logInTranscript:
 		'Start cloning Tree-Sitter-HTML in' , clonePath.

src/TreeSitter-Libraries/TSLibrariesPython.class.st

@@ -15,12 +15,11 @@ TSLibrariesPython >> cloneTreeSitterPython [
 	"before cloning get the latest release"	
 	lastReleasedVersion := self class gitBranchToUse ifNil: [ self latestReleaseTagForOwner: 'tree-sitter' repo: 'tree-sitter-python' ].
 
-	
 	"Execute clone command"
-	"cloneCommand := 'git clone https://github.com/tree-sitter/tree-sitter-python.git '
-	                , clonePath."
-	cloneCommand := 'git clone --branch ', lastReleasedVersion ,' --depth 1 https://github.com/tree-sitter/tree-sitter-python.git '
-	                , clonePath.
+	cloneCommand := self
+		gitCloneCommandFor: 'https://github.com/tree-sitter/tree-sitter-python.git'
+		branch: lastReleasedVersion
+		destination: clonePath.
 
 	self logInTranscript:
 		'Start cloning Tree-Sitter-python in' , clonePath.

src/TreeSitter-Libraries/TSLibrariesXML.class.st

@@ -16,11 +16,10 @@ TSLibrariesXML >> cloneTreeSitterXML [
 	lastReleasedVersion := self class gitBranchToUse ifNil: [ self latestReleaseTagForOwner: 'tree-sitter-grammars' repo: 'tree-sitter-xml' ].
 
 	"Execute clone command"
-	"cloneCommand := 'git clone https://github.com/tree-sitter-grammars/tree-sitter-xml.git '
-	                , clonePath."
-	
-	cloneCommand := 'git clone --branch ', lastReleasedVersion ,' --depth 1 https://github.com/tree-sitter-grammars/tree-sitter-xml.git '
-	                , clonePath.
+	cloneCommand := self
+		gitCloneCommandFor: 'https://github.com/tree-sitter-grammars/tree-sitter-xml.git'
+		branch: lastReleasedVersion
+		destination: clonePath.
 
 	self logInTranscript:
 		'Start cloning Tree-Sitter-XML in' , clonePath.

src/TreeSitter-Libraries/TSLibrariesYAML.class.st

@@ -8,7 +8,7 @@ Class {
 { #category : 'as yet unclassified' }
 TSLibrariesYAML >> cloneTreeSitterYAML [
 
-	| clonePath cloneCommand status lastReleasedVersion|
+	| clonePath cloneCommand status |
 	"Construct clone path"
 	clonePath := self originalLibrariesDirectory , '/tree-sitter-yaml'.
 
@@ -19,7 +19,7 @@ TSLibrariesYAML >> cloneTreeSitterYAML [
 	cloneCommand := 'git clone https://github.com/ikatyang/tree-sitter-yaml.git '
 	                , clonePath.
 	"cloneCommand := 'git clone --branch ', lastReleasedVersion ,' --depth 1 https://github.com/ikatyang/tree-sitter-yaml.git '
-	                , clonePath."
+	                , clonePath." 
 
 	self logInTranscript:
 		'Start cloning Tree-Sitter-YAML in' , clonePath.