Am 08.01.2010 um 17:27 schrieb Tad Ashlock:
> Hi All,
>
> I'm trying to create a command that will apply a consistent style to a word
> or phrase. For example, when documenting source code, I'd like to be able to
> mark variables with \Var{var_name}. Then if I want the variable names to be
> in mono, I can \def\Var#1{\type{#1}}. No problem there. If I want variable
> names to be in quotes, then \def\Var#1{\quote{#1}}.
>
> The problem is that in my ConTeXt code I'd write "This is \Var{var_name}, a
> variable." Which would get typeset as "This is 'var_name', a variable."
> where punctuation convention (at least in American English) would have the
> comma inside the quote like this: "This is 'var_name,' a variable."
>
> I've tried four different ways of implementing this, but none of them work
> consistently. Here's my last attempt:
>
> ==========================
> \startluacode
> function move_end_punctuation (text, punc, cmd_start, cmd_mid, cmd_end)
> context(cmd_start .. text .. cmd_mid)
> if string.find('.,!?', punc, 1, true) then
> context(punc .. cmd_end)
> else
> context(cmd_end .. ' ' .. punc)
> end
> end
> \stopluacode
>
> \def\Var#1#2{\ctxlua{move_end_punctuation([==[#1]==],[==[#2]==],
> '\\quote{\\type{','}','}')}}
>
> \starttext
>
> This is \Var{var_name}, a variable.
>
> \stoptext
> ==========================
>
> This works, until the \Var{} macro appears in the argument of another macro.
> For example, make the text:
>
> \framed{This is \Var{var_name}, a variable.}
>
> and the following error results:
> ==========================
> systems : begin file test.tex at line 16
> ! Missing $ inserted.
> <inserted text>
> $
> <to be read again>
> _
> l.1 ...spaces quote{unskip ignorespaces type{var_
> name}
> \Var ...=],[==[#2]==], '\\quote{\\type{','}','}')}
> l.18 \framed{This is
> \Var{var_name},
> a variable.}
> ?
> ==========================
>
> I think my problem has to do with parameter expansion, but I don't understand
> the intricacies enough to solve this. I flailed away, unsuccessfully, with
> various combinations of \unexpanded, \normalunexpanded, luaescapestring, etc.
>
> Does anyone have a solution or a pointer in the right direction?
\nonknuthmode % make '_' a normal character in text mode
\define[1]\Var
{\doifnextcharelse{,}{\doVar{#1,}\gobbleoneargument}{\noVar{#1}}}
\define[1]\doVar
{\mono{#1}}
\define[1]\noVar
{\mono{#1}%
\doifnextcharelse{;} % \autoinsertnextspace is no longer available in MkIV :(
{\donothing}
{\doifnextcharelse{.}
{\donothing}
{\space}}}
\starttext
This is \Var{var_name}, a variable.
This is \Var{var_name,} a variable.
\framed{This is \Var{var_name}, a variable.}
\stoptext
Wolfgang
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
