fasd-eshell.el

(defun eshell/j (&rest query)
  (require 's)
  (let* ((fasd (executable-find "fasd"))
         (matches (thread-last (s-join " " query)
                    (format "%s -ld %s" fasd)
                    (shell-command-to-string)
                    (s-trim)
                    (s-lines)
                    (mapcar 's-trim))))
    (message "Matches: %s" matches)
    (when-let (dir (first matches))
      (eshell/cd dir))))