#!/usr/bin/awful
(use awful html-tags rest-bind http-client medea)
(enable-sxml #t)
(generate-sxml? #t)

(define-syntax define-simple-syntax
        (syntax-rules ()
                ((_ (name arg ...) body ...)
                        (define-syntax name (syntax-rules () ((name arg ...) (begin body ...)))))))

(define-simple-syntax (id idnum)
                (<span> class: "legislator-id" idnum))

(define (read-json-test)
                ((define json (car (read-json "{\"id\":3}")))
                (list (car json) (cdr json))))

(define-page "read-json-test" read-json-test)