Add vagrant host predicates.

Author: proofit404

README.rst

@@ -98,6 +98,60 @@ Determine if python environment has been changed since PROCESS was started.
       :process "pythonic"
       :args '("-V")))
 
+pythonic-remote-p
+~~~~~~~~~~~~~~~~~
+
+Determine remote or local virtual environment.
+
+.. code:: lisp
+
+    (pythonic-remote-p)
+
+pythonic-remote-docker-p
+~~~~~~~~~~~~~~~~~~~~~~~~
+
+Determine docker remote virtual environment.
+
+.. code:: lisp
+
+    (pythonic-remote-docker-p)
+
+pythonic-remote-vagrant-p
+~~~~~~~~~~~~~~~~~~~~~~~~~
+
+Determine vagrant remote virtual environment.
+
+.. code:: lisp
+
+    (pythonic-remote-vagrant-p)
+
+pythonic-remote-user
+~~~~~~~~~~~~~~~~~~~~
+
+Get user of the connection to the remote python interpreter.
+
+.. code:: lisp
+
+    (pythonic-remote-user)
+
+pythonic-remote-host
+~~~~~~~~~~~~~~~~~~~~
+
+Get host of the connection to the remote python interpreter.
+
+.. code:: lisp
+
+    (pythonic-remote-host)
+
+pythonic-remote-port
+~~~~~~~~~~~~~~~~~~~~
+
+Get port of the connection to the remote python interpreter.
+
+.. code:: lisp
+
+    (pythonic-remote-port)
+
 Commands
 --------
 

pythonic.el

@@ -51,6 +51,34 @@
   (and (pythonic-remote-p)
        (s-starts-with-p "/docker:" (pythonic-tramp-connection))))
 
+(defun pythonic-remote-vagrant-p ()
+  "Determine vagrant remote virtual environment."
+  (and (pythonic-remote-p)
+       (s-equals-p (pythonic-remote-host) "localhost")
+       (s-equals-p (pythonic-remote-user) "vagrant")))
+
+(defun pythonic-remote-user ()
+  "Get user of the connection to the remote python interpreter."
+  (tramp-file-name-user
+   (tramp-dissect-file-name
+    (pythonic-tramp-connection))))
+
+(defun pythonic-remote-host ()
+  "Get host of the connection to the remote python interpreter."
+  (replace-regexp-in-string
+   "#.*\\'" ""
+   (tramp-file-name-host
+    (tramp-dissect-file-name
+     (pythonic-tramp-connection)))))
+
+(defun pythonic-remote-port ()
+  "Get port of the connection to the remote python interpreter."
+  (let ((hostname (tramp-file-name-host
+                   (tramp-dissect-file-name
+                    (pythonic-tramp-connection)))))
+    (when (s-contains-p "#" hostname)
+      (string-to-number (replace-regexp-in-string "\\`.*#" "" hostname)))))
+
 (defun pythonic-file-name (file)
   "Normalized FILE location with out tramp prefix."
   (if (tramp-tramp-file-p file)