From 87be4eaa6d1d545d546066070b92f39135ab83da Mon Sep 17 00:00:00 2001
From: James Bunton <jamesbunton@delx.au>
Date: Wed, 6 Mar 2024 01:15:03 +1100
Subject: [PATCH] SSH_AUTH_SOCK

---
 init.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/init.el b/init.el
index 4af6e28..a3ddcbd 100644
--- a/init.el
+++ b/init.el
@@ -159,6 +159,16 @@
 (global-set-key (kbd "C-z") nil)
 (global-set-key (kbd "C-x C-z") nil)
 
+;;;;;;;;;;;;;;;;;;;;;;;;
+;; Find SSH_AUTH_SOCK ;;
+;;;;;;;;;;;;;;;;;;;;;;;;
+
+(dolist (p '("keyring/ssh" "gcr/ssh" "openssh_agent"))
+  (let ((SSH_AUTH_SOCK (substitute-env-vars (concat "$XDG_RUNTIME_DIR/" p))))
+    (when (file-exists-p SSH_AUTH_SOCK)
+      (message "Found SSH_AUTH_SOCK %s" SSH_AUTH_SOCK)
+      (setenv "SSH_AUTH_SOCK" SSH_AUTH_SOCK))))
+
 ;;;;;;;;;;;;;;;;;;;
 ;; Load packages ;;
 ;;;;;;;;;;;;;;;;;;;
-- 
2.39.2