ryuslash/eshell-fringe-status
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Extract function for easier testing

Browse source
This commit is contained in:
Tom Willemse 2014-02-01 20:13:32 +01:00
parent ebd7a2ae22
commit 46bd19ffd6
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
eshell-fringe-status.el
View file

@ -112,6 +112,14 @@ which doesn't accept at least one space will break."
(setq eshell-prompt-regexp (setq eshell-prompt-regexp
(format "%c ?%s" first (substring eshell-prompt-regexp 1)))))) (format "%c ?%s" first (substring eshell-prompt-regexp 1))))))
(defun efs--propertized-text ()
"Return the propertized text to insert into the eshell bufffer."
(let ((face (efs--doc 'eshell-fringe-status-success
'eshell-fringe-status-failure))
(bitmap (efs--doc eshell-fringe-status-success-bitmap
eshell-fringe-status-failure-bitmap)))
(propertize " " 'display `((left-fringe ,bitmap ,face)))))
(defun efs--revert-prompt-regexp () (defun efs--revert-prompt-regexp ()
"The counterpart for `efs--extend-prompt-regexp', remove a space. "The counterpart for `efs--extend-prompt-regexp', remove a space.
@ -132,13 +140,8 @@ window."
(when eshell-last-command-name (when eshell-last-command-name
(save-excursion (save-excursion
(beginning-of-line) (beginning-of-line)
(let ((face (if (zerop eshell-last-command-status) (let ((inhibit-read-only t))
'eshell-fringe-status-success (insert (efs--propertized-text))))))
'eshell-fringe-status-failure))
(inhibit-read-only t))
(insert
(propertize " " 'display
`((left-fringe efs--arrow-bitmap ,face))))))))
;;;###autoload ;;;###autoload
(define-minor-mode eshell-fringe-status-mode (define-minor-mode eshell-fringe-status-mode