Propose a remote name when adding a new remote

Closes #205

src/Squit.package/SquitInteractiveAddRemote.class/class/repository..st

@@ -0,0 +1,5 @@
+instance creation
+repository: aSquitRepository
+	^ self new
+		repository: aSquitRepository;
+		yourself

src/Squit.package/SquitInteractiveAddRemote.class/instance/initializeQuery.st

@@ -0,0 +1,4 @@
+running
+initializeQuery
+	query := SquitAddRemote new.
+	query remoteName: self proposedRemoteName.

src/Squit.package/SquitInteractiveAddRemote.class/instance/proposedRemoteName.st

@@ -0,0 +1,13 @@
+running
+proposedRemoteName
+	| suggestion isFirstRemote isGitHubUrl |
+	isFirstRemote := self repository remoteNames isEmpty.
+	isFirstRemote
+		ifTrue: [suggestion := 'origin']
+		ifFalse:
+			[isGitHubUrl := query remoteUrl includesSubstring: '://github.com/'.
+			isGitHubUrl ifTrue:
+				[ | repoOwner | repoOwner := (query remoteUrl splitBy: '/') at: 4 ifAbsent: [].
+				suggestion := repoOwner]].
+	(self repository remoteNames includes: suggestion) ifTrue: [suggestion := nil].
+	^ suggestion ifNil: ['']

src/Squit.package/SquitInteractiveAddRemote.class/instance/run.st

@@ -2,6 +2,7 @@ running
 run
 	promise := Promise new.
 	Project current addDeferredUIMessage:
-		[query := SquitAddRemote new.
-		self requestRemoteDetails].
+		[self withActiveUnitOfWork:
+			[self initializeQuery;
+				requestRemoteDetails]].
 	^ promise "will be resolved with a SquitAddRemote or rejected with #cancelled"

src/Squit.package/SquitInteractiveAddRemote.class/methodProperties.json

@@ -1,15 +1,17 @@
 {
 	"class" : {
-		 },
+		"repository:" : "jr 8/30/2020 19:26" },
 	"instance" : {
 		"fetch" : "jr 7/1/2020 21:52",
+		"initializeQuery" : "jr 8/30/2020 19:32",
 		"notifyRemoteAdded" : "jr 7/1/2020 21:41",
 		"notifyRollback" : "jr 7/1/2020 21:42",
 		"onQueryClose:" : "jr 8/8/2020 00:00",
 		"onRemoteAddedDo:" : "jr 7/1/2020 21:39",
 		"onRollbackDo:" : "jr 7/1/2020 21:40",
+		"proposedRemoteName" : "jr 8/30/2020 20:01",
 		"requestFetchFromRemoteNamed:" : "jr 8/8/2020 00:00",
 		"requestRemoteDetails" : "jr 7/1/2020 21:32",
 		"retry" : "jr 7/1/2020 21:32",
-		"run" : "jr 7/21/2020 12:49",
+		"run" : "jr 8/30/2020 19:34",
 		"undo" : "jr 7/1/2020 21:54" } }