0d5bdbd7ce
* move all look-and-feel related settings into, you guessed it, look-and-feel.el * remove *lots* of old stuff and also re-evaluate what it's actually doing.
68 lines
2 KiB
EmacsLisp
68 lines
2 KiB
EmacsLisp
;; EShell configuration
|
|
|
|
(require 'eshell)
|
|
|
|
;; Generic settings
|
|
;; Hide banner message ...
|
|
(setq eshell-banner-message "")
|
|
|
|
;; Prompt configuration
|
|
(defun clean-pwd (path)
|
|
"Turns a path of the form /foo/bar/baz into /f/b/baz
|
|
(inspired by fish shell)"
|
|
(let* ((hpath (replace-regexp-in-string home-dir
|
|
"~"
|
|
path))
|
|
(current-dir (split-string hpath "/"))
|
|
(cdir (last current-dir))
|
|
(head (butlast current-dir)))
|
|
(concat (mapconcat (lambda (s)
|
|
(if (string= "" s) nil
|
|
(substring s 0 1)))
|
|
head
|
|
"/")
|
|
(if head "/" nil)
|
|
(car cdir))))
|
|
|
|
(defun vcprompt (&optional args)
|
|
"Call the external vcprompt command with optional arguments.
|
|
VCPrompt"
|
|
(replace-regexp-in-string
|
|
"\n" ""
|
|
(shell-command-to-string (concat "vcprompt" args))))
|
|
|
|
(defmacro with-face (str &rest properties)
|
|
`(propertize ,str 'face (list ,@properties)))
|
|
|
|
(defun prompt-f ()
|
|
"EShell prompt displaying VC info and such"
|
|
(concat
|
|
(with-face (concat (clean-pwd (eshell/pwd)) " ") :foreground "#96a6c8")
|
|
(if (= 0 (user-uid))
|
|
(with-face "#" :foreground "#f43841")
|
|
(with-face "$" :foreground "#73c936"))
|
|
(with-face " " :foreground "#95a99f")))
|
|
|
|
|
|
(setq eshell-prompt-function 'prompt-f)
|
|
(setq eshell-highlight-prompt nil)
|
|
(setq eshell-prompt-regexp "^.+? \\((\\(git\\|svn\\|hg\\|darcs\\|cvs\\|bzr\\):.+?) \\)?[$#] ")
|
|
|
|
;; Ignore version control folders in autocompletion
|
|
(setq eshell-cmpl-cycle-completions nil
|
|
eshell-save-history-on-exit t
|
|
eshell-cmpl-dir-ignore "\\`\\(\\.\\.?\\|CVS\\|\\.svn\\|\\.git\\)/\\'")
|
|
|
|
;; Load some EShell extensions
|
|
(eval-after-load 'esh-opt
|
|
'(progn
|
|
(require 'em-term)
|
|
(require 'em-cmpl)
|
|
;; More visual commands!
|
|
(add-to-list 'eshell-visual-commands "ssh")
|
|
(add-to-list 'eshell-visual-commands "tail")
|
|
(add-to-list 'eshell-visual-commands "sl")))
|
|
|
|
(setq eshell-directory-name "~/.config/eshell/")
|
|
|
|
(provide 'eshell-setup)
|