DOCBOOK-APPS: specify pagenumber(s) in <citation>

[david aumueller <lists@huah.org>]

Could somebody please give me some hints, how to change the following dsssl 
(from print/dbinline.dsl) to render citations in the form of

See <citation pages="17">Foobook02</citation> for further bars.

to something like

See [Foobook02, p. 17] for further bars.

Which attribute should one use for that maybe (instead of "pages")? Or is 
there already a construct to get results as wished?

Best regards,
david

-- 
(element citation
   (if biblio-citation-check
       (let* ((bgraphies (select-elements (descendants (sgml-root-element))
					 (normalize "bibliography")))
	     (bchildren1 (expand-children bgraphies
					  (list (normalize "bibliography"))))
	     (bchildren2 (expand-children bchildren1
					  (list (normalize "bibliodiv"))))
	     (bibentries (node-list-filter-by-gi
			  bchildren2
			  (list (normalize "biblioentry")
				(normalize "bibliomixed")))))
	(let loop ((bibs bibentries))
	  (if (node-list-empty? bibs)
	      (make sequence
		(error (string-append "Cannot find citation: "
					   (data (current-node))))
		(literal "[") ($charseq$) (literal "]"))
	      (if (citation-matches-target? (current-node)
					    (node-list-first bibs))
		  (make link
		    destination: (node-list-address (node-list-first bibs))
		    (literal "[") ($charseq$) (literal "]"))
		  (loop (node-list-rest bibs))))))
       (make sequence
	(literal "[") ($charseq$) (literal "]"))))