Спрашиваем у arbtt какой период времени мы спали в последний раз:
‰ ghc -e &
#39;import Data.Time.Format&
#39; -e &
#39;import Data.Time.Clock.POSIX&
#39; -e "$(arbtt-dump | sed -n -e &
#39;s/\(.*[0-9]*[0-9][0-9][0-9][0-9]\)[0-9][0-9][0-9]ms inactive):/\1/p&
#39; | tail -n 1 | sed -e &
#39;s/\([^ ]* [^ ]*\) (\([0-9]*\)$/let end = fromJust $ parseTimeM True defaultTimeLocale "%F %T" "\1" in let start = posixSecondsToUTCTime $ (utcTimeToPOSIXSeconds $ end) - \2 in putStrLn $ "start: " ++ formatTime defaultTimeLocale "%F %T" start ++ "; end: \1"/&
#39;)"
start: 2018-11-11 01:21:34; end: 2018-11-11 01:57:52