Zoxide for eshell how to get zoxide for eshell zoxide eshell emacs zoxide

zoxide.el

(defun eshell/z (&optional &rest ARGS)
  "Zoxide implementation for Eshell.  Optionally takes in ARGS, which will be passed to Zoxide"
  (interactive)

  (let* ((args (if ARGS
		   (eshell-list-to-string (flatten-tree ARGS))
		 (getenv "HOME")))
	 (output (string-trim
		  (shell-command-to-string
		   (concat "zoxide query " args)))))
    (cond

     ;; if it is -, go back
     ((string-equal args "-")
      (eshell/cd "-"))

     ;; if it exists, just cd to it and try to add it
     ((file-directory-p args)
      (shell-command-to-string
       (concat "zoxide add " args))
      (eshell/cd args))

     ;; until I can find a better way to check for it finding nothing,
     ;; this relies on zoxide's output format staying the same
     ;;
     ;; this one might be redundant with the clause above,
     ;; but I will keep it just to be safe
     ((string-equal output "zoxide: no match found")
      (shell-command-to-string
       (concat "zoxide add " args))
      (eshell/cd args))

     ;; if zoxide found it, cd to it
     (t
      (eshell/cd output)))))