Add utility method to credential store for adding ssh

feenkcom · Feb 28, 2024 · 4b39114 · 4b39114
1 parent a2558a6
commit 4b39114
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/GToolkit4Git/IceCredentialStore.extension.st b/src/GToolkit4Git/IceCredentialStore.extension.st
@@ -0,0 +1,14 @@
+Extension { #name : #IceCredentialStore }
+
+{ #category : #'*GToolkit4Git' }
+IceCredentialStore >> addSshKeyForHost: aHostSymbol inFile: aFileString [
+	| credentials |
+	credentials := IceSshCredentials new
+			host: aHostSymbol;
+			username: 'git';
+			publicKey: aFileString , '.pub';
+			privateKey: aFileString;
+			yourself.
+	self storeSshCredential: credentials forHostname: credentials host.
+	IceCredentialsProvider useCustomSsh: true
+]