February 2009 - ntg-context - NTG Mailing Lists

Punctuation
by Wolfgang Schuster 24 Feb '09

24 Feb '09

On Sun, Feb 15, 2009 at 5:27 PM, Wolfgang Schuster <schuster.wolfgang(a)googlemail.com> wrote: > Hi, > > with the persian interface each character has now the catcode 11 and this > cause a few problems in the input with puctuation, see below. > > \starttext > »\CONTEXT« and »\CONTEXT’ interface« > \stoptext > > The right quillemet and the apostrophe are treated as part of the \CONTEXT > command and we should reset them (plus a few more) to catcode 12 in the > format. > > Wolfgang > >

1 0

Font with compreensive unicode
by Maurício 24 Feb '09

24 Feb '09

Hi, I'm using ConTeXt to create a small table of unicode characters. Below is my current test. The codes are: U+2019 is a single quotation mark U+2610 should be a ballot box U+226b should be a "much greater than" (>>) U+2115 should be the N as used to represent the natural numbers I get 2019 right, 2610 becomes a blank, 226b becomes just a 'b' and 2115 is also a blank. The choosen font is just one I selected (randomly) for testing. Is there a font I could select that would give me a wide set of unicode characters? Actually: is the choice of font the reason for the missing characters, or I'm just doing something wrong? Thanks in advance, Maurício %%%% \enableregime[utf] \mainlanguage[en] \definefontsynonym [myfont] [name:texgyretermesregular] \definefont [tudo] [myfont at 10pt] \defineframed [tabelado] [height=2cm,width=2cm,align=middle,corner=round] \starttext \tudo \noheaderandfooterlines \startcombination[2*2] { \tabelado{\blank \char"2019 \par \blank} } { 2019 } { \tabelado{\blank \char"2610 \par \blank} } { 2610 } { \tabelado{\blank \char"226b \par \blank} } { 226b } { \tabelado{\blank \char"2115 \par \blank} } { 2115 } \stopcombination \stoptext %%%%

3 2

reducing compile time
by Alan Stone 24 Feb '09

24 Feb '09

- does using \doifundefined{myMacro}{...} shorten tex runs/compile time ? - what are the features to avoid for shortest compile times ? -- Alan

6 12

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