Add modules/tools/{dired,eshell}

modules/tools/eshell/config.el

@@ -0,0 +1,92 @@
+;;; emacs/eshell/config.el
+
+;; This is highly experimental. I don't use eshell often, so this may need work.
+
+;; see:
+;;   + `+eshell/run': open in current buffer
+;;   + `+eshell/tab': open in separate tab (requires :feature workspaces)
+;;   + `+eshell/popup': open in a popup
+
+(defvar +eshell-buffers '()
+  "TODO")
+
+(@def-package eshell ; built-in
+  :init
+  (setq eshell-directory-name (concat doom-cache-dir "/eshell")
+        eshell-scroll-to-bottom-on-input 'all
+        eshell-scroll-to-bottom-on-output 'all
+        eshell-buffer-shorthand t
+        ;; em-prompt
+        eshell-prompt-function '+eshell/prompt
+        ;; em-glob
+        eshell-glob-case-insensitive t
+        eshell-error-if-no-glob t
+        ;; em-alias
+        eshell-aliases-file "~/.eshell-aliases")
+
+  :config
+  (@set :popup "^\\*eshell:popup\\*$" :regexp t :size 25)
+  (@set :evil-state 'eshell-mode 'insert)
+
+  (defun +eshell|keymap-setup ()
+    "Setup eshell keybindings. This must be done in a hook because eshell
+redefines its keys every time `eshell-mode' is enabled."
+    (@map :map eshell-mode-map
+          :n "i" '+eshell/evil-prepend-maybe
+          :n "I" '+eshell/evil-prepend
+          :n "a" '+eshell/evil-append-maybe
+          :n "A" '+eshell/evil-append
+          :n "r" '+eshell/evil-replace-maybe
+          :n "R" '+eshell/evil-replace-state-maybe
+          :n "c" '+eshell/evil-change
+          :n "C" '+eshell/evil-change-line
+          :i "<tab>" 'eshell-pcomplete
+          :i "C-u" 'eshell-kill-input
+          :i "SPC" 'self-insert-command
+          :m "<return>" '+eshell/evil-append
+          :n [remap evil-window-split]       '+eshell/split
+          :n [remap evil-window-vsplit]      '+eshell/vsplit
+          :n [remap evil-record-macro]       'eshell-life-is-too-much
+          [remap doom/close-window-or-tab]   'eshell-life-is-too-much))
+  (add-hook 'eshell-mode-hook 'doom|eshell-keymap-setup)
+
+  (defun +eshell|cleanup ()
+    "Close window (or workspace) on quit."
+    (setq +eshell-buffers (delete (current-buffer) +eshell-buffers))
+    (cond ((doom-popup-p)
+           (delete-window))
+          ((and (@featurep :feature workspaces)
+                (string= "eshell" (+workspace-current-name)))
+           (+workspace/close-window-or-workspace))))
+  (add-hook 'eshell-exit-hook 'doom|eshell-cleanup)
+
+  (defun +eshell|init ()
+    "Keep track of eshell buffers."
+    (add-to-list '+eshell-buffers (current-buffer)))
+  (add-hook 'eshell-mode-hook 'doom|eshell-init)
+
+  (add-hook 'eshell-mode-hook 'doom-hide-modeline-mode)
+
+  (@add-hook eshell-mode
+    (add-hook 'evil-insert-state-exit-hook  'hl-line-mode nil t)
+    (add-hook 'evil-insert-state-entry-hook (lambda () (hl-line-mode -1)) nil t))
+
+  ;; Aliases
+  (setq eshell-command-aliases-list
+        '(("q"   "exit")
+          ("l"   "ls -1")
+          ("ll"  "ls -l")
+          ("la"  "ls -la")
+          ("g"   "hub")
+          ("gs"  "hub status --oneline .")
+          ("gss" "hub status --oneline")))
+
+  ;; Custom commands
+  ;; (defun eshell/e (file)
+  ;;   (eshell-eval (cond ((doom/popup-p)
+  ;;                       (doom/popup-save (find-file file))
+  ;;                       0)
+  ;;                      (t (find-file file)
+  ;;                       0))))
+  )
+