💾 Archived View for gemini.rmf-dev.com › repo › Vaati › VgmiTL › files › aea47a0e7f1664dc933dc4c3649… captured on 2022-07-16 at 17:13:00. Gemini links have been rewritten to link to archived content
-=-=-=-=-=-=-
0 # My dynamic gemini page
1
2 Your unix time : %!{(MISSING)time}
3
4 ## counting
5
6 Count : %!{(MISSING)count}
7 =>(addone) Add one
8 =>(mul2) Multiply by 2
9
10 ## increasing periodically
11
12 Second : %!{(MISSING)sec}
13
14 %:
15 (display "starting script")
16 (newline)
17 (define count 0)
18 (define start-time (unix-sec))
19
20 (define (addone)
21 (set! count (+ count 1))
22 (set-element-text "count" count)
23 (display "Count now at " count)
24 )
25
26 (define (mul2)
27 (set! count (* count 2))
28 (set-element-text "count" count)
29 (display "Count now at " count)
30 )
31
32 (set-element-text "time" (unix-sec))
33 (display (set-element-text "count" count))
34 (newline)
35 (set-element-text "sec" 0)
36 (interval 1000 (lambda (id)
37 (set-element-text "sec" (- (unix-sec) start-time))
38 ;(display "interval calling\n")
39 ))
40