- ntg-context - Mailing Lists

Taco's \molecule fails in mkiv
by Mojca Miklavec 24 Feb '09

24 Feb '09

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

3 4

sections & incompatible colors in mkii/mkiv
by Mojca Miklavec 24 Feb '09

24 Feb '09

Hello, Maybe this is just one incompatibility I need to live with, but maybe it could be fixed. You can try to compare results in mkii and mkiv. The text "Section is called" is desplayed in black in mkii and in red in mkiv. (It made some of my documents look funny. I can fix it myself, but maybe there are other consequences as well.) \setupcolors[state=start] \def\mycommand#1#2{Section (#1) in called: #2} \setuphead [section] [color=red, numbercolor=black, command=\mycommand] \starttext \section{First Section} \stoptext Mojca

3 2

Problem with "packed" and "\space" / "broad" and "/nospace"
by Bernd Kosubek 23 Feb '09

23 Feb '09

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hallo all! The following lines demonstrates my problem: { \setupspacing[packed] \startalignment[right] xxxx xxxx. yyyy yyyy yyyy yyyy. zzzz zzzz zzzz zzzz. xxxx xxxx. yyyy yyyy yyyy yyyy.\space{} zzzz zzzz zzzz zzzz. \stopalignment } { \setupspacing[broad] \startalignment[right] xxxx xxxx. yyyy yyyy yyyy yyyy. zzzz zzzz zzzz zzzz. xxxx xxxx. yyyy yyyy yyyy yyyy.\nospace{} zzzz zzzz zzzz zzzz. \stopalignment } \stoptext In my mind, the first line should be the shortest (no additional spacing). The length of the second line must be longer (additional spacing after the second sentence). The length of the third line must be longer than that of the second line (additional spacing between every sentence). And the fourth line must be shorter than the third line (same length as the first line). If I run "texexec" over this, the last three line are longer than the first line AND they have the same lengths. What have I not understand -- or is it a known problem or a bug? - -- Bernd Kosubek Unsigned eMail are not from me. eMail: kosubek(a)sksatz.com Fingerprint: C121 F3C2 A6DD 1ACD A9BC F0AF 1289 2AEC B7C4 D63B URL: http://www.sksatz.com Keyserver: blackhole.pca.dfn.de (oder andere) -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.2-rc1-SuSE (GNU/Linux) iD8DBQFJowywEokq7LfE1jsRAvFaAJ9/MZbXAgNZ7PcgQiZtCzE1jq5ZAgCfZ0Lz 3ftR6JipB5c2stVcKNwwNzQ= =NGjT -----END PGP SIGNATURE-----

2 4

Using texexec to prepare single-sided PDF for double-sided printing
by John Devereux 23 Feb '09

23 Feb '09

Hi, I would like to use texexec to post-process a large pdf file, so as to prepare it for double sided printing. The existing file has a large left hand "margin" on each page, so as to allow binding. I would like to change this so that odd (right) pages have a large left margin, and even (left) pages a large right margin. I don't want to put 2 pages on one output sheet - although the ability to fine-tune the scaling might be useful. I have experimented with plenty of combinations of texexec --pdfarrange ...but I am not getting anywhere. Any suggestions appreciated. I am on debian and there are plenty of other pdf tools, but none of these seem quite right either. It would seem a common enough requirement but nothing quite works! Thanks, -- John Devereux

2 4

(Lua)TeX runs
by Alan Stone 23 Feb '09

23 Feb '09

Hello, Where can I find a description of what happens between (Lua)TeX runs ? Thanks, Alan

2 3

automatic footnote rule in MKIV
by Ilda Khaki 23 Feb '09

23 Feb '09

as I said before, in Persian we have two footnotes, one for Persian and the other for English, if the first footnote in a pageis English, then footnote rule will appear on left hand side and if the first footnote in a pgeis persian, the footnote appears on right . handside. this is the code taken from xepersian which does automatic footnoterule, it produces a file-name.fot %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % footnote setup % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \ifx \CatEscape\undefined \chardef\CatEscape=0 \chardef\CatOpen=1 \chardef\CatClose=2 \chardef\CatIgnore=9 \chardef\CatLetter=11 \chardef\CatOther=12 \chardef\CatActive=13 % is defined in Plain already \chardef\CatUsCode=\catcode`\_ \fi \catcode`\_=\CatLetter % top level macro file \def\r@fn{% \hbox to \columnwidth {\beginR \vbox{\kern -3\p@ \hrule width .4\columnwidth \kern2.6\p@}\hfil\endR}} \def\l@fn{% \hrule width .4\columnwidth\kern 2.6\p@} \def\@makefnmark{\hbox{$^{\hbox{\scriptsize\@thefnmark}}\m@th$}} \def\leftfootnoterule{\global\def\footnoterule{\l@fn}} \def\rightfootnoterule{\global\def\footnoterule{\r@fn}} \leftfootnoterule %%% \beginprog \newread\old_foot_file \newwrite\foot_file \def\foot_file_name{\jobname.fot\relax} \def\init_footnote{% \openin\old_foot_file\foot_file_name \ifeof\old_foot_file \closein\old_foot_file \else \closein\old_foot_file \read_foot_file \fi \immediate\openout\foot_file\foot_file_name \immediate\write\foot_file{\relax}% \global\let\init_footnote\relax } \newcount\foot_name_no % for generating footnote mark names \newcount\autofootnote \def\fnpp_next_footnote{% \init_footnote \global\advance\foot_name_no\@ne \global\advance\c@footnote\@ne \edef\do_write{% \immediate\write\foot_file{% \string\advance\autofootnote\@ne \string\expandafter\xdef \string\csname\space f@\number\foot_name_no \endcsname{% \string\number\autofootnote }% }% }% \do_write \global\autofootnote 0\csname f@\number\foot_name_no \endcsname \relax } \def\read_foot_file{% \begingroup \catcode`\@\CatLetter \catcode`\^^M\CatIgnore \input \foot_file_name \endgroup } \let\fnpp_orig_outputpage=\@outputpage \def\@outputpage{% \ifx \init_footnote\relax \immediate\write\foot_file{\autofootnote\z@}% \fi \fnpp_orig_outputpage } \let\FnppOrigFootnote=\footnote % save original bindings \let\FnppOrigFootnotemark=\footnotemark \def\footnote{% \@ifnextchar[% % ] (Emacs) \@xfootnote {\fnpp_next_footnote \ifnum\autofootnote=1\rightfootnoterule\fi \@xfootnote[\the\c@footnote] % }% } \def\footnotemark{% \@ifnextchar[% % ] (Emacs) \@xfootnotemark {\fnpp_next_footnote \ifnum\autofootnote=1\rightfootnoterule\fi \@xfootnotemark[\the\c@footnote]}% } \def\footnotemarkLR{% \@ifnextchar[% % ] (Emacs) \@xfootnotemark {\fnpp_next_footnote \ifnum\autofootnote=1\leftfootnoterule\fi\@xfootnotemark[\the\c@footnote]}% } \newif\if@RomanFootNum \providerobustcmd{\Footnote}[1]{% \bgroup \footnotemarkLR% \renewcommand{\thefootnote}{\if@RomanFootNum\rmfamily{\@arabic\c@footnote }\else\@arabic\c@footnote\fi}% \@RTLfalse\footnotetext{\rmfamily#1}% \egroup } \@RomanFootNumfalse \def\PersianFootNum{\@RomanFootNumfalse} \def\RomanFootNum{\@RomanFootNumtrue} \DeclareOption{RomanFootNum}{\@RomanFootNumtrue} \ProcessOptions \ifx \@minipagerestore\relax \let\@minipagerestore\@empty \fi \g@addto@macro\@minipagerestore{% \let\footnote\FnppOrigFootnote } \let\fnpp_orig_maketitle=\maketitle \def\maketitle{% \begingroup \let\footnotemark\FnppOrigFootnotemark \fnpp_orig_maketitle \endgroup } \catcode`\_=\CatUsCode %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % End of footnote setup % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

2 1

Jalali Calendar for MKIv
by Ilda Khaki 23 Feb '09

23 Feb '09

Hi, This is the macro for Jalali Calendar taken from xepersian %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \newif\ifFT@leap \newif\ifFT@kabiseh \newcount\FT@i \newcount\FT@y \newcount\FT@m \newcount\FT@d \newcount\FT@latini \newcount\FT@persiani \newcount\FT@latinii \newcount\FT@persianii \newcount\FT@latiniii \newcount\FT@persianiii \newcount\FT@latiniv \newcount\FT@persianiv \newcount\FT@latinv \newcount\FT@persianv \newcount\FT@latinvi \newcount\FT@persianvi \newcount\FT@latinvii \newcount\FT@persianvii \newcount\FT@latinviii \newcount\FT@persianviii \newcount\FT@latinix \newcount\FT@persianix \newcount\FT@latinx \newcount\FT@persianx \newcount\FT@latinxi \newcount\FT@persianxi \newcount\FT@latinxii \newcount\FT@persianxii \newcount\FT@persianxiii \newcount\FT@temp \newcount\FT@temptwo \newcount\FT@tempthree \newcount\FT@yModHundred \newcount\FT@thirtytwo \newcount\FT@dn \newcount\FT@sn \newcount\FT@mminusone \def\ftoday{% \FT@y=\year \FT@m=\month \FT@d=\day % \FT@temp=\FT@y \divide\FT@temp by 100\relax \multiply\FT@temp by 100\relax \FT@yModHundred=\FT@y \advance\FT@yModHundred by -\FT@temp\relax % \ifodd\FT@yModHundred \FT@leapfalse \else \FT@temp=\FT@yModHundred \divide\FT@temp by 2\relax \ifodd\FT@temp\FT@leapfalse \else \ifnum\FT@yModHundred=0% \FT@temp=\FT@y \divide\FT@temp by 400\relax \multiply\FT@temp by 400\relax \ifnum\FT@y=\FT@temp\FT@leaptrue\else\FT@leapfalse\fi \else\FT@leaptrue \fi \fi \fi % \FT@latini=31\relax \ifFT@leap \FT@latinii = 29\relax \else \FT@latinii = 28\relax \fi \FT@latiniii = 31\relax \FT@latiniv = 30\relax \FT@latinv = 31\relax \FT@latinvi = 30\relax \FT@latinvii = 31\relax \FT@latinviii = 31\relax \FT@latinix = 30\relax \FT@latinx = 31\relax \FT@latinxi = 30\relax \FT@latinxii = 31\relax % \FT@thirtytwo=32\relax % \FT@temp=\FT@y \advance\FT@temp by -17\relax \FT@temptwo=\FT@temp \divide\FT@temptwo by 33\relax \multiply\FT@temptwo by 33\relax \advance\FT@temp by -\FT@temptwo \ifnum\FT@temp=\FT@thirtytwo\FT@kabisehfalse \else \FT@temptwo=\FT@temp \divide\FT@temptwo by 4\relax \multiply\FT@temptwo by 4\relax \advance\FT@temp by -\FT@temptwo \ifnum\FT@temp=\z@\FT@kabisehtrue\else\FT@kabisehfalse\fi \fi % % --VK % In fact persiani is equal to the Leap years from a fixed year to the last % year minus the Kabise years from a fixed year to the last year plus a const. % \FT@tempthree=\FT@y % Number of Leap years \advance\FT@tempthree by -1 \FT@temp=\FT@tempthree % T := (MY-1) div 4 \divide\FT@temp by 4\relax \FT@temptwo=\FT@tempthree % T := T - ((MY-1) div 100) \divide\FT@temptwo by 100\relax \advance\FT@temp by -\FT@temptwo \FT@temptwo=\FT@tempthree % T := T + ((MY-1) div 400) \divide\FT@temptwo by 400\relax \advance\FT@temp by \FT@temptwo \advance\FT@tempthree by -611 % Number of Kabise years \FT@temptwo=\FT@tempthree % T := T - ((SY+10) div 33) * 8 \divide\FT@temptwo by 33\relax \multiply\FT@temptwo by 8\relax \advance\FT@temp by -\FT@temptwo \FT@temptwo=\FT@tempthree % \divide\FT@temptwo by 33\relax \multiply\FT@temptwo by 33\relax \advance\FT@tempthree by -\FT@temptwo \ifnum\FT@tempthree=32\advance\FT@temp by 1\fi % if (SY+10) mod 33=32 then Inc(T); \divide\FT@tempthree by 4\relax % T := T - ((SY+10) mod 33) div 4 \advance\FT@temp by -\FT@tempthree \advance\FT@temp by -137 % T := T - 137 Adjust the value \FT@persiani=31 \advance\FT@persiani by -\FT@temp % now 31 - T is the persiani % \FT@persianii = 30\relax \ifFT@kabiseh \FT@persianiii = 30\relax \else \FT@persianiii = 29\relax \fi \FT@persianiv = 31\relax \FT@persianv = 31\relax \FT@persianvi = 31\relax \FT@persianvii = 31\relax \FT@persianviii= 31\relax \FT@persianix = 31\relax \FT@persianx = 30\relax \FT@persianxi = 30\relax \FT@persianxii = 30\relax \FT@persianxiii= 30\relax % \FT@dn= 0\relax \FT@sn= 0\relax \FT@mminusone=\FT@m \advance\FT@mminusone by -1\relax % \FT@i=0\relax \ifnum\FT@i < \FT@mminusone \loop \advance \FT@i by 1\relax \advance\FT@dn by \csname FT@latin\romannumeral\the\FT@i\endcsname \ifnum\FT@i<\FT@mminusone \repeat \fi \advance \FT@dn by \FT@d % \FT@i=1\relax \FT@sn = \FT@persiani \ifnum \FT@sn<\FT@dn \loop \advance \FT@i by 1\relax \advance\FT@sn by \csname FT@persian\romannumeral\the\FT@i\endcsname \ifnum \FT@sn<\FT@dn \repeat \fi \ifnum \FT@i < 4 \FT@m = 9 \advance\FT@m by \FT@i \advance \FT@y by -622\relax \else \FT@m = \FT@i \advance \FT@m by -3\relax \advance \FT@y by -621\relax \fi \advance\FT@sn by -\csname FT@persian\romannumeral\the\FT@i% \endcsname \ifnum\FT@i = 1 \FT@d = \FT@dn \advance \FT@d by 30 \advance\FT@d by -\FT@persiani \else \FT@d = \FT@dn \advance \FT@d by -\FT@sn \fi \beginL\number\FT@d\endL\space% %Changedc from here YJ \persianmonth{\FT@m}\space\beginL\number\FT@y\endL% } % added \persianmonth YJ \def\persianmonth#1{\ifcase#1\or فروردین\or اردیبهشت\or خرداد\or تیر\or مرداد\or شهریور\or مهر\or آبان\or آذر\or دی\or بهمن\or اسفند\fi} \let\originaltoday=\today \def\today{\lr{\originaltoday}} \let\romantoday\today \def\today{\rl{\ftoday}} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% can you include this in MKIV? Is there copyright issues?

2 1

defineenumeration
by batela 23 Feb '09

23 Feb '09

Dear Sirs, I need to define a enumeration with the text label = "Remark". For that I define \defineenumeration[Remark][text=Remark]. The label for the subRemark should be "subRemark". Is there a easy way to do that? The subRemark is a son of Remark and the numeration expected is: Remark 1 subRemark 1.1 subRemark 1.2 Remark 2 subRemark 2.1 .... thanks Have a nice day

2 1

Cyrillic fonts
by Vyatcheslav Yatskovsky 22 Feb '09

22 Feb '09

> > no. also, times is even older than lm -) > > i'd like to default to optima nova or palatino nova but that's no option > for most users either because these are commercial fonts > Thank you, Hans. But my argument for default Times (or other font) is that it supports Cyrillic, while LM does not. I think that Cyrillic users deserve to be able write something like \starttext Привет мир! (Hello World) \stoptext and get right output with no setup. My another question remains: how to use other Gyre fonts in most simple way? Best, Vyactheslav

2 1

Updating lang-ita.tex
by Xan 22 Feb '09

22 Feb '09

Hi, I send you the latest version of the corrected lang-ita.tex. I update the catalan and spanish languages. Thanks, Xan.

1 0