| Slide 17 : 30 |
(define recipe
(xml-in-laml-abstraction
(lambda (c a)
(let ((title (defaulted-get-prop 'title a "NO TITLE"))
(ingredient-list (get-asts c "ingredient"))
(step-list (get-asts c "step"))
(comment (get-asts c "comment")))
(div 'css:margin-bottom "2cm" (span "Recipe:" title) (br)
"Ingredients:" (br) (ul (map li ingredient-list))
"Procedure:" (br) (ol (map li step-list))
(font 'size "1" comment))))))(recipe 'title "Pita Bread"
(ingredient "1.5 tsp dry yeast") (ingredient "1 cup water") (ingredient "...")
(step "Dissolve the yeast") (step "Add honey, folur and salt") (step "...")






