(defun fcuny/eshell-mode-setup ()
  (eshell/alias "e" "find-file $1")
  (eshell/alias "emacs" "find-file $1")
  (eshell/alias "ee" "find-file-other-window $1")

  (eshell/alias "gs" "magit-status")
  (eshell/alias "gd" "magit-diff-unstaged")
  (eshell/alias "gds" "magit-diff-staged")
  (eshell/alias "d" "dired $1"))

(defun eshell/gst (&rest args)
  (magit-status (pop args) nil)
  (eshell/echo))   ;; The echo command suppresses output

(defun fcuny/eshell-here ()
  "Opens up a new shell in the directory associated with the current
buffer's file. The eshell is renamed to match that directory to make
multiple eshell windows easier."
  (interactive)
  (let* ((height (/ (window-total-height) 3)))
    (split-window-vertically (- height))
    (other-window 1)
    (eshell "new")
    (insert (concat "ls"))
    (eshell-send-input)))

;; eshell time and notification
(defvar-local eshell-current-command-start-time nil)

;; https://www.birkey.co/2021-06-20-why-eshell-part-1.html
(defun fcuny/eshell-current-command-start ()
  (setq eshell-current-command-start-time (current-time)))

(defun fcuny/eshell-current-command-stop ()
  (when eshell-current-command-start-time
    (let ((elapsed-time (float-time
			             (time-subtract (current-time)
					                    eshell-current-command-start-time))))
      (if (> elapsed-time 5)
          (eshell-interactive-print
	       (format "Finished in: %.0fs\n" elapsed-time)))))
    (setq eshell-current-command-start-time nil))

(defun fcuny/eshell-current-command-time-track ()
  (add-hook 'eshell-pre-command-hook #'fcuny/eshell-current-command-start nil t)
  (add-hook 'eshell-post-command-hook #'fcuny/eshell-current-command-stop nil t))

(use-package eshell
  :hook ((eshell-mode . fcuny/eshell-mode-setup)
         (eshell-mode . fcuny/eshell-current-command-time-track)
         (eshell-mode . eshell-smart-initialize))
  :bind (("C-c e h" . fcuny/eshell-here))
  :init
  (require 'em-smart)
  (require 'em-hist)
  (require 'em-tramp)
  :custom
  (eshell-scroll-to-bottom-on-input 'all)
  (eshell-error-if-no-glob t)
  (eshell-hist-ignoredups t)
  (eshell-save-history-on-exit t)
  (eshell-prefer-lisp-functions nil)
  (eshell-where-to-jump 'begin)
  (eshell-review-quick-commands nil)
  (eshell-smart-space-goes-to-end t)
  (eshell-destroy-buffer-when-process-dies t))

(provide 'fcuny-eshell)