...

1 files changed, 24 insertions, 1 deletions

diff --git a/accounts/gkleen@sif/emacs.el b/accounts/gkleen@sif/emacs.el
index c8356bf2..b22c00f5 100644
--- a/accounts/gkleen@sif/emacs.el
+++ b/accounts/gkleen@sif/emacs.el
@@ -68,7 +68,7 @@
 
 (setq undo-tree-auto-save-history t)
 
-(defvar expand-file-name-custom-tilde-alist '())
+(defvar expand-file-name-custom-tilde-alist '(("u2w-dev1" . "/ssh:uni2work-dev1:/home/gkleen/projects/uni2work")))
 (defun my/add-to-tilde-alist (hash)
   (let* ((tilde:dir (split-string hash "="))
          (tilde (car tilde:dir))
@@ -128,6 +128,29 @@
 (setq ido-everywhere t)
 (ido-mode 1)
 
+(setq tramp-default-method "ssh")
+(customize-set-variable 'tramp-use-ssh-controlmaster-options nil)
+
+(setq direnv-enabled-hosts '("uni2work-dev1"))
+
+(defun tramp-sh-handle-start-file-process@my-direnv (args)
+  "Enable Direnv for hosts in `direnv-enabled-hosts'."
+  (with-parsed-tramp-file-name (expand-file-name default-directory) nil
+    (if (member host direnv-enabled-hosts)
+        (pcase-let ((`(,name ,buffer ,program . ,args) args))
+          `(,name
+            ,buffer
+            "direnv"
+            "exec"
+            ,localname
+            ,program
+            ,@args))
+      args)))
+
+(with-eval-after-load "tramp-sh"
+  (advice-add 'tramp-sh-handle-start-file-process
+              :filter-args #'tramp-sh-handle-start-file-process@my-direnv))
+
 (setq mail-host-address "sif.midgard.yggdrasil")
 (setq user-full-name "Gregor Kleen")