about summary refs log blame commit diff stats
path: root/retro/pomo.retro
blob: 6f19aa92156a1dfae40159d53e7e3887d6fed6d5 (plain) (tree)
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
~~~