master
parent
04cc505be1
commit
ae130bf35f
GPG Key ID:
2C5FD5035250423D
@ -0,0 +1,204 @@ |
||||
% tabto.sty |
||||
% |
||||
% version 1.3 (Mar 2013) |
||||
% |
||||
% Tabbing to fixed positions in a paragraph. |
||||
% |
||||
% Copyright 2006,2009,2012,2013 by |
||||
% Donald Arseneau, Vancouver, Canada (asnd@triumf.ca) |
||||
% Permission to use, distribute and modify this software is granted |
||||
% under the conditions of the LaTeX Project Public License, either |
||||
% version 1.3 or (at your option) any later version. The license is |
||||
% found at http://www.latex-project.org/lppl.txt, and is part of all |
||||
% recent distributions of LaTeX. |
||||
% |
||||
% This work has the LPPL maintenance status `maintained' (by author). |
||||
% |
||||
% Two new text positioning commands are defined: \tabto and \tab. |
||||
% |
||||
% \tabto{<length>} |
||||
% Tab to a position relative to the left margin in a paragraph (any |
||||
% indentation due to a list or \leftskip is part of the `margin' in |
||||
% this context). If the text on the line already goes past the desired |
||||
% position, the tab starts a new line and moves to the requested |
||||
% horizontal position. |
||||
% |
||||
% \tabto*{<length>} |
||||
% Similar to \tabto, except it will perform backspacing, and over- |
||||
% print previous text on the line whenever that text is already |
||||
% longer than the specified length (i.e., no linebreak is produced). |
||||
% Line-breaks are suppressed immediately after \tabto or \tabto*. |
||||
% |
||||
% The length register "\CurrentLineWidth" will report the width |
||||
% of the existing text on the line, and it may be used in the |
||||
% <length> argument (using calc.sty, for example). Also, there |
||||
% is "\TabPrevPos" which gives the "\CurrentLineWidth" from the |
||||
% previous tab command, and can be used to return to that position |
||||
% if no line breaks have occurred in between. |
||||
% |
||||
% \tab |
||||
% Tab to the next tab-stop chosen from a list of tab positions, in |
||||
% the traditional style of typewriters. A \tab will always move |
||||
% to the next tab stop (or the next line), even if it is already |
||||
% exactly at a tab stop. Thus, "\tab" at the beginning of a line, |
||||
% or "\tab\tab" elsewhere skips a position. A linebreak is permitted |
||||
% immediately following a \tab, in case the ensuing text does not |
||||
% fit well in the remaining space. |
||||
% |
||||
% If you do not want to skip positions, use "\tabto{\NextTabStop}" |
||||
% instead of "\tab". This is particularly useful when you want to |
||||
% use \tab in some other command, but do not want to skip a column |
||||
% for the first item. |
||||
% |
||||
% The tab-stop positions are declared using either \TabPositions |
||||
% or \NumTabs: |
||||
% |
||||
% \TabPositions{<length>, <length>,...<length>} |
||||
% Declares the tab stops as a comma-separated list of positions |
||||
% relative to the left margin. A tab-stop at 0pt is implicit, and |
||||
% need not be listed. |
||||
% |
||||
% \NumTabs{<number>} |
||||
% Declares a list of <number> equally-spaced tabs, starting at the |
||||
% left margin and spanning \linewidth. For example \NumTabs{2} |
||||
% declares tab-stops at 0pt and 0.5\linewidth, the same as |
||||
% \TabPositions{0pt, 0.5\linewidth} or \TabPositions{0.5\linewidth} |
||||
% |
||||
% After these declarations, the list of tab positions is saved in |
||||
% \TabStopList, and the next tab position, relative to the current |
||||
% position, is given by \NextTabStop. You do not normally need |
||||
% to access them, but they are available. |
||||
% |
||||
% Problems: |
||||
% |
||||
% Tall objects after a tab stop may overlap the line above, rather |
||||
% than forcing a greater separation between lines. |
||||
|
||||
\ProvidesPackage{tabto}[2013/03/25 \space v 1.3 \space |
||||
Another tabbing mechanism]\relax |
||||
|
||||
\newdimen\CurrentLineWidth |
||||
\let\TabPrevPos\z@ |
||||
|
||||
\newcommand\tabto[1]{% |
||||
\leavevmode |
||||
\begingroup |
||||
\def\@tempa{*}\def\@tempb{#1}% |
||||
\ifx\@tempa\@tempb % \tab* |
||||
\endgroup |
||||
\TTo@overlaptrue % ... set a flag and re-issue \tabto to get argument |
||||
\expandafter\tabto |
||||
\else |
||||
\ifinner % in a \hbox, so ignore |
||||
\else % unrestricted horizontal mode |
||||
\null% \predisplaysize will tell the position of this box (must be box) |
||||
\parfillskip\fill |
||||
\everydisplay{}\everymath{}% |
||||
\predisplaypenalty\@M \postdisplaypenalty\@M |
||||
$$% math display so we can test \predisplaysize |
||||
\lineskiplimit=-999pt % so we get pure \baselineskip |
||||
\abovedisplayskip=-\baselineskip \abovedisplayshortskip=-\baselineskip |
||||
\belowdisplayskip\z@skip \belowdisplayshortskip\z@skip |
||||
\halign{##\cr\noalign{% |
||||
% get the width of the line above |
||||
\ifdim\predisplaysize=\maxdimen %\message{Mixed R and L, so say the line is full. }% |
||||
\CurrentLineWidth\linewidth |
||||
\else |
||||
\ifdim\predisplaysize=-\maxdimen |
||||
% \message{Not in a paragraph, so call the line empty. }% |
||||
\CurrentLineWidth\z@ |
||||
\else |
||||
\ifnum\TTo@Direction<\z@ |
||||
\CurrentLineWidth\linewidth \advance\CurrentLineWidth\predisplaysize |
||||
\else |
||||
\CurrentLineWidth\predisplaysize |
||||
\fi |
||||
% Correct the 2em offset |
||||
\advance\CurrentLineWidth -2em |
||||
\advance\CurrentLineWidth -\displayindent |
||||
\advance\CurrentLineWidth -\leftskip |
||||
\fi\fi |
||||
\ifdim\CurrentLineWidth<\z@ \CurrentLineWidth\z@\fi |
||||
% Enshrine the tab-to position; #1 might reference \CurrentLineWidth |
||||
\@tempdimb=#1\relax |
||||
%\message{*** Tab to \the\@tempdimb, previous width is \the\CurrentLineWidth. ***}% |
||||
% Save width for possible return use |
||||
\xdef\TabPrevPos{\the\CurrentLineWidth}% |
||||
% Build the action to perform |
||||
\protected@xdef\TTo@action{% |
||||
\vrule\@width\z@\@depth\the\prevdepth |
||||
\ifdim\CurrentLineWidth>\@tempdimb |
||||
\protect\hskip\the\CurrentLineWidth\hskip5pt\relax |
||||
\else |
||||
\protect\nobreak |
||||
\protect\hskip\the\@tempdimb\relax |
||||
\fi |
||||
}% |
||||
%\message{\string\TTo@action: \meaning \TTo@action. }% |
||||
% get back to the baseline, regardless of its depth. |
||||
\vskip-\prevdepth |
||||
\prevdepth-99\p@ |
||||
\vskip\prevdepth |
||||
}}% |
||||
$$ |
||||
% Don't count the display as lines in the paragraph |
||||
\count@\prevgraf \advance\count@-4 \prevgraf\count@ |
||||
\TTo@action |
||||
%% \penalty\@m % to allow a penalized line break |
||||
\fi |
||||
\endgroup |
||||
\TTo@overlapfalse |
||||
\ignorespaces |
||||
\fi |
||||
} |
||||
|
||||
% \tab -- to the next position |
||||
% \hskip so \tab\tab moves two positions |
||||
% Allow a (penalized but flexible) line-break right after the tab. |
||||
% |
||||
\newcommand\tab{\leavevmode\hskip2sp\tabto{\NextTabStop}% |
||||
\nobreak\hskip\z@\@plus 30\p@\penalty4000\hskip\z@\@plus-30\p@\relax} |
||||
|
||||
|
||||
% Expandable macro to select the next tab position from the list |
||||
|
||||
\newcommand\NextTabStop{% |
||||
\expandafter \TTo@nexttabstop \TabStopList,\maxdimen,>% |
||||
} |
||||
|
||||
\def\TTo@nexttabstop #1,{% |
||||
\ifdim#1<\CurrentLineWidth |
||||
\expandafter\TTo@nexttabstop |
||||
\else |
||||
\ifdim#1<0.9999\linewidth#1\else\z@\fi |
||||
\expandafter\strip@prefix |
||||
\fi |
||||
} |
||||
\def\TTo@foundtabstop#1>{} |
||||
|
||||
\newcommand\TabPositions[1]{\def\TabStopList{\z@,#1}} |
||||
|
||||
\newcommand\NumTabs[1]{% |
||||
\def\TabStopList{}% |
||||
\@tempdimb\linewidth |
||||
\divide\@tempdimb by#1\relax |
||||
\advance\@tempdimb 1sp % counteract rounding-down by \divide |
||||
\CurrentLineWidth\z@ |
||||
\@whiledim\CurrentLineWidth<\linewidth\do {% |
||||
\edef\TabStopList{\TabStopList\the\CurrentLineWidth,}% |
||||
\advance\CurrentLineWidth\@tempdimb |
||||
}% |
||||
\edef\TabStopList{\TabStopList\linewidth}% |
||||
} |
||||
|
||||
% default setting of tab positions: |
||||
\TabPositions{\parindent,.5\linewidth} |
||||
|
||||
\newif\ifTTo@overlap \TTo@overlapfalse |
||||
|
||||
\@ifundefined{predisplaydirection}{ |
||||
\let\TTo@Direction\predisplaysize |
||||
\let\predisplaydirection\@undefined |
||||
}{ |
||||
\let\TTo@Direction\predisplaydirection |
||||
} |
||||
Binary file not shown.
Loading…
Reference in new issue