Commit 1632582f authored by Dave Cooper's avatar Dave Cooper

added email-form-control

parent a6b5a5f8
......@@ -982,6 +982,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:hidden-form-control
#:object-form-control
#:grid-form-control
#:email-form-control
#:encode-for-ajax
#:decode-from-ajax
......
This diff is collapsed.
......@@ -553,6 +553,11 @@ Defaults to nil. Use number-form-control to get a default of t."
:computed-slots ((number? t)))
(define-object email-form-control (text-form-control)
:computed-slots ((email? t)))
(define-lens (html-format text-form-control)()
:output-functions
((form-control
......@@ -568,6 +573,7 @@ Defaults to nil. Use number-form-control to get a default of t."
(with-expanded-html-output (*stream* nil)
((:input :type (cond ((the password?) :password)
((the number?) :number)
((the email?) :email)
(t :text) )
:value (when (the str-ready-string)
(the str-ready-string))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment