rieceからsshのトンネルを掘る

環境の都合上clientからIRC proxyまでの経路をsshでトンネルを掘っている。これを裏でshell scriptを使って接続していたんだけど、めんどいので、riece動かした時になんとかしてみようと思った。

というわけで以下結果。

(eval-after-load "riece"
 '(progn
    (defun irc-ssh-tunnel-negotiates-connection (process event)
      (message "ssh tunnel established")
      (set-process-filter process nil)
      (setq irc-ssh-tunnel-negotiating nil))
    (defun make-tunnel (irc-ssh-user irc-ssh-server)
      (setq irc-ssh-tunnel-negotiating t)
      (if (condition-case nil
              (let* ((buf (generate-new-buffer " *irc-tunnel*"))
                    (process (open-network-stream
                              "irc-tunnel"
                              buf
                              "localhost"
                              16667)))
                (delete-process process)
                (kill-buffer buf)
                nil)
            (error t))
          (progn
            (setq process
                  (start-process "irc-ssh"
                                 nil
                                 "ssh"
                                 (concat irc-ssh-user "@" irc-ssh-server) "-C"
"-L 16667:localhost:16667"))
            (set-process-filter process 'irc-ssh-tunnel-negotiates-connection)
            (while irc-ssh-tunnel-negotiating
              (sit-for 0.1)))))
    (add-hook 'riece-after-load-startup-hook
              '(make-tunnel "user" "host"))))
16667でlistenしてるのがなければsshでport forwarding、繋がるまでラグがあるので、set-process-filterで何か飛んでくるのを待ってからhookから抜けるようにしてみた。