eshell でも Git リポジトリのトップレベルディレクトリに cd する

zsh で Git リポジトリのトップレベル ディレクトリに cd するプラグイン http://qiita.com/mollifier/items/cf0263dccc112ab8b87d
が、ものすごい便利なので eshell でも動くのをこしらました。

~/.emacs.d/init.el

(defun eshell/i ()
  ".gitのあるディレクトリまで上がる"
  (insert (concat "cd " (locate-dominating-file default-directory ".git")))
  (eshell-send-input))

これで i だけで .git のあるところまで cd できます。
eshell/i の i を変更するとコマンド名が変更できます。