Commit 64aa728a authored by Dave Cooper's avatar Dave Cooper
Browse files

updated to multiple presidents

parent 481b3019
......@@ -19,25 +19,36 @@
(str (the development-links))
((:table :border (the table-border))
(dolist (president (list-elements (the presidents)))
(htm (:tr (:td ((:a :href (the-object president url))(str (the-object president name))))
(:td (str (the-object president term))))))))))
(htm (:tr (:td ((:a :href (the-object president url))(str (the-object president name-input value))))
(:td (str (the-object president term-input value))))))))))
:objects
((presidents :type 'president
:sequence (:size (length (the data)))
:parameters (nth (the-child index) (the data)))))
:pass-down (table-border)
:listing-page self
:data (nth (the-child index) (the data))
:pseudo-inputs (data)
:name (getf (the-child data) :name)
:term (getf (the-child data) :term)
)))
(define-object president (base-ajax-sheet)
:input-slots
((name "Carter") (term 1976))
((listing-page nil) (name "Carter") (term 1976) table-border)
:computed-slots
((main-sheet-body
(with-cl-who-string ()
(when (the listing-page)
(htm (:p ((:a :href (the listing-page url)) "<-Back"))))
(:p (str (the name-input html-string)))
(:p (str (the term-input html-string)))
......@@ -47,11 +58,13 @@
((main-sheet-section :type 'sheet-section
:inner-html
(with-cl-who-string ()
((:table :border (the table-border))
(:tr (:th "Name") (:th "Term"))
(:tr (:td (str (the name-input value)))
(:td (str (the term)))))))
(:td (str (the term-input value)))))))
(name-input :type 'text-form-control
:ajax-submit-on-change? t
:default (the name))
......
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