;;; eshell.el --- eshell-specific configuration      -*- lexical-binding: t; -*-

;; Copyright (C) 2021  Case Duckworth

;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>

;;; Commentary:

;; Much like ~/.emacs.d/gnus.el, this is eshell-specific configuration that's
;; loaded whenever `eshell' is loaded.

;;; Code:

(require 'setup)
(require 'eshell)
(require 'em-alias)

;;; Environment
(setenv "PAGER" "cat")

;;; Aliases

(dolist (definition '(("e" . "find-file $1")
                      ("ff" . "find-file $1")
                      ("emacs" . "find-file $1")
                      ("ee" . "find-file-other-window $1")))
  (eshell/alias (car definition) (cdr definition)))

;;; Functions

;;; Extra eshell packages

(setup (:straight esh-autosuggest)
  (:hook-into eshell-mode))

(setup (:straight esh-help)
  (require 'esh-help)
  (setq-local eldoc-documentation-function #'esh-help-eldoc-command))

(setup (:straight eshell-syntax-highlighting)
  (eshell-syntax-highlighting-global-mode +1))

(setup (:straight-when fish-completion
         (executable-find "fish"))
  (:autoload global-fish-completion-mode)
  (global-fish-completion-mode +1))

;;; Miscellaneous

;; Fix modeline
(when (boundp 'simple-modeline--mode-line)
  (setq mode-line-format '(:eval simple-modeline--mode-line)))

(provide 'eshellrc)
;;; eshell.el ends here