From 4b3911445442bc30ed88d9c4184b6ddf01eb7293 Mon Sep 17 00:00:00 2001
From: Veit Heller <veit@veitheller.de>
Date: Wed, 28 Feb 2024 10:24:29 +0100
Subject: [PATCH] Add utility method to credential store for adding ssh

---
 src/GToolkit4Git/IceCredentialStore.extension.st | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/GToolkit4Git/IceCredentialStore.extension.st

diff --git a/src/GToolkit4Git/IceCredentialStore.extension.st b/src/GToolkit4Git/IceCredentialStore.extension.st
new file mode 100644
index 00000000..00d4b93a
--- /dev/null
+++ 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
+]