Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
112 lines (99 sloc) 4.45 KB
(in-package :formlets-test)
(setf formlets:*public-key* "your public key"
formlets:*private-key* "your private key"
*show-lisp-errors-p* t)
(defparameter *css* ".form-fields { list-style: none; padding-bottom: 0px; }
.form-fields li { margin-bottom: 10px; clear: both; }
.form-fields input { margin: 0px; }
.form-fields .text-box { border: 1px solid #1c2a51; width: 250px; }
.form-fields textarea { border: 1px solid #1c2a51; width: 246px; height: 60px; }
.submit { border: 1px solid #1c2a51; background-color: #1c2a51; color: #fff; font-weight: bold; padding: 3px 8px; }
.form-fields .label { width: 130px; display: block; float: left; text-align: right; padding-right: 5px; height: 20px; }
.general-error p, .formlet-error p { border: 1px solid #900; background-color: #faa; margin: 0px; padding: 2px 5px; }
.general-error p { margin: 10px 0px 0px 195px; width: 236px; }
.formlet-error { position: absolute; padding: 2px; margin-left: 5px; }
.general-error { position: relative; }")
(defvar *web-server* nil)
(defun formlets-test (&optional (port 4141))
(setf *web-server* (start (make-instance 'acceptor :port port))))
(defmacro page-template ((&key title) &body body)
`(with-html-output-to-string (*standard-output* nil :prologue t :indent t)
(:html :xmlns "" :xml\:lang "en" :lang "en"
(:head (:meta :http-equiv "Content-Type" :content "text/html;charset=utf-8")
(:style :type "text/css" (str *css*))
(:title ,@title))
(:body ,@body))))
(define-formlet (test-form)
((one text
((not-blank?) "This field cannot be left empty"
(mismatches? "blah") "You can't write \"blah\" here"
(longer-than? 5) "You need to enter more than 5 characters"))
(two textarea)
(three password)
(recaptcha recaptcha))
(page-template (:title "Results")
(:h4 "Fuck yeah!")
(:p (str (write-to-string (post-parameters*))))
(:p (str one))
(:p (str two))
(:p (str recaptcha))))
(define-formlet (test-form-two)
((one text :validation ((lambda (v) (> 6 (length v))) "You can't enter more than 5 characters here"))
(two file)
(pull-down select :value-set (list "one" "two" "three" "four"))
(radio-set radio-set :value-set (list "one" "two" "three" "four"))
(password password)
(confirm-password password :validation ((same-as? "password") "You have to enter the same thing here and in the 'Password' field")))
(page-template (:title "Results TWO")
(:h4 "Wooo!")
(:p (str (write-to-string (post-parameters*))))
(:p (str one))
(:p (str pull-down))
(:p (str radio-set))
(:p (str two))
(:p (str password))))
(define-formlet (test-form-three)
((pull-down multi-select
:value-set (list "a" "b" "c" "d")
:validation ((lambda (val) (= 2 (length val))) "Please pick exactly two options"))
(radio-set radio-set :value-set (list "one" "two" "three" "four"))
(single-check checkbox)
(checking checkbox-set :value-set (list "aye" "bee" "sea" "dee")))
(page-template (:title "Results TWO")
(:h4 "Yay!")
(:p (str (write-to-string (post-parameters*))))
(:p (str pull-down))
(:p (str radio-set))
(:p (str single-check))
(:p (str checking))))
:submit "Login"
:general-validation ((lambda (user-name password) (and (string= "blah" user-name) (string= "pass" password)))
"I see what you did there. ಠ_ಠ"))
((user-name text) (password password))
(page-template (:title "You got it")
(:p (str (write-to-string (post-parameters*))))
(:p (str user-name))
(:p (str password))))
(default-values-form :submit "Nope")
((minus-one hidden)
(one text :validation ((longer-than? 3) "It has to be longer than 3"))
(two textarea)
(three checkbox)
(four checkbox-set :value-set (list "one" "two" "three")))
(page-template (:title "You got it")
(:p (str (write-to-string (post-parameters*))))))
(define-easy-handler (test-page :uri "/") ()
(page-template (:title "Formlets Test Page")
(:p (str (session-value :formlet-name)))
(:p (str (session-value :formlet-values)))
(:p (str (session-value :formlet-errors)))
(:hr) (show-formlet test-form)
(:hr) (show-formlet test-form-two)
(:hr) (show-formlet test-form-three)
(:hr) (show-formlet faux-login-form)
(:hr) (show-formlet default-values-form
:default-values (list "Something" "Something else" "A textarea! Yay!" "three" (list "two")))))