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

Only add status arrow after a command

Browse source
This commit is contained in:
Tom Willemse 2014-01-26 23:02:31 +01:00
parent 0419f1ba92
commit 2f698a53d7
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
eshell-fringe-status.el
View file

@ -90,14 +90,15 @@ disabling the mode."
This indication is shown as a bitmap in the left fringe of the
window."
(save-excursion
(beginning-of-line)
(insert
(propertize " " 'display
`((left-fringe efs--arrow-bitmap
,(if (zerop eshell-last-command-status)
'eshell-fringe-status-success
'eshell-fringe-status-failure)))))))
(when eshell-last-command-name
(save-excursion
(beginning-of-line)
(let ((face (if (zerop eshell-last-command-status)
'eshell-fringe-status-success
'eshell-fringe-status-failure)))
(insert
(propertize " " 'display
`((left-fringe efs--arrow-bitmap ,face))))))))
;;;###autoload
(define-minor-mode eshell-fringe-status-mode