|
Subject: Re: Case independence and (case) From: ht@xxxxxxxxxxxxxxx (Henry S. Thompson) Date: 17 Apr 1998 21:02:21 +0100 |
It's tedious, but it will work:
(let ((attr (attribute-string (norm "align")
(current-node))))
(cond ((equal attr (norm "left")) 'start)
((equal attr (norm "center")) 'center)
((member attr (list (norm "right")(norm "char"))) 'end)
. . .))
ht
--
Henry S. Thompson, HCRC Language Technology Group, University of Edinburgh
2 Buccleuch Place, Edinburgh EH8 9LW, SCOTLAND -- (44) 131 650-4440
Fax: (44) 131 650-4587, e-mail: ht@xxxxxxxxxxxxxxx
URL: http://www.ltg.ed.ac.uk/~ht/
DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
| Current Thread |
|---|
|
| <- Previous | Index | Next -> |
|---|---|---|
| Case independence and (case), Chris Maden | Thread | HTML table stylesheet announcement , Chris Maden |
| (case) correction, Chris Maden | Date | HTML table stylesheet announcement , Chris Maden |
| Month |