sshirokov

;; Tunnel boot scaffold [elisp]
(defun toggle-tunnel-out (&optional again)
  (interactive "P")
  (let* ((bname " *tun*")
         (tun (get-buffer bname)))
    (if tun
        (let ((kill-buffer-query-functions nil))
          (kill-buffer tun))
      (async-shell-command "~/bin/loop-tunnel.sh" " *tun*")))
  (when again (toggle-tunnel-out)))