(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")
(set-xml-accept-only-string-valued-attributes-in 'xhtml10-transitional #f)

(define indent-pixels
 (xml-in-laml-abstraction
  (lambda (content attributes)
    (let ((i (get-prop 'indentation attributes))
          (reduced-attributes (but-props attributes '(indentation))))
      (table 'border 0
         (tr (td 'width i)
             (td 'width "*" content reduced-attributes)))))
  (required-implied-attributes '(indentation) '(*) "index-pixels")
  "indent-pixels"))


(write-html '(pp prolog)
 (html 
  (head 
   (title "Table Examples"))
  (body
    (p "First paragraph")
    (indent-pixels 'indentation "50" 'id "x"
      (p "Second paragraph")
      (p "Third paragraph"))
    (p "Fourth paragraph"))))



(end-laml)