(use awful awful-sqlite3 sqlite3 html-utils)
(define db-file "sqlite-test.db")
(db-credentials db-file)
(enable-db)
(when (file-exists? db-file)
(delete-file db-file))
(let* ((conn (open-database (db-credentials)))
(query (lambda (q) (map-row (lambda args args) conn q))))
(query "create table users (name varchar(50), address varchar(50) );")
(query "insert into users (name, address) values ('mario', 'here')")
(finalize! conn))
(define-page (main-page-path)
(lambda ()
(tabularize ($db "select * from users"))
))