rash: show last command time in prompt

This commit is contained in:
LordMZTE 2023-11-14 19:25:42 +01:00
parent ca4d26eec6
commit 4ef23e4cc1
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6

View file

@ -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}))))