Subject: RE: Case independence and (case) From: "Reynolds, Gregg" <greynolds@xxxxxxxxxxxxxx> Date: Fri, 17 Apr 1998 15:57:15 -0500 |
How about something like (define quad-alist (list (cons 'default 'start) (cons (norm "left") 'start) (cons (norm "center") 'center) ...etc... )) (let ((myquad (cdr (assoc (attribute-string (norm "align") quad-list) (current-node))))) (if myquad myquad (cdr (assoc 'default quad-alist)))) Haven't tested it, but I'm just mad for alists. Would this be horribly inefficient? DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
HTML table stylesheet announcement , Chris Maden | Thread | Re: Case independence and (case), Chris Maden |
HTML table stylesheet announcement , Chris Maden | Date | Re: Case independence and (case), Chris Maden |
Month |