* Taco's \molecule fails in mkiv
@ 2009-02-23 16:21 Mojca Miklavec
2009-02-23 16:52 ` Wolfgang Schuster
0 siblings, 1 reply; 5+ messages in thread
From: Mojca Miklavec @ 2009-02-23 16:21 UTC (permalink / raw)
To: mailing list for ConTeXt users
Hello,
I did not try to analyze how the following macros work (they are too
complex), but they somehow fail in mkiv. (I don't need the "F"
kerning, so that portion of code may go away, but the macro itself is
very very handy.)
All I want is to have a macro that "converts" _{...} into \low{...}
and ^{...} into \high{...} (or possibly enable using both at the same
time).
\newbox\chemlowbox
\def\chemlow#1%
{\setbox\chemlowbox\hbox{{\switchtobodyfont[small]#1}}}
\def\chemhigh#1%
{\ifvoid\chemlowbox \high{{\switchtobodyfont[small]#1}}%
\else \/\lohi{\box\chemlowbox}{{\switchtobodyfont[small]#1}}\fi }
\def\finishchem%
{\ifvoid\chemlowbox \else
\iffluor \fluorfalse \kern-.1em \fi\low{\box\chemlowbox}\fi}
% for "kerning" after F
\newif\iffluor
\unexpanded\def\molecule%
{\bgroup
\catcode`\_=\active \uccode`\~=`\_ \uppercase{\let~\chemlow}%
\catcode`\^=\active \uccode`\~=`\^ \uppercase{\let~\chemhigh}%
\dostepwiserecurse {65}{90}{1}
{\catcode \recurselevel = \active
\uccode`\~=\recurselevel
\uppercase{\edef~{\noexpand\finishchem
\rawcharacter{\recurselevel}}}}%
\uccode `\~=`\F \uppercase{\def~{\finishchem F\fluortrue}}%
\catcode`\-=\active \uccode`\~=`\- \uppercase{\def~{--}}%
%\loggingall
\domolecule }%
\def\domolecule#1%
{\expandafter\scantokens\expandafter
{\detokenize{#1\finishchem}}\egroup}
\starttext
\molecule{CO_2}
\stoptext
Thanks for any hints,
Mojca
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 5+ messages in thread* Re: Taco's \molecule fails in mkiv 2009-02-23 16:21 Taco's \molecule fails in mkiv Mojca Miklavec @ 2009-02-23 16:52 ` Wolfgang Schuster 2009-02-23 17:14 ` Mojca Miklavec 2009-02-23 18:19 ` luigi scarso 0 siblings, 2 replies; 5+ messages in thread From: Wolfgang Schuster @ 2009-02-23 16:52 UTC (permalink / raw) To: mailing list for ConTeXt users Am 23.02.2009 um 17:21 schrieb Mojca Miklavec: > Hello, > > I did not try to analyze how the following macros work (they are too > complex), but they somehow fail in mkiv. (I don't need the "F" > kerning, so that portion of code may go away, but the macro itself is > very very handy.) > > All I want is to have a macro that "converts" _{...} into \low{...} > and ^{...} into \high{...} (or possibly enable using both at the same > time). \startluacode thirddata = thirddata or { } function thirddata.molecule(text) text = string.gsub(text,"_","\\low") text = string.gsub(text,"%^","\\high") tex.sprint(text) end \stopluacode \def\molecule#1{\ctxlua{thirddata.molecule('#1')}} \starttext \molecule{H_2SO_4} \molecule{H_2^+} \stoptext Wolfgang ___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : https://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________ ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Taco's \molecule fails in mkiv 2009-02-23 16:52 ` Wolfgang Schuster @ 2009-02-23 17:14 ` Mojca Miklavec 2009-02-24 0:21 ` Wolfgang Schuster 2009-02-23 18:19 ` luigi scarso 1 sibling, 1 reply; 5+ messages in thread From: Mojca Miklavec @ 2009-02-23 17:14 UTC (permalink / raw) To: mailing list for ConTeXt users On Mon, Feb 23, 2009 at 17:52, Wolfgang Schuster wrote: > > Am 23.02.2009 um 17:21 schrieb Mojca Miklavec: > >> Hello, >> >> I did not try to analyze how the following macros work (they are too >> complex), but they somehow fail in mkiv. (I don't need the "F" >> kerning, so that portion of code may go away, but the macro itself is >> very very handy.) >> >> All I want is to have a macro that "converts" _{...} into \low{...} >> and ^{...} into \high{...} (or possibly enable using both at the same >> time). > > \startluacode > > thirddata = thirddata or { } > > function thirddata.molecule(text) > text = string.gsub(text,"_","\\low") > text = string.gsub(text,"%^","\\high") > tex.sprint(text) > end > > \stopluacode > > \def\molecule#1{\ctxlua{thirddata.molecule('#1')}} > > \starttext > \molecule{H_2SO_4} > \molecule{H_2^+} > \stoptext Hello Wolfgang, thanks a lot for the very nice code :) :) :) The second example (H_2^+) does not return expected result - it should have been H\lohi{2}{+} instead, but I don't require such cases for the current document, so I guess that I'll just replace the old macro with this one for now in order not to get distracted with TeX problems too much :) Thanks again, Mojca ___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : https://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________ ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Taco's \molecule fails in mkiv 2009-02-23 17:14 ` Mojca Miklavec @ 2009-02-24 0:21 ` Wolfgang Schuster 0 siblings, 0 replies; 5+ messages in thread From: Wolfgang Schuster @ 2009-02-24 0:21 UTC (permalink / raw) To: mailing list for ConTeXt users [-- Attachment #1: molecule_lpeg.tex --] [-- Type: application/octet-stream, Size: 2018 bytes --] \startluacode do thirddata = thirddata or { } local molecule = { } function molecule.text(one) tex.sprint(string.format("%s",one)) end function molecule.low(one,two) tex.sprint(string.format("%s\\low{%s}",one,two)) end function molecule.high(one,two) tex.sprint(string.format("%s\\high{%s}",one,two)) end function molecule.lowhigh(one,two,three) tex.sprint(string.format("%s\\lohi{%s}{%s}",one,two,three)) end function molecule.highlow(one,two,three) tex.sprint(string.format("%s\\lohi{%s}{%s}",one,two,three)) end local plus = lpeg.P("+") local minus = lpeg.P("-") local lowercase = lpeg.R("az") local uppercase = lpeg.R("AZ") local number = lpeg.R("09") local subscript = lpeg.P("_") local superscript = lpeg.P("^") local leftbrace = lpeg.P("{") local rightbrace = lpeg.P("}") local single = lowercase + number + plus + minus local multiple = leftbrace * single^1 * rightbrace local content = single + multiple local text = lpeg.C(uppercase^1) / molecule.text local low = lpeg.C(uppercase^1) * subscript * lpeg.C(content) / molecule.low local high = lpeg.C(uppercase^1) * superscript * lpeg.C(content) / molecule.high local lowhigh = lpeg.C(uppercase^1) * subscript * lpeg.C(content) * superscript * lpeg.C(content) / molecule.lowhigh local highlow = lpeg.C(uppercase^1) * superscript * lpeg.C(content) * subscript * lpeg.C(content) / molecule.highlow local parser = (lowhigh + highlow + low + high + text)^0 function thirddata.molecule(string) parser:match(string) end end \stopluacode \def\molecule#1{\ctxlua{thirddata.molecule("#1")}} \starttext \molecule{CO_2} \molecule{H^+} \molecule{H_2^+} \molecule{C_nH_{2n+1}OH} \stoptext [-- Attachment #2: Type: text/plain, Size: 478 bytes --] Am 23.02.2009 um 18:14 schrieb Mojca Miklavec: > thanks a lot for the very nice code :) :) :) > > The second example (H_2^+) does not return expected result - it > should have been > H\lohi{2}{+} > instead, but I don't require such cases for the current document, so I > guess that I'll just replace the old macro with this one for now in > order not to get distracted with TeX problems too much :) You can try the attatched, it use lpeg to parse the content. Wolfgang [-- Attachment #3: Type: text/plain, Size: 487 bytes --] ___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : https://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________ ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Taco's \molecule fails in mkiv 2009-02-23 16:52 ` Wolfgang Schuster 2009-02-23 17:14 ` Mojca Miklavec @ 2009-02-23 18:19 ` luigi scarso 1 sibling, 0 replies; 5+ messages in thread From: luigi scarso @ 2009-02-23 18:19 UTC (permalink / raw) To: mailing list for ConTeXt users On Mon, Feb 23, 2009 at 5:52 PM, Wolfgang Schuster <schuster.wolfgang@googlemail.com> wrote: > > Am 23.02.2009 um 17:21 schrieb Mojca Miklavec: > >> Hello, >> >> I did not try to analyze how the following macros work (they are too >> complex), but they somehow fail in mkiv. (I don't need the "F" >> kerning, so that portion of code may go away, but the macro itself is >> very very handy.) >> >> All I want is to have a macro that "converts" _{...} into \low{...} >> and ^{...} into \high{...} (or possibly enable using both at the same >> time). > > \startluacode > > thirddata = thirddata or { } > > function thirddata.molecule(text) > text = string.gsub(text,"_","\\low") > text = string.gsub(text,"%^","\\high") > tex.sprint(text) > end > > \stopluacode > > \def\molecule#1{\ctxlua{thirddata.molecule('#1')}} hmm Isn't better to remember original \molecule ? I mean, something like \let\ORIGINALmolecule\molecule \def\molecule#1{\ctxlua{thirddata.molecule('#1')}} Sometimes in some contexts ORGINAL works and modified no, and you haven't time to find why . -- luigi ___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : https://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________ ^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2009-02-24 0:21 UTC | newest] Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2009-02-23 16:21 Taco's \molecule fails in mkiv Mojca Miklavec 2009-02-23 16:52 ` Wolfgang Schuster 2009-02-23 17:14 ` Mojca Miklavec 2009-02-24 0:21 ` Wolfgang Schuster 2009-02-23 18:19 ` luigi scarso
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for NNTP newsgroup(s).