GitHubWrapper now contains common functionality for external programs provided via GitHub.

src/ExoRepo/GitHubWrapper.class.st

@@ -0,0 +1,35 @@
+Class {
+	#name : #GitHubWrapper,
+	#superclass : #Object,
+	#instVars : [
+		'repository'
+	],
+	#category : #'ExoRepo-External'
+}
+
+{ #category : #accessing }
+GitHubWrapper class >> apiEndPoint [
+	^ 'https://api.github.com/' asUrl
+]
+
+{ #category : #accessing }
+GitHubWrapper >> lastReleaseData [
+	| releasesLink |
+	releasesLink := self class apiEndPoint addPathSegment: 'repos'.
+	self repository asUrl segments do: [:segment | 
+		releasesLink addPathSegment: segment
+	].
+	releasesLink addPathSegment: 'releases'.
+	^ (STONJSON
+		fromString: releasesLink retrieveContents) first
+]
+
+{ #category : #accessing }
+GitHubWrapper >> repository [
+	^ repository
+]
+
+{ #category : #accessing }
+GitHubWrapper >> repository: anUrl [
+	repository := anUrl 
+]

src/ExoRepo/YQ.class.st

@@ -26,7 +26,9 @@ YQ class >> binaryFile [
 
 { #category : #accessing }
 YQ class >> install [
-	^ self lastReleaseData
+	^ GitHubWrapper new
+		repository: 'https://github.com/mikefarah/yq';
+		lastReleaseData
 ]
 
 { #category : #accessing }
@@ -45,9 +47,3 @@ YQ class >> jsonToYaml: aDictionary [
 	Smalltalk os isWindows 
 		ifTrue: [ ^ LibC resultOfCommand: 'yq -p=json ', jsonFile fullName  ].
 ]
-
-{ #category : #accessing }
-YQ class >> lastReleaseData [
-	^ (STONJSON
-		fromString: 'https://api.github.com/repos/mikefarah/yq/releases' asUrl retrieveContents) first
-]