;;; Generate a separate output document for each section.

(=> (current-root)
    (map (lambda (snl)
	   (create-root (child-number snl)
			(subgrove-spec subgrove: (sgml-parse-prolog
						  "split.sgm")
				       label: (child-number snl))))
	 (node-list->list (q-element 'section))))

(=> (q-element 'section)
    (create-sub (grove-root (current-node))
		(copy-current)
		property: 'document-element
		label: (child-number)))
     
(=> (node-list-difference (subgrove (q-element 'section))
			  (q-element 'section))
    (identity-transform-by-origin))