;;; -*- lexical-binding: t; -*-
(use-package eshell
  :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-destroy-buffer-when-process-dies t
        eshell-review-quick-commands nil
        eshell-smart-space-goes-to-end t
        eshell-error-if-no-glob t)
  (setq tramp-remote-path '(tramp-own-remote-path))

  (add-to-list 'eshell-modules-list 'eshell-smart)

  (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 bash-completion
  :after eshell
  :init
  (require 'bash-completion)
  (bash-completion-setup)
  (add-hook 'eshell-mode-hook
            (defun kj/eshell-setup-bash-completion ()
              (add-hook 'completion-at-point-functions
                        'bash-completion-capf-nonexclusive nil t))))

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

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

(defun kj/on-eshell-load (&args rest)
  (define-key eshell-hist-mode-map (kbd "M-r") 'consult-history)
  (dolist (command '("htop" "tmux" "vim" "nvim"))
          (add-to-list 'eshell-visual-commands
                       command))
  (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)