eshellのバック/フォワードディレクトリエイリアスを作成する方法

私は長年、zshスクリプトを使用してきました。これにより、ディレクトリを変更するたびに、pushdが暗黙的に発生します。このスクリプトは、「b」および「f」エイリアスを設定します。これは、Webブラウザーの「戻る」および「進む」ボタンと同様に、スタックを上下に移動します。セッションの例：

/etc $ cd /tmp
/tmp $ cd /bin
/bin $ b
/tmp $ b
/etc $ f
/tmp $ f
/bin $

私はそれが信じられないほど便利であると思ったので、これをeshellに設定するための最良の方法は何ですか？

編集：私がここで行ったコードを参照してください、以下のわずかな変更：https：//gist.github.com/jgarvin/0627ed76a773ade222f6

以下は、節約cd歴史とESHELLコマンドを提供bし、fその歴史をナビゲートします：

;;*--- track cd history ------------------------------------------------*/
(defvar-local eshell-hist-dirs nil)

(add-hook 'eshell-directory-change-hook
          (defun eshell-update-hist-dir ()
            (push (eshell/pwd) eshell-hist-dirs)
            (setq eshell-hist-index 0)))

;;*--- navigate history ------------------------------------------------*/
(defvar-local eshell-hist-index 0)

(defun eshell-forward (n)
  (unless eshell-hist-dirs
    (user-error "eshell-hist-dirs is empty, cd a few times"))
  (let ((dirs eshell-hist-dirs)
        (index (+ eshell-hist-index n)))
    (prog1 (eshell/cd (nth index dirs))
      (setq eshell-hist-dirs dirs
            eshell-hist-index index))))

(defun eshell/b ()
  (eshell-forward 1))

(defun eshell/f ()
  (eshell-forward -1))

ところで、eshellの組み込みcdコマンドは、たとえば、cd -最後のディレクトリ、cd -1最後から2番目のディレクトリ、およびcd =tmpを含む最後のディレクトリなど、履歴ディレクトリにジャンプするいくつかの方法をすでに提供していますtmp。詳細については、（eshell）ビルトインを参照してください。