x2go: workaround for ssh agent bug

diff --git a/setup/x2go-hack.el b/setup/x2go-hack.el
new file mode 100644 (file)
index 0000000..56ca33a
--- /dev/null
+++ b/setup/x2go-hack.el
@@ -0,0 +1,8 @@
+(defvar ssh-agent-auth-sock-link "~/.ssh/ssh_auth_sock")
+
+(defun g0dil-x2go-fix-ssh-agent ()
+  (let ((agent (getenv "SSH_AUTH_SOCK")))
+    (if (string-match "^.*/\.x2go/.*/ssh-agent.PID" agent)
+        (setenv "SSH_AUTH_SOCK" (expand-file-name ssh-agent-auth-sock-link)))))
+
+(g0dil-x2go-fix-ssh-agent)