doomemacs/modules/emacs/eshell/config.el
2017-02-20 00:23:03 -05:00

77 lines
2.8 KiB
EmacsLisp

;;; module-eshell.el --- -*- no-byte-compile: t; -*-
;; see:
;; + `doom:eshell' (open in current buffer or popup)
;; + `doom/eshell-tab' (open in separate tab)
;; + `doom/eshell-frame' (open in separate frame)
(use-package eshell
:init
(setq eshell-directory-name (concat doom-temp-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 'doom/eshell-prompt
;; em-glob
eshell-glob-case-insensitive t
eshell-error-if-no-glob t
;; em-alias
eshell-aliases-file (concat doom-temp-dir "/.eshell-aliases"))
:config
(evil-set-initial-state 'eshell-mode 'insert)
(def-popup! "^\\*eshell:popup\\*$" :regexp t :align below :size 25 :select t)
(defun doom|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" 'doom/eshell-evil-prepend-maybe
:n "I" 'doom/eshell-evil-prepend
:n "a" 'doom/eshell-evil-append-maybe
:n "A" 'doom/eshell-evil-append
:n "r" 'doom/eshell-evil-replace-maybe
:n "R" 'doom/eshell-evil-replace-state-maybe
:n "c" 'doom/eshell-evil-change
:n "C" 'doom/eshell-evil-change-line
:i "<tab>" 'eshell-pcomplete
:i "C-u" 'eshell-kill-input
:i "SPC" 'self-insert-command
:m "<return>" 'doom/eshell-evil-append
:n [remap evil-window-split] 'doom/eshell-split
:n [remap evil-window-vsplit] 'doom/eshell-vsplit
:n [remap evil-record-macro] 'eshell-life-is-too-much
[remap doom/close-window-or-tab] 'eshell-life-is-too-much))
;; Close window on exit
(add-hook 'eshell-exit-hook 'doom|eshell-cleanup)
(add-hook 'eshell-mode-hook 'doom|eshell-init)
(add-hook 'eshell-mode-hook 'doom|eshell-keymap-setup)
(add-hook 'eshell-mode-hook 'doom-hide-mode-line-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)))))
(provide 'module-eshell)
;;; module-eshell.el ends here