New sshuttle helper function

local/tunnel.el

@@ -7,4 +7,11 @@
     (with-current-buffer buffer
       (insert (concat "Starting tunnel on " host " port " port)))))
 
+(defun sshuttle-tunnel (host)
+  (interactive "suser@host: ")
+  (let ((buffer "sshuttle"))
+    (async-shell-command
+     (format "sudo sshuttle --dns -r %s 0.0.0.0/0" host)
+     buffer)))
+
 (provide 'tunnel)