setup/x2go-hack.el

   1 (defvar ssh-agent-auth-sock-link "~/.ssh/ssh_auth_sock")
   2
   3 (defun g0dil-set-ssh-agent()
   4   (message "SSH_AUTH_SOCK set to %s" ssh-agent-auth-sock-link)
   5   (setenv "SSH_AUTH_SOCK" (expand-file-name ssh-agent-auth-sock-link)))
   6
   7 (defun g0dil-x2go-fix-ssh-agent ()
   8   (let ((agent (getenv "SSH_AUTH_SOCK")))
   9     (if (and agent (string-match "^.*/\.x2go/.*/ssh-agent.PID" agent))
  10       (g0dil-set-ssh-agent))))
  11
  12 (defun g0dil-fix-ssh-agent ()
  13   (if (file-exists-p ssh-agent-auth-sock-link)
  14     (g0dil-set-ssh-agent)))
  15
  16 (g0dil-fix-ssh-agent)