;;; -*- lexical-binding: t; -*-
(use-package eshell
  :bind
  (:map eshell-hist-mode-map
        ("M-r" . consult-history))

  :config
  (add-hook 'eshell-mode-hook
            (lambda ()
              (setenv "PAGER" "cat"))
            (setenv "EDITOR" "emacsclient"))
  (setq eshell-prefer-lisp-functions nil
        eshell-scroll-to-bottom-on-input 'all
        eshell-hist-ignoredups t
        eshell-error-if-no-glob t)
  (setq tramp-remote-path '(tramp-own-remote-path))

  (add-to-list 'eshell-modules-list 'eshell-tramp)
  (add-to-list 'eshell-load-hook #'kj/on-eshell-load)

  (add-hook 'eshell-mode-hook 'visual-line-mode))

(use-package esh-help
  :init
  (setup-esh-help-eldoc))

(use-package eshell-syntax-highlighting
  :hook (eshell-mode . eshell-syntax-highlighting-mode))

(use-package fish-completion
  :config
  (setq fish-completion-fallback-on-bash-p t)
  :init
  (fish-completion-mode 1))

(defun kj/on-eshell-load (&args rest)
  (add-to-list 'eshell-visual-commands
               '("htop" "tmux" "vim" "nvim"))
  (add-to-list 'eshell-complex-commands "ssh"))

(defun eshell/ssh (&rest args)
  (if (= 1 (length args))
      (throw 'eshell-replace-command
             (eshell/cd
              (format "/ssh:%s:" (car args))))
    (throw 'eshell-replace-command
           (eshell-parse-command "*ssh"
                                 (eshell-stringify-list (flatten-tree args))))))

(provide 'kj-eshell)