blob: 7c542aa56a5eda36d45748fb60d15093f95427b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
;;; acdw-shell.el ---Shell config -*- lexical-binding: t; -*-
;;; Code:
(defvar eshell-buffer-format "*eshell:%s*"
"Format for eshell buffer names.")
(defun eshell-rename-pwd ()
(rename-buffer (format eshell-buffer-format default-directory) t))
(defun eshell-last-dir ()
(goto-char (point-max))
(insert "cd -")
(eshell-send-input))
(defun eshellp (buffer-or-name)
(with-current-buffer buffer-or-name
(derived-mode-p 'eshell-mode)))
(defun +eshell (&optional new)
(interactive "P")
(let ((dir default-directory)
(bname (format eshell-buffer-format default-directory))
(display-comint-buffer-action 'pop-to-buffer))
(if-let ((buf (and (not new)
(or (get-buffer bname)
(seq-find #'eshellp
(reverse (buffer-list)))))))
(pop-to-buffer buf)
(eshell new))
(eshell-rename-pwd)
(unless (equal default-directory dir)
(eshell/cd dir)
(eshell-send-input)
(goto-char (point-max)))))
(defun +eshell-quit (&optional choose)
(interactive "P")
(if choose
(let* ((bufs (mapcar #'buffer-name
(seq-filter #'eshellp
(buffer-list))))
(buf (get-buffer
(completing-read "Eshell: "
bufs nil t nil nil (car bufs)))))
(quit-window)
(pop-to-buffer buf))
(quit-window)))
(defun acdw/eshell-prompt ()
"My custom eshell prompt."
(concat (if (= 0 eshell-last-command-status)
"^_^ "
";_; ")
(abbreviate-file-name (eshell/pwd))
(if (= (user-uid) 0) " # " " $ ")))
;;; Packages
(use-package eshell
:init
(add-hook 'eshell-post-command-hook #'eshell-rename-pwd)
(setopt eshell-modules-list
'(eshell-alias
eshell-basic
eshell-cmpl
eshell-dirs
eshell-elecslash
eshell-hist
eshell-ls
eshell-prompt
eshell-smart
eshell-extpipe
eshell-glob
eshell-hist
eshell-ls
eshell-pred
eshell-prompt
eshell-script
eshell-term
eshell-unix))
:commands eshell
:bind (("C-z" . +eshell)
:map eshell-mode-map
("C-z" . +eshell-quit)
("C-o" . eshell-last-dir))
:config
(require 'esh-module)
(require 'em-smart)
(require 'em-tramp)
(setopt eshell-destroy-buffer-when-process-dies t
eshell-error-if-no-glob t
eshell-hist-ignoredups t
eshell-kill-on-exit t
eshell-prefer-lisp-functions t
eshell-prefer-lisp-variables t
eshell-scroll-to-bottom-on-input 'this
eshell-banner-message ""
eshell-hist-ignoredups 'erase
eshell-history-size 512
eshell-input-filter (lambda (input)
(or (eshell-input-filter-default input)
(eshell-input-filter-initial-space input)))
eshell-prompt-function #'acdw/eshell-prompt)
(add-hook 'eshell-mode-hook
(defun eshell-setup ()
(hungry-delete-mode -1)
(setq-local outline-regexp eshell-prompt-regexp
page-delimiter eshell-prompt-regexp
imenu-generic-expression
'(("Prompt" " $ \\(.*\\)" 1))
truncate-lines t)
(setenv "PAGER" "cat"))))
(use-package eat
:ensure t
:hook (eshell-load-hook . eat-eshell-mode))
(use-package exec-path-from-shell
:when (eq system-type 'gnu/linux)
:ensure t
:config
(add-to-list 'exec-path-from-shell-variables "SSH_AUTH_SOCK")
(add-to-list 'exec-path-from-shell-variables "SSH_AGENT_PID")
(add-to-list 'exec-path-from-shell-variables "GPG_AGENT_INFO")
(add-to-list 'exec-path-from-shell-variables "LANG")
(add-to-list 'exec-path-from-shell-variables "LC_CTYPE")
(add-to-list 'exec-path-from-shell-variables "XDG_CONFIG_HOME")
(add-to-list 'exec-path-from-shell-variables "XDG_CONFIG_DIRS")
(add-to-list 'exec-path-from-shell-variables "XDG_DATA_HOME")
(add-to-list 'exec-path-from-shell-variables "XDG_DATA_DIRS")
(add-to-list 'exec-path-from-shell-variables "XDG_CACHE_HOME")
(exec-path-from-shell-initialize))
(use-package eshell-bookmark
:ensure t
:hook (eshell-mode-hook . eshell-bookmark-setup))
(provide 'acdw-shell)
;;; acdw-shell.el ends here
|
