Set path property for remote pythonic processes.

Author: proofit404

pythonic.el

@@ -120,6 +120,12 @@ It will use `python-shell-exec-path' for PATH variable,
                    (--remove (member it python-shell-extra-pythonpaths) it)
                    (append python-shell-extra-pythonpaths it)))))))
 
+(defun pythonic-get-path ()
+  "Return appropriate PATH variable for pythonic process."
+  (if (pythonic-remote-p)
+      (pythonic-get-path-variable-tramp)
+    (pythonic-get-path-variable)))
+
 (defun pythonic-get-path-variable ()
   "Get PATH variable according to `python-shell-exec-path'."
   (s-join path-separator
@@ -129,14 +135,20 @@ It will use `python-shell-exec-path' for PATH variable,
                (-remove 's-blank?)
                (-distinct))))
 
+(defun pythonic-get-path-variable-tramp ()
+  "Get PATH variable on remote host according to `python-shell-exec-path'."
+  (let* ((vec (tramp-dissect-file-name (pythonic-tramp-connection)))
+         (path (-distinct (append python-shell-exec-path (tramp-get-remote-path vec)))))
+    (s-join path-separator path)))
+
 (defun pythonic-set-path-variable ()
   "Set PATH according to `python-shell-exec-path'."
   (setenv "PATH" (pythonic-get-path-variable)))
 
 (defun pythonic-set-path-variable-tramp ()
   "Set PATH according to `python-shell-exec-path' on remote host."
   (let* ((vec (tramp-dissect-file-name (pythonic-tramp-connection)))
-         (path (append python-shell-exec-path (tramp-get-remote-path vec))))
+         (path (s-split path-separator (pythonic-get-path-variable-tramp))))
     (tramp-set-connection-property vec "remote-path" path)
     (tramp-set-remote-path vec)))
 
@@ -186,7 +198,7 @@ process flag."
       (set-process-query-on-exit-flag process query-on-exit)
       (process-put process 'default-directory default-directory)
       (process-put process 'environment python-shell-process-environment)
-      (process-put process 'path (pythonic-get-path-variable))
+      (process-put process 'path (pythonic-get-path))
       (process-put process 'pythonpath (pythonic-get-pythonpath-variable))
       process)))
 

test/pythonic-test.el

@@ -316,6 +316,20 @@ remote host."
                     (start-pythonic :process "out" :args '("-V"))
                     'path)))))
 
+(ert-deftest test-start-pythonic-path-property-tramp ()
+  "Set `python-shell-exec-path' as `path' process property on remote process."
+  (unwind-protect
+      (let* ((python-shell-interpreter "/ssh:test@localhost:/path/to/the/python")
+             (home (f-expand "~"))
+             (python-shell-exec-path '("/home/test/bin")))
+        (should (equal "/home/test/bin:/bin:/usr/bin:/sbin:/usr/sbin:/usr/local/bin:/usr/local/sbin"
+                       (process-get
+                        (start-pythonic :process "out" :args '("-V"))
+                        'path))))
+    (kill-buffer "*tramp/ssh test@localhost*")
+    (setq tramp-current-connection)
+    (sleep-for 0.5)))
+
 (ert-deftest test-start-pythonic-pythonpath-property ()
   "Set `python-shell-extra-pythonpaths' as `pythonpath' process property."
   (let* ((home (f-expand "~"))