Welcome to the CHICKEN Scheme pasting service

(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 ""))
(let ((db (open-database (db-credentials))))
  (exec (sql db "create table users (user_id integer, name text)"))
  (exec (sql db "insert into users (user_id, name) values (1, 'foo')")))

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

(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 ""))
(let ((db (open-database (db-credentials))))
  (exec (sql db "create table users (user_id integer, name text)"))
  (exec (sql db "insert into users (user_id, name) values (1, 'foo')"))
  (close-database db))

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