(use awful awful-ssql awful-sql-de-lite sql-de-lite)

(enable-db)
(enable-ssql #t)
(db-credentials "the-database.db")

(enable-sxml #t)

;;; Initialize the database
(with-output-to-file (db-credentials) (cut display ""))
(parameterize ((db-connection (open-database (db-credentials)))
               (enable-ssql #f))
  ($db "create table users (user_id integer, name text)")
  ($db "insert into users (user_id, name) values (1, 'foo')")
  (close-database (db-connection)))

(define-page (main-page-path)
  (lambda ()
    `((h1 "Users")
      (ul ,@(map (lambda (user)
                   `(li ,(car user)))
                 ($db '(select (columns name) (from users))))))))