- ntg-context - Mailing Lists

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

strange fontswitching error
by Alan Stone 22 Feb '09

22 Feb '09

Hi, BF = body font HF = head font A = arial T = times new roman V = verdana OT = 12 = 12pt OF = 14 = 14pt See comments in fontswitch.tex In attachment... - fontswitch.tex: minimal example - tps_arial.tex, tps_timesnewroman.tex, tps_verdana.tex: typescripts - fontswitch.log for BFT14 + HFV14 -> font error ( same with BFA14 + HFV14 ) - fontswitch.pdf for BFT14 + HFV14 : chapter head is blank ( same with BFA14 + HFV14 ) After testing different font(switching) combinations... - BFA14 or BFT14 + HFVx with x not 14pt compile and print the generated pdf fine - BFV14 + HFV14 compiles and prints the generated pdf fine - BFA12, BFT12, BFV12 + HFV14 or HFV12 compile and print the generated pdf fine Qué passa ? Alan ----------------------------------------------------------------------------------------------- SURPRISE, SURPRISE... ----------------------------------------------------------------------------------------------- Banker Logic: The More You Screw Up, The More You Get Paid... CEOs Caught Scheming On Tape http://www.youtube.com/watch?v=zwbE-y2Rx6I or http://www.liveleak.com/view?i=f95_1234826309 -----------------------------------------------------------------------------------------------

2 4

Instalation of minimal
by Maurício 22 Feb '09

22 Feb '09

Hi, Is information on this page http://wiki.contextgarden.net/ConTeXt_Minimals still valid? After following instructions and successfull (I think) rsync sessions I try: source ~/context/tex/setuptex ~/context/tex and I'm told ~/context/tex is not a valid TeX directory. I also tried downloading a 'linux.zip' from http://minimals.contextgarden.net/pragma and it says the same. It also complains about a missing 'plain.tex'. What is the easier way to install MK IV? I usually use ConTeXt that comes with Ubuntu, I just need MK IV in one session where I need to type unicode characters by their number. (A previous message from Hans says \char"2019 would work for sure in MK IV.) Thanks, Maurício

1 0

bold with type?
by Jean Magnan de Bornier 21 Feb '09

21 Feb '09

Hi all, I need to have bold characters with type. I tried what is said here: http://wiki.contextgarden.net/Bold_typewriter but cmttb is not on my machine (TexLive 2008 ), and context or texexec are complaining; only the umtypewriter family seems to have bold faces, but it's a bit too ugly for me :-( Any idea? tia, -- Jean

1 0

Vertical lines for tabulate
by Wolfgang Schuster 21 Feb '09

21 Feb '09

Hi, there was a question in the german TeX newgroupd how create a table with borders on all which allows one to split the content at the end of the page. Although he used LaTeX I was looking for a ConTeXt solution, splitting the content is possible with tabulate but vertical lines are a problem. A found a solution with textackground but it did only work for the longest column. I guess I can solve it with twopass data but does any of you know a simpler solution. \definetextbackground [tableframe] [background=, location=paragraph, leftoffset=.5em] \starttext \starttabulate[|j0p(2cm)|i0p|] \NC \starttableframe knuth \stoptableframe \NC \starttableframe \input knuth \stoptableframe \NC\NR \NC \starttableframe tufte \stoptableframe \NC \starttableframe \input tufte \stoptableframe \NC\NR \NC \starttableframe ward \stoptableframe \NC \starttableframe \input ward \stoptableframe \NC\NR \NC \starttableframe zapf \stoptableframe \NC \starttableframe \input zapf \stoptableframe \NC\NR \NC \starttableframe knuth \stoptableframe \NC \starttableframe \input knuth \stoptableframe \NC\NR \NC \starttableframe tufte \stoptableframe \NC \starttableframe \input tufte \stoptableframe \NC\NR \NC \starttableframe ward \stoptableframe \NC \starttableframe \input ward \stoptableframe \NC\NR \NC \starttableframe zapf \stoptableframe \NC \starttableframe \input zapf \stoptableframe \NC\NR \stoptabulate \stoptext Wolfgang

1 1

Nested sections in interface=xp?
by Kevin D. Robbins 21 Feb '09

21 Feb '09

I'm interested to know whether nested sections are supported in the new structure code (strc-*)? Using the following to test, I don't get a section and subsection, but rather two sections. The log file notes a "missing \stopsection". \starttext \startsection{Section} \input tufte \startsection{Subsection} \input knuth \stopsection \stopsection \stoptext Am I missing a setup command somewhere in the new structure code that enables nested sections? Thanks, Kevin

3 2