A better way to be selective

Subject: A better way to be selective
From: "Henry S. Thompson" <ht@xxxxxxxxxxxxxxx>
Date: Thu, 24 Apr 97 11:56:44 BST
I hadn't realised the extent to which named ports and labelled sosofos
were supported.  Here's a basic template for selective processing, works in
jade-0.5 or 0.7:

(root (make simple-page-sequence
	    (make scroll
		  content-map: '((win #f))
		  (sosofo-discard-labeled (make sequence) 'lose))))

(define *winning-gis* '("TITLE" "FOOTNOTE"))

  (if (member (gi) *winning-gis*)
      (make sequence label: 'win
	    (with-mode index (process-node-list (current-node))))
    ;; process only element daughters
    (make sequence label: 'lose)))

(mode index (default (make paragraph)))

Current Thread