From: James Bunton <jamesbunton@delx.au>
Date: Tue, 5 Mar 2024 14:15:03 +0000 (+1100)
Subject: SSH_AUTH_SOCK
X-Git-Url: https://code.delx.au/dotemacs/commitdiff_plain/HEAD

SSH_AUTH_SOCK
---

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 ;;
 ;;;;;;;;;;;;;;;;;;;