My frustration with shells makes me enjoy Emacs Shell, but there are some significant differences to address. To this end, I documented most features.
While EShell is built into the Emacs, I want to always install esh-buf-stack.
(packages-install '( esh-buf-stack ))
Need the correct PATH even if we start Emacs from the GUI:
(setenv "PATH"
(concat
"/usr/local/bin:/usr/local/sbin:"
(getenv "PATH")))
If any program wants to pause the output through the $PAGER
variable, well, we don’t really need that:
(setenv "PAGER" "cat")
Scrolling through the output and searching for results that can be
copied to the kill ring is a great feature of Eshell. However,
instead of running end-of-buffer
key-binding, the following
setting means any other key will jump back to the prompt:
(setq eshell-scroll-to-bottom-on-input t)
Note: hitting return on any other line will copy that line to the prompt and immediately execute it.
Gotta have some shell aliases, right?
(defalias 'e 'find-file)
(defalias 'ff 'find-file)
(defalias 'emacs 'find-file)
Replacing the window with the new buffer may not be what I want.
(defalias 'ee 'find-file-other-window)
Pull up dired, but without parameters, just use the current directory.
(defun eshell/d (&rest args)
(dired (pop args) "."))
Some of my favorite bash aliases, can be even more helpful in Eshell. Like ‘ll’:
(add-hook 'eshell-mode-hook
(lambda ()
;; The 'ls' executable requires the Gnu version on the Mac
(let ((ls (if (file-exists-p "/usr/local/bin/gls")
"/usr/local/bin/gls"
"/bin/ls")))
(eshell/alias "ll" (concat ls " -AlohG --color=always")))))
I can never seem to remember that find
and chmod
behave
differently from Emacs than their Unix counterparts, so at this
time, I will prefer the native implementations.
(setq eshell-prefer-lisp-functions nil)
My gst
command is just an alias to magit-status
, but using the
alias
doesn’t pull in the current working directory, so I make it
a function, instead:
(defun eshell/gst (&rest args)
(magit-status (pop args) nil)
(eshell/echo)) ;; The echo command suppresses output
What about gd
to call the Diff command?
(defalias 'gd 'magit-diff-unstaged)
(defalias 'gds 'magit-diff-staged)
We should have an “f” alias for searching the current directory for a file, and a “ef” for editing that file.
(defun eshell/f (filename &optional dir)
"Searches in the current directory for files that match the
given pattern. A simple wrapper around the standard 'find'
function."
(let ((cmd (concat
"find " (or dir ".")
" -not -path '*/.git*'"
" -and -not -path '*node_modules*'"
" -and -not -path '*classes*'"
" -and "
" -type f -and "
"-iname '" filename "'")))
(message cmd)
(shell-command-to-string cmd)))
(defun eshell/ef (filename &optional dir)
"Searches for the first matching filename and loads it into a
file to edit."
(let* ((files (eshell/f filename dir))
(file (car (s-split "\n" files))))
(find-file file)))
Typing find
in Eshell runs the find
function, which doesn’t do
what I expect, and creating an alias is ineffective in overriding
it, so a function will do:
(defun eshell/find (&rest args)
"Wrapper around the ‘find’ executable."
(let ((cmd (concat "find " (string-join args))))
(shell-command-to-string cmd)))
The T
predicate filter allows me to limit file results that have
have internal org-mode
tags. For instance, files that have a
#+TAGS:
header with a mac
label will be given to the grep
function:
$ grep brew *.org(T'mac')
To extend Eshell, we need a two-part function.
- Parse the Eshell buffer to look for the parameter (and move the point past the parameter).
- A predicate function that takes a file as a parameter.
For the first step, we have our function called as it helps parse the text at this time. Based on what it sees, it returns the predicate function used to filter the files:
(defun eshell-org-file-tags ()
"Helps the eshell parse the text the point is currently on,
looking for parameters surrounded in single quotes. Returns a
function that takes a FILE and returns nil if the file given to
it doesn't contain the org-mode #+TAGS: entry specified."
(if (looking-at "'\\([^)']+\\)'")
(let* ((tag (match-string 1))
(reg (concat "^#\\+TAGS:.* " tag "\\b")))
(goto-char (match-end 0))
`(lambda (file)
(with-temp-buffer
(insert-file-contents file)
(re-search-forward ,reg nil t 1))))
(error "The `T' predicate takes an org-mode tag value in single quotes.")))
Add it to the eshell-predicate-alist
as the T
tag:
(add-hook 'eshell-pred-load-hook (lambda ()
(add-to-list 'eshell-predicate-alist '(?T . (eshell-org-file-tags)))))
Note: We can’t add it to the list until after we start our first
eshell session, so we just add it to the eshell-pred-load-hook
which is sufficient.
Eshell would get somewhat confused if I ran the following commands directly through the normal Elisp library, as these need the better handling of ansiterm:
(add-hook 'eshell-mode-hook
(lambda ()
(add-to-list 'eshell-visual-commands "ssh")
(add-to-list 'eshell-visual-commands "tail")))
Great shell with some good tweaks taken from the Starter Kit
project. Ignoring the .git
directories seem like a good idea.
((setq )etq eshell-cmpl-cycle-completions nil
eshell-save-history-on-exit t
eshell-cmpl-dir-ignore "\\`\\(\\.\\.?\\|CVS\\|\\.svn\\|\\.git\\)/\\'")
Following these instructions, we build a better prompt with the Git branch in it (Of course, it matches my Bash prompt). First, we need a function that returns a string with the Git branch in it, e.g. “:master”
(defun curr-dir-git-branch-string (pwd)
"Returns current git branch as a string, or the empty string if
PWD is not in a git repo (or the git command is not found)."
(interactive)
(when (and (eshell-search-path "git")
(locate-dominating-file pwd ".git"))
(let ((git-output (shell-command-to-string (concat "cd " pwd " && git branch | grep '\\*' | sed -e 's/^\\* //'"))))
(if (> (length git-output) 0)
(concat " :" (substring git-output 0 -1))
"(no branch)"))))
The function takes the current directory passed in via pwd
and
replaces the $HOME
part with a tilde. I’m sure this function
already exists in the eshell source, but I didn’t find it…
(defun pwd-replace-home (pwd)
"Replace home in PWD with tilde (~) character."
(interactive)
(let* ((home (expand-file-name (getenv "HOME")))
(home-len (length home)))
(if (and
(>= (length pwd) home-len)
(equal home (substring pwd 0 home-len)))
(concat "~" (substring pwd home-len))
pwd)))
Make the directory name be shorter…by replacing all directory names with just its first names. However, we leave the last two to be the full names. Why yes, I did steal this.
(defun pwd-shorten-dirs (pwd)
"Shorten all directory names in PWD except the last two."
(let ((p-lst (split-string pwd "/")))
(if (> (length p-lst) 2)
(concat
(mapconcat (lambda (elm) (if (zerop (length elm)) ""
(substring elm 0 1)))
(butlast p-lst 2)
"/")
"/"
(mapconcat (lambda (elm) elm)
(last p-lst 2)
"/"))
pwd ;; Otherwise, we just return the PWD
)))
;; Turn off the default prompt.
(setq eshell-highlight-prompt nil)
Break up the directory into a “parent” and a “base”:
(defun split-directory-prompt (directory)
(if (string-match-p ".*/.*" directory)
(list (file-name-directory directory) (file-name-base directory))
(list "" directory)))
Now tie it all together with a prompt function can color each of the prompts components.
(setq eshell-prompt-function
(lambda ()
(let* ((directory (split-directory-prompt (pwd-shorten-dirs (pwd-replace-home (eshell/pwd)))))
(parent (car directory))
(name (cadr directory))
(branch (or (curr-dir-git-branch-string (eshell/pwd)) "")))
(if (eq 'dark (frame-parameter nil 'background-mode))
(concat ;; Prompt for Dark Themes
(propertize parent 'face `(:foreground "#8888FF"))
(propertize name 'face `(:foreground "#8888FF" :weight bold))
(propertize branch 'face `(:foreground "green"))
(propertize " $" 'face `(:weight ultra-bold))
(propertize " " 'face `(:weight bold)))
(concat ;; Prompt for Light Themes
(propertize parent 'face `(:foreground "blue"))
(propertize name 'face `(:foreground "blue" :weight bold))
(propertize branch 'face `(:foreground "dark green"))
(propertize " $" 'face `(:weight ultra-bold))
(propertize " " 'face `(:weight bold)))))))
Turn off the default prompt, otherwise, it won’t use ours:
(setq eshell-highlight-prompt nil)
One of the few things I miss about ZShell is the ability to easily
save off a half-finished command for later invocation. I now have
M-q
functionality with esh-buf-stack:
(when (require 'esh-buf-stack nil t)
(setup-eshell-buf-stack)
(add-hook 'eshell-mode-hook
(lambda () (local-set-key (kbd "M-q") 'eshell-push-command))))
If half-way through typing a long command and need something else,
just M-q
to hide it, type the new command, and continue where I
left off.
If I make an alias that closes a window easily, I can have a quick “x” alias that quickly exits and closes the window.
(defun eshell/x ()
"Closes the EShell session and gets rid of the EShell window."
(kill-buffer)
(delete-window))
Now making little Shells whenever I need them makes sense:
(defun 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* ((parent (if (buffer-file-name)
(file-name-directory (buffer-file-name))
default-directory))
(height (/ (window-total-height) 3))
(name (car (last (split-string parent "/" t)))))
(split-window-vertically (- height))
(other-window 1)
(eshell "new")
(rename-buffer (concat "*eshell: " name "*"))
(insert (concat "ls"))
(eshell-send-input)))
(global-set-key (kbd "C-!") 'eshell-here)
On this discussion a little gem for using IDO to search back through
the history, instead of M-R
to display the history in a selectable
buffer.
Also, while M-p
cycles through the history, M-P
actually moves
up the history in the buffer (easier than C-c p
and C-c n
?):
(add-hook 'eshell-mode-hook
(lambda ()
(local-set-key (kbd "M-P") 'eshell-previous-prompt)
(local-set-key (kbd "M-N") 'eshell-next-prompt)
(local-set-key (kbd "M-R") 'eshell-list-history)
(local-set-key (kbd "M-r")
(lambda ()
(interactive)
(insert
(ido-completing-read "Eshell history: "
(delete-dups
(ring-elements eshell-history-ring))))))))
After reading Mickey Petersen’s Mastering EShell article, I like the smart approach where the cursor stays on the command (where it can be re-edited). Sure, it takes a little while to get used to…
(require 'em-smart)
(setq eshell-where-to-jump 'begin)
(setq eshell-review-quick-commands nil)
(setq eshell-smart-space-goes-to-end t)
Sometimes you just need to change something about the current file
you are editing…like the permissions or even execute it. Hitting
Command-1
will prompt for a shell command string and then append
the current file to it and execute it.
(defun execute-command-on-file-buffer (cmd)
(interactive "sCommand to execute: ")
(let* ((file-name (buffer-file-name))
(full-cmd (concat cmd " " file-name)))
(shell-command full-cmd)))
(defun execute-command-on-file-directory (cmd)
(interactive "sCommand to execute: ")
(let* ((dir-name (file-name-directory (buffer-file-name)))
(full-cmd (concat "cd " dir-name "; " cmd)))
(shell-command full-cmd)))
(global-set-key (kbd "A-1") 'execute-command-on-file-buffer)
(global-set-key (kbd "A-!") 'execute-command-on-file-directory)
Make sure that we can simply require
this library.
(provide 'init-eshell)