blob: 6f19aa92156a1dfae40159d53e7e3887d6fed6d5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# 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
~~~
|