path: root/retro/pomo.retro

# Pomodoro timer in retro

Basic implementation of a pomodoro timer from maleza

<https://merveilles.town/@maleza/109134681346931539>

~~~
:pomo #25 [ #60 unix:sleep #25 I - '%n_pomo_left s:format s:put nl ] indexed-times ;

:rest #10 [ #60 unix:sleep #10 I - '%n_rest_left s:format s:put nl ] indexed-times ;

:pomo-loop (n-) [ pomo rest ] times ;

#3 pomo-loop
~~~