Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 4f7c682ded
Fetching contributors…

Cannot retrieve contributors at this time

27 lines (22 sloc) 0.732 kb
(use awful pastiche server-test)
(define pastiche-db "pastiche.db")
(define (run-pastiche! #!optional use-captcha?)
(delete-file* pastiche-db)
(pastiche "/" pastiche-db
use-captcha?: use-captcha?
awful-settings:
(lambda (handler)
(parameterize
((page-css "http://wiki.call-cc.org/chicken.css")
(page-charset "UTF-8")
(page-doctype "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
(handler)))))
;;;
;;; Without captcha
;;;
(with-test-server
(lambda ()
(awful-start run-pastiche!))
(lambda ()
(load "client.scm")))
(test-exit)
Jump to Line
Something went wrong with that request. Please try again.