about summary refs log tree commit diff stats
path: root/js/pomo/index.html
blob: 1d4c6a9d38e49af8402a46b3e60aa6425b0d5921 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<!DOCTYPE html>
<html lang="en">
<head>
    <title>Pomodoro Timer</title>
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width">
    <style>
        body {
            margin: 0;
            padding: 0;
        }
        #pomoCanvas {
            display: block;
        }
    </style>
</head>
<body>
    <canvas id="pomoCanvas"></canvas>
    <script src="./pomo.js"></script>
</body>
</html>
an>:literal 30:literal) (cursor-mode) ; hook up stdin (stdin:channel-address <- init-channel 1:literal) ;? ($print (("main: stdin is " literal))) ;? ($print stdin:channel-address) ;? ($print (("\n" literal))) (fork-helper send-keys-to-stdin:fn nil:literal/globals nil:literal/limit nil:literal/keyboard stdin:channel-address) ; now read characters from stdin until a 'q' is typed ($print (("? " literal))) { begin (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address) (c:character <- maybe-coerce x:tagged-value character:literal) ;? ($print (("main: stdin is " literal))) ;? ($print stdin:channel-address) ;? ($print (("\n" literal))) ;? ($print (("check: " literal))) ;? ($print c:character) (done?:boolean <- equal c:character ((#\q literal))) (break-if done?:boolean) (loop) } ])