;; Generate figreview element.

(=> (current-root)
    (let ((em (q-element 'endmatter))
	  (fr (subgrove-spec class: 'element
			     add: '((gi "figreview"))
			     label: 'figreview
			     order: compare-figures)))
      (if (node-list-empty? (children em))
	  (create-sub em fr)
	  (create-follow (last (children em)) fr))))

(=> (node-list-filter (lambda (fig)
			(attribute-string "caption" fig))
		      (q-element 'figure))
    (create-sub (grove-root (current-node))
		(copy-current)
		label: 'figreview))
		 
(define (compare-figures fig1 fig2)
  (define (figure-caption fig)
    (attribute-string fig "CAPTION"))
  (string<? (figure-caption fig1)
	    (figure-caption fig2)))

(=> (everything)
    (default-transform))