Hi Erik,
> > As far as implementation goes, we would just need to add a clause to
> > the 'render' function in 'wiki/lib.l', right? Something like
> >
> > ("$" # Style
> > (let Cls (till ... T) # get CSS class(es)
> > (prin "<span class=\"" Cls "\">")
> > (recurse T) # render the rest
> > (prin "</span>") ) )
>
> Or, if we go with the above '*Style' / 'dfltCss', it would simply call
> the function 'style'.
I tried this
("$" # CSS Style
(<style> (till " ^I^J^M}" T)
(char)
(renderBlock ht:Prin)) )
however the problem is that '*Style' / 'dfltCss' only apply when other
tag functions are called in the body, not for plain text.
So perhaps <span> is indeed better?
("$" # CSS Style
(<span> (till " ^I^J^M}" T)
(char)
(renderBlock ht:Prin)) )
In any case, don't forget to add '$' to the delimiters:
< (ht:Prin (till "^J123456&/!_*+-<@>=\^:\\#}" T))
---
> (ht:Prin (till "^J123456&/!_*+-<@>=\^:$\\#}" T))
BUT, I see a general problem with that: Allowing the specification of
styles is not very helpful unless the user can also upload or define his
own styles. So this opens a pandora box.
♪♫ Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
