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 |