mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-05-17 06:23:50 +02:00
rash: show last command time in prompt
This commit is contained in:
parent
ca4d26eec6
commit
4ef23e4cc1
|
@ -7,14 +7,15 @@
|
|||
(provide nv)
|
||||
|
||||
(current-prompt-function
|
||||
(λ (#:last-return-value retval)
|
||||
(λ (#:last-return-value retval
|
||||
#:last-command-duration duration)
|
||||
(unless (void? retval)
|
||||
(display ((current-rash-top-level-print-formatter) retval)))
|
||||
|
||||
(parameterize ([current-environment-variables (environment-variables-copy (current-environment-variables))])
|
||||
(putenv "MZPROMPT_STATUS" (if (exn:fail? retval) "1" "0"))
|
||||
(putenv "MZPROMPT_FISH_MODE" "insert")
|
||||
(putenv "MZPROMPT_DURATION" "0")
|
||||
(putenv "MZPROMPT_DURATION" (number->string duration))
|
||||
(putenv "MZPROMPT_JOBS" "0")
|
||||
(readline-prompt #{prompt show |> port->bytes}))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue