Commit acc8ec0a authored by Dave Cooper's avatar Dave Cooper

adding email download form

parents e83bac1a 1632582f
......@@ -44,6 +44,9 @@
(define-object geysr-bolt (assembly)
:computed-slots ((root-object-type (read-from-string "gdl-user::bolt-test"))))
(define-object geysr-glider (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::glider"))))
(defun initialize ()
(let* ((directory (namestring
......@@ -77,7 +80,9 @@
(publish-gwl-app "/geysr-spiral" 'geysr-spiral)
(publish-gwl-app "/geysr-bolt" 'geysr-bolt)
(publish-gwl-app "/geysr-bolt" 'geysr-bolt)
(publish-gwl-app "/geysr-glider" 'geysr-glider)
)))
......
(in-package :geysr)
(define-object menu-node ()
:input-slots (label (title (unless (the child-nodes) "This operation is not implemented yet..."))
:input-slots ((label "TBD")
(title (unless (the child-nodes) "This operation is not implemented yet..."))
(id (glisp:replace-regexp
(glisp:replace-regexp
(glisp:replace-regexp
......
......@@ -166,7 +166,45 @@ function addVisible(event, level)
:objects ((color :type 'edit-color-menu) (line-thickness :type 'edit-line-thickness-menu)))
(define-object edit-color-menu (menu-node)
:input-slots ((label "Color")))
:input-slots ((label "Color"))
:objects ((color-palette :type 'color-palette)))
(define-object color-palette (menu-node base-ajax-sheet)
:input-slots ((label (the color-chooser full-grid)))
:objects ((color-chooser :type 'color-chooser)))
(define-object color-chooser ()
:input-slots
((components (list "FF" "CC" "99" "66" "33" "00"))
(cell-size 7))
:computed-slots
((full-grid
(let ((colors (the components)))
(with-cl-who-string ()
((:table :border "0" :cellspacing "0" :cellpadding "0")
(:tr (dolist (red colors)
(htm
(:td
((:table :border "0" :cellspacing "0" :cellpadding "0")
(dolist (green colors)
(htm
(:tr (dolist (blue colors)
(htm ((:td :style (format nil "cursor: pointer; background: #~a~a~a; height: ~apx; width: ~apx;"
red green blue
(the cell-size) (the cell-size))
:title (format nil "Set Color for Next Matched Object(s) to Hex RGB: ~a~a~a"
red green blue)
:onclick (the parent
(gdl-ajax-call :function-key :set-slot!
:arguments (list :color (format nil "~a~a~a" red green blue))))
))))))))))))))))))
(define-object edit-line-thickness-menu (menu-node)
:input-slots ((label "Line Thickness")))
......
......@@ -15,5 +15,6 @@
(gwl:define-package :geysr
(:export #:assembly #:viewport #:inspector #:status-object #:menu-section
#:*internal-keywords* #:*suppress-%%-messages?* #:*suppress-$$-messages?*))
#:*internal-keywords* #:*suppress-%%-messages?* #:*suppress-$$-messages?*
#:initialize))
......@@ -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