gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make sure the Nyan prompt in eshell always works

Browse Source
This commit is contained in:
Gergely Polonkai
2018-08-28 18:12:52 +02:00
parent 84e1b7ab32
commit 6b7b2d67c6
2 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/nyan-prompt/nyan-prompt.el
View File

@@ -34,18 +34,26 @@
(propertize nyan-prompt-nyan-cat-emoticon
'display nyan-prompt-nyan-cat-image))
(defvar nyan-prompt-original-prompt 'eshell-prompt-function
(defvar nyan-prompt-original-prompt nil
"The eshell prompt function before enabling nyan-prompt")
(defvar nyan-prompt-enabled nil
"t if nyan-prompt is enabled")
(defun eshell-nyan-prompt ()
(concat nyan-prompt-nyan-cat-string " " (funcall nyan-prompt-original-prompt)))
(defun nyan-prompt-disable ()
(setq eshell-prompt-function 'nyan-prompt-original-prompt))
(when nyan-prompt-enabled
(setq nyan-prompt-enabled nil
eshell-prompt-function nyan-prompt-original-prompt)))
;;;###autoload
(defun nyan-prompt-enable ()
(setq eshell-prompt-function 'eshell-nyan-prompt))
(when (not nyan-prompt-enabled)
(setq nyan-prompt-enabled t
nyan-prompt-original-prompt eshell-prompt-function
eshell-prompt-function 'eshell-nyan-prompt)))
(provide 'nyan-prompt)