1008-add-create-branch-from-GitHub-issue-option

Iceberg-Pharo6.package/MCGitlabRepository.extension/properties.json

@@ -1,3 +1,3 @@
 {
 	"name" : "MCGitlabRepository"
-}
+}

Iceberg-Plugin-GitHub.package/IceGitHubAPI.class/instance/getIssue.project.number..st

@@ -0,0 +1,4 @@
+requesting
+getIssue: owner project: projectName number: issueNumber
+
+	^ self get: 'repos/', owner,'/', projectName, '/issues/', (issueNumber asString)

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/README.md

@@ -0,0 +1,4 @@
+I'm a panel to create a new branch taking a GitHub issue as basis.
+A GitHub issue will be created in the form: 
+
+123-a-github-issue

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/defaultSpec.st

@@ -0,0 +1,20 @@
+specs
+defaultSpec
+	<spec: #default>
+
+	^ SpecLayout composed
+		newColumn: [ :col | 
+			col
+				newRow: #currentBranchLabel height: self inputTextHeight;
+				newRow: #remotePanel height: self inputTextHeight;
+				newRow: [ :row | 
+					row
+						newColumn: #branchLabel width: self iceLabelWidth;
+						newColumn: #issueNumberText ]
+					height: self inputTextHeight;
+				newRow: [ :row |
+					row 
+						newColumn: #issueLabel width: self iceLabelWidth;
+						newColumn: #issueText ] 
+					height: self inputTextHeight;
+				newRow: #spacePanel ]

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/icon.st

@@ -0,0 +1,4 @@
+accessing
+icon
+
+	^ (self iconNamed: #github) scaledToSize: 16@16

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/title.st

@@ -0,0 +1,3 @@
+accessing
+title
+	^ 'New branch from issue'

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/class/unknownTitle.st

@@ -0,0 +1,3 @@
+accessing
+unknownTitle
+	^ 'INVALID-ISSUE'

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/branchName.st

@@ -0,0 +1,6 @@
+accessing
+branchName
+
+	^ '{1}-{2}' format: { 
+		issueNumberText text trim. 
+		issueText text trim }.

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/extent.st

@@ -0,0 +1,3 @@
+api
+extent
+	^ 800@175

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initialize.st

@@ -0,0 +1,5 @@
+initialization
+initialize
+
+	super initialize.
+	fetched := false

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeFocusOrder.st

@@ -0,0 +1,7 @@
+initialization
+initializeFocusOrder
+
+	self focusOrder
+		add: remotePanel;
+		add: issueNumberText;
+		add: issueText

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/initializeWidgetsContents.st

@@ -0,0 +1,25 @@
+initialization
+initializeWidgetsContents
+	spacePanel := PanelMorph new asSpecAdapter.
+
+	self initializeCurrentBranchLabel.
+
+	remotePanel := self instantiate: IceTipSelectRemotePresenter on: self selectRemoteModel.
+	remotePanel remoteList whenSelectedItemChanged: [ :remoteModel | 
+		self useRemote: remoteModel  ].
+
+	branchLabel := self newLabel label: 'Issue number:'.
+	issueNumberText := self newTextInput
+		ghostText: 'e.g., 123';
+		autoAccept: true.
+	issueLabel := self newLabel label: 'Title:'.
+	issueText := self newTextInput
+		ghostText: 'e.g., 123-github-issue';
+		autoAccept: true.
+
+	issueNumberText whenBuiltDo: [ :w | w widget wrapFlag: false ].
+	issueText
+		whenBuiltDo: [ :w | 
+			w widget wrapFlag: false.
+			w widget enabled: false ].
+	issueNumberText textHolder whenChangedDo: [ :text | self validateIssue: text ]

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel..st

@@ -0,0 +1,3 @@
+accessing ui
+issueLabel: anObject
+	issueLabel := anObject

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueLabel.st

@@ -0,0 +1,3 @@
+accessing ui
+issueLabel
+	^ issueLabel

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText..st

@@ -0,0 +1,3 @@
+accessing ui
+issueNumberText: anObject
+	issueNumberText := anObject

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueNumberText.st

@@ -0,0 +1,3 @@
+accessing ui
+issueNumberText
+	^ issueNumberText

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText..st

@@ -0,0 +1,3 @@
+accessing ui
+issueText: anObject
+	issueText := anObject

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/issueText.st

@@ -0,0 +1,3 @@
+accessing ui
+issueText
+	^ issueText

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel..st

@@ -0,0 +1,3 @@
+accessing ui
+remotePanel: anObject
+	remotePanel := anObject

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/remotePanel.st

@@ -0,0 +1,3 @@
+accessing ui
+remotePanel
+	^ remotePanel

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/sanitizeTitle..st

@@ -0,0 +1,12 @@
+private
+sanitizeTitle: aString
+	| separators safeSeparator |
+
+	aString isEmptyOrNil ifTrue: [ ^ self class unknownTitle ].
+
+	safeSeparator := $-.
+	separators := { Character space. Character tab. $_. safeSeparator }.
+	^ String streamContents: [ :str | 
+		aString do: [ :c |
+			(separators includes: c) ifTrue: [ str nextPut: safeSeparator ].
+			c isAlphaNumeric ifTrue: [ str nextPut: c ] ] ]

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/selectRemoteModel.st

@@ -0,0 +1,7 @@
+accessing
+selectRemoteModel
+
+	^ selectRemoteModel ifNil: [
+		selectRemoteModel := IceTipRemoteActionModel 
+			repositoryModel: self model
+			on: self model entity ]

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/updateText..st

@@ -0,0 +1,5 @@
+private
+updateText: aString 
+
+	issueText text: aString.
+	fetched := true

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/useRemote..st

@@ -0,0 +1,4 @@
+private
+useRemote: aRemoteModel
+
+	self selectRemoteModel useRemote: aRemoteModel

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validate.st

@@ -0,0 +1,10 @@
+accessing
+validate
+
+	self
+		assert: ((issueNumberText text asString notEmpty) and: [ issueNumberText text isAllDigits ])
+		description: 'Please enter a valid issue number'.
+
+	self
+		assert: fetched
+		description: 'Please fetch a valid issue number'

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/validateIssue..st

@@ -0,0 +1,24 @@
+private
+validateIssue: aString
+	| number remote |
+
+	fetched := false.
+	aString trimmed isEmpty ifTrue: [ ^ self ].
+	aString isAllDigits ifFalse: [ ^ self ].
+	number := aString asNumber.
+	(issue isNil or: [ (issue at: 'number') ~= number ]) ifFalse: [ ^ self ].
+	remote := self selectRemoteModel remote.
+
+	self wait: 500 milliSeconds thenDo: [ 	
+		[
+			issue := IceGitHubAPI new 
+				beAnonymous;
+				getIssue: remote owner 
+					project: remote projectName 
+					number: number.
+			UIManager default defer: [ 
+				self updateText: (self sanitizeTitle: (issue at: 'title')) ] ]
+		on: IceGitHubError do: [ :e | 
+			e messageText = 'Not Found' ifFalse: [ e pass ].
+			 UIManager default defer: [ 
+				self updateText: self class unknownTitle ] ] ]

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/instance/wait.thenDo..st

@@ -0,0 +1,12 @@
+private
+wait: time thenDo: aBlock
+	"This method avoids to request too many times the github api. 
+	 It does it in the simplest way possible: it starts a process that waits some 
+	 time (usually 500 milliseconds). If there is another entry before, it terminates 
+	 the process and starts a new one."
+
+	currentWaitingProcess ifNotNil: [ currentWaitingProcess terminate ].
+	currentWaitingProcess := [ 
+			time wait.
+			aBlock value ] 
+		forkNamed: 'GitHub issue tracker'

Iceberg-Plugin-GitHub.package/IceGitHubNewBranchFromIssuePanel.class/properties.json

@@ -0,0 +1,20 @@
+{
+	"commentStamp" : "EstebanLorenzano 9/18/2018 17:11",
+	"super" : "IceTipCheckoutNewBranchPanel",
+	"category" : "Iceberg-Plugin-GitHub-View",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"remotePanel",
+		"issueNumberText",
+		"issueLabel",
+		"issueText",
+		"issue",
+		"fetched",
+		"selectRemoteModel",
+		"currentWaitingProcess"
+	],
+	"name" : "IceGitHubNewBranchFromIssuePanel",
+	"type" : "normal"
+}

Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/README.md

@@ -0,0 +1,4 @@
+I'm a pluging to handle GitHub issues integration. 
+It just add options to easily handle the creation of branchs with the "convention" issue naming format (number-plus-normalised-title): 
+
+123-a-sample-of-issue-branch

Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/class/isAvailableFor..st

@@ -0,0 +1,4 @@
+testing
+isAvailableFor: aRepository
+
+	^ aRepository remotes anySatisfy: [ :each | each host = 'github.com' ]

Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/instance/checkoutBranchPanelsOnModel..st

@@ -0,0 +1,4 @@
+accessing-ui
+checkoutBranchPanelsOnModel: aRepositoryModel 
+
+	^ { IceGitHubNewBranchFromIssuePanel on: aRepositoryModel }

Iceberg-Plugin-GitHub.package/IceGitHubPlugin.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "EstebanLorenzano 9/18/2018 17:09",
+	"super" : "IcePlugin",
+	"category" : "Iceberg-Plugin-GitHub",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "IceGitHubPlugin",
+	"type" : "normal"
+}

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/browserContextActivation.st

@@ -0,0 +1,8 @@
+testing
+browserContextActivation
+	<classAnnotation>
+
+	^ CmdContextMenuActivation 
+			byItemOf: IceGitHubMenuGroup
+			order: 20
+			for: IceTipRepositoryListContext

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/canBeExecutedInContext..st

@@ -0,0 +1,4 @@
+testing
+canBeExecutedInContext: aToolContext
+
+	^ aToolContext repositoryModel remotes anySatisfy: [ :each | each host = 'github.com' ]

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuIconName.st

@@ -0,0 +1,3 @@
+testing
+defaultMenuIconName
+	^ #branch

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultMenuItemName.st

@@ -0,0 +1,3 @@
+testing
+defaultMenuItemName
+	^ 'Create new branch for issue...'

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultPosition.st

@@ -0,0 +1,4 @@
+testing
+defaultPosition
+
+	^ #right

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/class/defaultToolbarItemName.st

@@ -0,0 +1,3 @@
+testing
+defaultToolbarItemName
+	^ 'New issue'

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/defaultMenuIcon.st

@@ -0,0 +1,4 @@
+execution
+defaultMenuIcon
+
+	^ self iconNamed: #github

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/instance/execute.st

@@ -0,0 +1,6 @@
+execution
+execute
+
+	(IceTipCheckoutBranchDialog on: self repositoryModel)
+		withTypes: (IceGitHubPlugin new checkoutBranchPanelsOnModel: self repositoryModel);
+		openDialogWithSpec

Iceberg-Plugin-GitHub.package/IceNewBranchFromGitHubIssueCommand.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "IceTipCommand",
+	"category" : "Iceberg-Plugin-GitHub-Commands",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "IceNewBranchFromGitHubIssueCommand",
+	"type" : "normal"
+}

Iceberg-Plugin-Pharo.package/IcePharoManuscriptPlugin.class/instance/checkoutBranchPanelsOnModel..st

@@ -1,4 +1,4 @@
 acccessing-ui
-checkoutBranchPanelsOnModel: anIceTipCachedModel 
+checkoutBranchPanelsOnModel: aRepositoryModel 
 
-	^ { IcePharoNewBranchFromIssuePanel on: anIceTipCachedModel }
+	^ { IcePharoNewBranchFromIssuePanel on: aRepositoryModel }