SSH Authentication Sock for Emacs

ssh-auth-sock-gist.el

;; -*- mode: lisp-interactive -*-

;;;; Set the SSH authentication sock file for processes in Emacs to find for
;;;; TRAMP and git operations...

;; What we want to happen
(setenv "SSH_AUTH_SOCK" "/run/user/1000/keyring/ssh")

;; Getting my user id
(user-real-uid)

;; Represent as a string
(number-to-string (user-real-uid))

;; Ways to build a string
(concat "/run/user/" (number-to-string(user-real-uid)) "/keyring/ssh")
(format "/run/user/%i/keyring/ssh" (user-real-uid))

;; put it in a variable
(setq ssh_auth_sock (format "/run/user/%i/keyring/ssh" (user-real-uid)))

;; Conditional to see if the file exists and execute what we want
(if (file-exists-p ssh_auth_sock)
   (setenv "SSH_AUTH_SOCK" ssh_auth_sock))

;; That's probably good enough for now. Later, functions, lists of possible
;; directories to look for, and process checking.