Style for <code> as it should be

Subject: Style for <code> as it should be
From: "Henry S. Thompson" <ht@xxxxxxxxxxxxxxx>
Date: Wed, 28 May 97 12:36:37 BST
There must be a better way, but I can't find it.  We're rendering via
transformation to HTML, using -t sgml.  The idea is that <code> should
a) use a fixed-pitch font;
b) preserve line-breaks.

Here's the best I can do:

(element code (make element gi: "code"
		(let loop ((kl (children (current-node)))
			   (res (empty-sosofo)))
		  (if (node-list-empty? kl)
		      res
		    (loop
		     (node-list-rest kl)
		     (let ((c (node-list-first kl)))
		       (if (char=? (node-property 'char c) #\U-000D)
			   (sosofo-append res
					  (make empty-element gi: "br")
					  (process-node-list c))
			 (sosofo-append res (process-node-list c)))))))
		))

Is there a better way?

ht

 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist


Current Thread