jacius · July 18, 2021 05:49
diff --git a/1. README.md b/1. README.md
diff --git a/canvas-test.js.scm b/canvas-test.js.scm
 (define (draw)
  (define canvas (%inline "document.getElementById" "canvas"))
  (define ctx (%inline ".getContext" canvas "2d"))

  (when ctx
    (set! (.fillStyle ctx) "rgb(200,0,0)")
    (%inline ".fillRect" ctx 10 10 55 50)

    (set! (.fillStyle ctx) "rgba(0, 0, 200, 0.5)")
    (%inline ".fillRect" ctx 30 30 55 50)))

 (set! window.onload (callback draw))
diff --git a/Guardfile b/Guardfile
 guard 'shell' do
  watch(/(.*)\.scm/) {|m| `make #{m[1]}` }
 end
diff --git a/index.html.scm b/index.html.scm
 (require-library html-tags spock)
 (import html-tags spock)

 (display "<!DOCTYPE html>")
 (display
 (<html>
  (<head>
   (<spock-header>)
   (<style> "canvas { border: 1px solid black; }")
   (<script> type: "text/javascript" src: "canvas-test.js"))
  (<body>
   (<p> "Say hello to my little canvas.")
   (<canvas>
    id: "canvas" width: 150 height: 150
    "Wow. Your browser doesn't support HTML5 canvas. That's pretty lame."))))
diff --git a/Makefile b/Makefile
 generated = index.html canvas-test.js spock-runtime-min.js

 all: $(generated)

 clean: 
 	rm $(generated)

 %.html: %.html.scm
 	csi -s $< > $@

 %.js: %.js.scm
 	chicken-spock $< > $@

 spock-runtime-%.js:
 	cp `chicken-spock -library-path`/$@ $@
	(define (draw)
	(define canvas (%inline "document.getElementById" "canvas"))
	(define ctx (%inline ".getContext" canvas "2d"))

	(when ctx
	(set! (.fillStyle ctx) "rgb(200,0,0)")
	(%inline ".fillRect" ctx 10 10 55 50)

	(set! (.fillStyle ctx) "rgba(0, 0, 200, 0.5)")
	(%inline ".fillRect" ctx 30 30 55 50)))

	(set! window.onload (callback draw))
	(require-library html-tags spock)
	(import html-tags spock)

	(display "<!DOCTYPE html>")
	(display
	(<html>
	(<head>
	(<spock-header>)
	(<style> "canvas { border: 1px solid black; }")
	(<script> type: "text/javascript" src: "canvas-test.js"))
	(<body>
	(<p> "Say hello to my little canvas.")
	(<canvas>
	id: "canvas" width: 150 height: 150
	"Wow. Your browser doesn't support HTML5 canvas. That's pretty lame."))))
	generated = index.html canvas-test.js spock-runtime-min.js

	all: $(generated)

	clean:
	rm $(generated)

	%.html: %.html.scm
	csi -s $< > $@

	%.js: %.js.scm
	chicken-spock $< > $@

	spock-runtime-%.js:
	cp `chicken-spock -library-path`/$@ $@