;;; Insert item containing each dt, dd pair.

(=> (q-element 'dt)
    (create-sub (origin (current-node))
		(item-dt-subgrove-spec))
    1)

(define (item-dt-subgrove-spec)
  (subgrove-spec class: 'element
		 add: '((gi "item"))
		 label: 'ignore
		 children: (list (copy-current))))

(=> (q-element 'dd)
    (identity-transform-by-ipreced)
    1)

(define (identity-transform-by-ipreced)
  (create-follow (ipreced (current-node))
		 (copy-current)))

(=> (current-root)
    (create-root #f
		 (subgrove-spec subgrove: (sgml-parse-prolog "dl-out.dtd"))))

(=> (document-instance)
    (default-transform))

(define (document-instance)
  (subgrove (node-property 'document-element (current-root))))