first shot to plugins (and GitHub PR as test case)

BaselineOfIceberg.package/.filetree

@@ -1,5 +1,4 @@
 {
-	"separateMethodMetaAndSource" : false,
 	"noMethodMetaData" : true,
-	"useCypressPropertiesFile" : true
-}
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }

BaselineOfIceberg.package/BaselineOfIceberg.class/instance/baseline..st

@@ -30,15 +30,16 @@ baseline: spec
 			with: [ spec requires: #('ProcessWrapper') ] ];
 
 		package: 'Iceberg';
-		package: 'Iceberg-Metacello-Integration' with: [ spec requires: #(Iceberg)];
-		package: 'Iceberg-UI' with: [ spec requires: #(Iceberg) ];
-		package: 'Iceberg-Tests' with: [ spec requires: #(Iceberg 'Iceberg-GitCommand') ];
+		package: 'Iceberg-Plugin';
+		package: 'Iceberg-Metacello-Integration' with: [ spec requires: #('Iceberg')];
+		package: 'Iceberg-UI' with: [ spec requires: #('Iceberg' 'Iceberg-Plugin') ];
+		package: 'Iceberg-Tests' with: [ spec requires: #('Iceberg' 'Iceberg-GitCommand') ];
 		package: 'Iceberg-UI-Tests' with: [ spec requires: #('Iceberg-UI' 'Iceberg-Tests')];
-		package: 'Iceberg-GitFileTree' with: [ spec requires: #(Iceberg FileTree) ];
+		package: 'Iceberg-GitFileTree' with: [ spec requires: #('Iceberg' 'FileTree') ];
 		package: 'Iceberg-GitFileTree-Tests' with: [ spec requires: #('Iceberg-GitFileTree' 'Iceberg-Tests') ];
-		package: 'Iceberg-Libgit' with: [ spec requires: #(Iceberg LibGit) ];
+		package: 'Iceberg-Libgit' with: [ spec requires: #('Iceberg' 'LibGit') ];
 
-		group: 'minimal' with: #(Iceberg 'Iceberg-Libgit');
+		group: 'minimal' with: #('Iceberg' 'Iceberg-Libgit');
 		group: 'default' with: #(minimal 'Iceberg-Metacello-Integration' 'Iceberg-UI');
 		group: 'allTests' with: #('Iceberg-Tests' 'LibGit-Tests' 'Iceberg-GitFileTree-Tests' 'Iceberg-UI-Tests' );
 		group: 'development' with: #(default 'Iceberg-GitFileTree' allTests)

BaselineOfIceberg.package/BaselineOfIceberg.class/properties.json

@@ -1,11 +1,14 @@
 {
-	"commentStamp" : "",
-	"super" : "BaselineOf",
 	"category" : "BaselineOfIceberg",
-	"classinstvars" : [ ],
-	"pools" : [ ],
-	"classvars" : [ ],
-	"instvars" : [ ],
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
 	"name" : "BaselineOfIceberg",
-	"type" : "normal"
-}
+	"pools" : [
+		 ],
+	"super" : "BaselineOf",
+	"type" : "normal" }

BaselineOfIceberg.package/properties.json

@@ -1 +1,2 @@
-{ }
+{
+	 }

Iceberg-Plugin.package/.filetree

@@ -0,0 +1,4 @@
+{
+	"noMethodMetaData" : true,
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }

Iceberg-Plugin.package/IceGitHubAPI.class/README.md

@@ -0,0 +1,2 @@
+I represent an access point to the GitHub API. 
+I provide different high level abstractions to interact with GitHub, following the speciphications you can find here: https://developer.github.com/v3/

Iceberg-Plugin.package/IceGitHubAPI.class/instance/credentials..st

@@ -0,0 +1,3 @@
+accessing
+credentials: anObject
+	credentials := anObject

Iceberg-Plugin.package/IceGitHubAPI.class/instance/credentials.st

@@ -0,0 +1,3 @@
+accessing
+credentials
+	^ credentials

Iceberg-Plugin.package/IceGitHubAPI.class/instance/get..st

@@ -0,0 +1,6 @@
+private requesting
+get: aString 
+	^ self withResponseValidationDo: [
+		(self newRequestTo: aString)
+			get;
+			response ]

Iceberg-Plugin.package/IceGitHubAPI.class/instance/newRequestTo..st

@@ -0,0 +1,7 @@
+private factory
+newRequestTo: aString
+	^ ZnClient new 
+		username: self credentials username password: self credentials password; 
+		headerAt: 'Accept' put: 'application/vnd.github.v3+json';
+		url: 'https://api.github.com/', aString;
+		yourself

Iceberg-Plugin.package/IceGitHubAPI.class/instance/post.with..st

@@ -0,0 +1,7 @@
+private requesting
+post: aString with: aBlock  
+	^ self withResponseValidationDo: [
+		(self newRequestTo: aString)
+			in: aBlock;
+			post;
+			response ]

Iceberg-Plugin.package/IceGitHubAPI.class/instance/postPullRequestTo.project.data..st

@@ -0,0 +1,8 @@
+requesting
+postPullRequestTo: owner project: projectName data: aDictionary
+	^ self 
+		post: 'repos/', owner, '/', projectName, '/pulls'
+		with: [ :client |
+			client 
+				entity: (ZnEntity text: (STON toJsonString: aDictionary));
+				contentType: ZnMimeType applicationJson ]

Iceberg-Plugin.package/IceGitHubAPI.class/instance/requestBranchesFrom.project..st

@@ -0,0 +1,3 @@
+requesting
+requestBranchesFrom: owner project: projectName
+	^ self get: 'repos/', owner,'/', projectName, '/branches'	

Iceberg-Plugin.package/IceGitHubAPI.class/instance/requestRepositoryFrom.project..st

@@ -0,0 +1,3 @@
+requesting
+requestRepositoryFrom: owner project: projectName
+	^ self get: 'repos/', owner,'/', projectName

Iceberg-Plugin.package/IceGitHubAPI.class/instance/withResponseValidationDo..st

@@ -0,0 +1,8 @@
+private requesting
+withResponseValidationDo: aBlock
+	| response |
+
+	response := aBlock value.
+	response isSuccess 
+		ifFalse: [ IceGitHubError signalFor: response ].
+	^ response contents

Iceberg-Plugin.package/IceGitHubAPI.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Iceberg-Plugin-GitHub",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		"credentials" ],
+	"name" : "IceGitHubAPI",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }

Iceberg-Plugin.package/IceGitHubBadCredentialsError.class/README.md

@@ -0,0 +1 @@
+I'm an error that happens when credentials are bad.

Iceberg-Plugin.package/IceGitHubBadCredentialsError.class/class/isAppropriateFor..st

@@ -0,0 +1,3 @@
+testing
+isAppropriateFor: aResponse 
+	^ aResponse status = 401

Iceberg-Plugin.package/IceGitHubBadCredentialsError.class/instance/messageBody.st

@@ -0,0 +1,3 @@
+accessing
+messageBody
+	^ 'Credentials provided are wrong'

Iceberg-Plugin.package/IceGitHubBadCredentialsError.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Iceberg-Plugin-GitHub",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		 ],
+	"name" : "IceGitHubBadCredentialsError",
+	"pools" : [
+		 ],
+	"super" : "IceGitHubError",
+	"type" : "normal" }

Iceberg-Plugin.package/IceGitHubError.class/README.md

@@ -0,0 +1 @@
+I'm an error that happens when something fails when performing a GitHub action.

Iceberg-Plugin.package/IceGitHubError.class/class/errorClassFor..st

@@ -0,0 +1,5 @@
+private
+errorClassFor: aResponse
+	^ self allSubclasses 
+		detect: [ :each | each isAppropriateFor: aResponse  ]
+		ifNone: [ self ]

Iceberg-Plugin.package/IceGitHubError.class/class/for..st

@@ -0,0 +1,5 @@
+instance creation
+for: aResponse
+	^ (self errorClassFor: aResponse) new 
+		response: aResponse;
+		yourself	

Iceberg-Plugin.package/IceGitHubError.class/class/isAppropriateFor..st

@@ -0,0 +1,3 @@
+testing
+isAppropriateFor: aResponse
+	^ false

Iceberg-Plugin.package/IceGitHubError.class/class/signalFor..st

@@ -0,0 +1,3 @@
+instance creation
+signalFor: aResponse
+	^ (self for: aResponse) signal

Iceberg-Plugin.package/IceGitHubError.class/instance/code.st

@@ -0,0 +1,3 @@
+accessing
+code
+	^ self response status

Iceberg-Plugin.package/IceGitHubError.class/instance/contents.st

@@ -0,0 +1,3 @@
+accessing
+contents
+	^ self response contents

Iceberg-Plugin.package/IceGitHubError.class/instance/customError..st

@@ -0,0 +1,4 @@
+private
+customError: aDictionary
+	^ aDictionary at: #message
+

Iceberg-Plugin.package/IceGitHubError.class/instance/errorToString..st

@@ -0,0 +1,6 @@
+private
+errorToString: aDictionary 
+	(aDictionary at: #code) = 'custom' ifTrue: [ ^ self customError: aDictionary ].
+	(aDictionary at: #code) = 'invalid' ifTrue: [ ^ self invalidError: aDictionary ].
+
+	^ self unknownError: aDictionary	

Iceberg-Plugin.package/IceGitHubError.class/instance/invalidError..st

@@ -0,0 +1,5 @@
+private
+invalidError: aDictionary
+	^ 'Invalid field: ', (aDictionary at: #field)
+
+

Iceberg-Plugin.package/IceGitHubError.class/instance/jsonContents.st

@@ -0,0 +1,4 @@
+accessing
+jsonContents
+	^ jsonContents ifNil: [ jsonContents := STON fromString: self contents ]	
+

Iceberg-Plugin.package/IceGitHubError.class/instance/messageBody.st

@@ -0,0 +1,8 @@
+accessing
+messageBody
+	| errors |
+	errors := self jsonContents at: #errors ifAbsent: [ ^ '' ].
+	^ String streamContents: [ :stream | 
+		errors
+			do: [ :each | stream << (self errorToString: each) ] 
+			separatedBy: [ stream cr ] ].

Iceberg-Plugin.package/IceGitHubError.class/instance/messageText.st

@@ -0,0 +1,3 @@
+accessing
+messageText
+	^ self jsonContents at: #message

Iceberg-Plugin.package/IceGitHubError.class/instance/response..st

@@ -0,0 +1,3 @@
+accessing
+response: anObject
+	response := anObject

Iceberg-Plugin.package/IceGitHubError.class/instance/response.st

@@ -0,0 +1,3 @@
+accessing
+response
+	^ response

Iceberg-Plugin.package/IceGitHubError.class/instance/unknownError..st

@@ -0,0 +1,6 @@
+private
+unknownError: aDictionary
+	^ String streamContents: [ :stream | 
+		(aDictionary associations sorted: [ :a :b | a key < b key  ])
+			do: [ :each | stream << each key << ': ' << each value ]
+			separatedBy: [ stream << ', ' ] ]

Iceberg-Plugin.package/IceGitHubError.class/properties.json

@@ -0,0 +1,15 @@
+{
+	"category" : "Iceberg-Plugin-GitHub",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "EstebanLorenzano 2/1/2017 17:15",
+	"instvars" : [
+		"response",
+		"jsonContents" ],
+	"name" : "IceGitHubError",
+	"pools" : [
+		 ],
+	"super" : "Error",
+	"type" : "normal" }

Iceberg-Plugin.package/IceGitHubGenericError.class/README.md

@@ -0,0 +1 @@
+I'm an error that happens when something went wrong on GitHub API operations.

Iceberg-Plugin.package/IceGitHubGenericError.class/class/isAppropriateFor..st

@@ -0,0 +1,3 @@
+testing
+isAppropriateFor: aResponse
+	^ aResponse status = 422

Iceberg-Plugin.package/IceGitHubGenericError.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Iceberg-Plugin-GitHub",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		 ],
+	"name" : "IceGitHubGenericError",
+	"pools" : [
+		 ],
+	"super" : "IceGitHubError",
+	"type" : "normal" }

Iceberg-Plugin.package/IceGitHubPullRequest.class/README.md

@@ -0,0 +1,2 @@
+I am a pull request. 
+I can be sent using ==#sendWithCredentials:== protocol.

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/baseBranchName..st

@@ -0,0 +1,3 @@
+accessing
+baseBranchName: anObject
+	baseBranchName := anObject

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/baseBranchName.st

@@ -0,0 +1,3 @@
+accessing
+baseBranchName
+	^ baseBranchName

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/baseRemote..st

@@ -0,0 +1,3 @@
+accessing
+baseRemote: anObject
+	baseRemote := anObject

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/baseRemote.st

@@ -0,0 +1,3 @@
+accessing
+baseRemote
+	^ baseRemote

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/body..st

@@ -0,0 +1,3 @@
+accessing
+body: anObject
+	body := anObject

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/body.st

@@ -0,0 +1,3 @@
+accessing
+body
+	^ body

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/credentials..st

@@ -0,0 +1,3 @@
+accessing
+credentials: anObject
+	credentials := anObject

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/credentials.st

@@ -0,0 +1,3 @@
+accessing
+credentials
+	^ credentials

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/headBranchName..st

@@ -0,0 +1,3 @@
+accessing
+headBranchName: anObject
+	headBranchName := anObject

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/headBranchName.st

@@ -0,0 +1,3 @@
+accessing
+headBranchName
+	^ headBranchName

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/headRemote..st

@@ -0,0 +1,3 @@
+accessing
+headRemote: anObject
+	headRemote := anObject

Iceberg-Plugin.package/IceGitHubPullRequest.class/instance/headRemote.st

@@ -0,0 +1,3 @@
+accessing
+headRemote
+	^ headRemote