diff options
| author | elioat <elioat@tilde.institute> | 2022-10-07 23:55:01 +0000 |
|---|---|---|
| committer | elioat <elioat@tilde.institute> | 2022-10-07 23:55:01 +0000 |
| commit | 1a6af4c104ea9d168f947ce082d0f6336f8ea036 (patch) | |
| tree | d2df6311a4f82c66dce22707c1b3600d5e977466 | |
| parent | 4bfb6004249c9469a5411847498373b9621f0d67 (diff) | |
| download | tour-1a6af4c104ea9d168f947ce082d0f6336f8ea036.tar.gz | |
pomodoro timer in forth
| -rw-r--r-- | forth/pomo.forth | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/forth/pomo.forth b/forth/pomo.forth new file mode 100644 index 0000000..f568bb9 --- /dev/null +++ b/forth/pomo.forth @@ -0,0 +1,44 @@ +( POMO POMO POMO ) + +VARIABLE POMO-TIME +1500000 POMO-TIME ! + +VARIABLE REST-TIME +600000 REST-TIME ! + +( TODO: Consider using VALUE instead of VARIABLE ) + +: 1SEC 1000 MS ; +: 30SEC 30000 MS ; +: 60SEC 60000 MS ; + +: PRETTY-TIME + 1000 / + 60 / +; + +( DECREMENTS POMO-TIME if it is greater than 0 ) +: CHECK-POMO-TIME? + 0> IF + POMO-TIME @ 1000 - POMO-TIME ! ." 🍅" SPACE POMO-TIME @ PRETTY-TIME . ." minutes" CR + ." ....." SPACE POMO-TIME ? CR + ELSE + REST-TIME @ 1000 - REST-TIME ! ." 😴" SPACE REST-TIME @ PRETTY-TIME . ." minutes" CR + ." ....." SPACE REST-TIME ? CR + THEN +; + +( POMO-LOOP exits when POMO-TIME reaches 0 ) +( FIXME: reset POMO-TIME and REST-TIME once they've reached 0 ) +: POMO-LOOP + BEGIN + PAGE + POMO-TIME @ CHECK-POMO-TIME? 1SEC + PAGE + POMO-TIME @ REST-TIME @ + 0= + UNTIL +; + +POMO-LOOP + +BYE |