(use awful awful-sql-de-lite sql-de-lite html-utils)
(define db-file "sqlite-test.db")
(db-credentials db-file)
(enable-db 'sql-de-lite)
(when (file-exists? db-file)
(delete-file db-file))
(let* ((conn (open-database (db-credentials)))
(db-query (lambda (q)
(query (map-rows (lambda args args))
(sql conn q)))))
(db-query "create table users (name varchar(50), address varchar(50) );")
(db-query "insert into users (name, address) values ('mario', 'here')")
(db-query "insert into users (name, address) values ('foo', 'bar')")
(close-database conn))
(define-page (main-page-path)
(lambda ()
(++ (with-output-to-string
(lambda ()
(pp ($db "select * from users"))))
(tabularize ($db "select * from users")))))