%D \module
%D   [      file=t-tugboat
%D        version=$Id: s-tugboat.mkiv 246 2019-09-09 18:22:19Z karl $
%D          title=\CONTEXT\ Style File,
%D       subtitle=\TUGBOAT\ base style,
%D         author=Aditya Mahajan and others,
%D           date=\currentdate,
%D      copyright=Public Domain]

%D \filename {s-tug-02} was originally written by Hans Hagen and Steve Grathwohl,
%D and used grid typesetting. \filename {t-tugboat} was a major revision by Aditya
%D Mahajan, no grid. \filename {s-tugboat.mkiv} was another major revision by Taco
%D Hoekwater and Alan Braslau, now with pagecolumns. The latest version has been
%D adapted by Karl Berry.

%D HH: most articles are not that demanding, otherwise I'd probably redefine some
%D of the code below. So, for now things gets adapted when needed.

%D \section{Variables}
%D
%D We store the information about the article in variables.

\setvariables
  [tugboat]
  [type=article,
   columns=yes,
   grid=no]

\setvariables
  [tugboat] % overridden from ../tugboat.dates if present.
  [year=1900,
   volume=0,
   number=0,
   page=900]

\setvariables
  [tugboat]
  [title=ConTeXt style for TUGboat,
   subtitle=,
   keywords=,
   author=T. Boat,
   address=Pragmatically Advanced tugboats\\314 Pi Ave.\\8061GH Hasselt NL,
   email={pragboat@tug.org}]

%D \section{Font Setup}
%D
%D \TUGBOAT\ uses standard CM interline spacing.

\definebodyfontenvironment    [8pt] [interlinespace=9.5pt, big=9pt,   small=7pt]
\definebodyfontenvironment    [9pt] [interlinespace=11pt,  big=10pt,  small=8pt]
\definebodyfontenvironment   [10pt] [interlinespace=12pt,  big=12pt,  small=9pt]
\definebodyfontenvironment   [12pt] [interlinespace=14pt,  big=14.4pt,small=10pt]
\definebodyfontenvironment [14.4pt] [interlinespace=18pt,  big=14.4pt,small=12pt]

%D \TUGBOAT\ uses Computer Modern fonts, and \CONTEXT\ uses Latin Modern by default,
%D which is fine. So, we just specify the font size.

\setupbodyfont [10pt]

%D \TUGBOAT\ uses italic rather than slanted for emphasis.

\setupbodyfontenvironment
  [default]
  [em=italic]

%D Break after these chars in urls, not before.

\sethyphenatedurlafter /
\sethyphenatedurlafter .
\sethyphenatedurlafter _

%D \section{Layout Setup}
%D
%D The original layout used in the \LATEX\ style for \TUGBOAT\ uses low|-|level
%D \TEX\ syntax.

\setuppapersize
  [letter]
  [letter]

\setuplayout
  [topspace=3.8pc,% was 3.5pc
   header=1pc,
   headerdistance=1.5pc,
   height=middle,
   footerdistance=2pc,
   footer=1pc,
   bottomspace=3pc,
   %
   backspace=6pc,
   width=middle,
   cutspace=6pc,
   %
   margin=4pc,
   margindistance=1pc,
  ]

%D With pagecolumns, seemingly can't get single-column floats. (HH: not sure
%D what is meant but probably that it can't be done in the running text.)

\enablemode [pagecolumns]

%D KB: With columnsets, get unwanted gridsetting and blank last pages. HH: can
%D be solved but columnsets normally get set up beforehand (figures and such).

% \enablemode [columnsets]
% \startmode [columnsets]
%    \usemodule [newcolumnsets]
% \stopmode

\setuppagenumbering
  [location=,
   alternative=doublesided]

%D In \TUGBOAT\ different articles are glued together to form the final journal, so
%D we do not want each article to occupy an even number of pages. (Except this seems
%D to have no effect with pagecolumns.) HH: page columns are actually just single
%D columns but combined, so it supports side floats and such.

\installpagebreakhandler {last} {}

%D \section{Indentation}
%D
%D We use automatic indentation control, that is: no indentation after titles and
%D skips.

\setupindenting
  [20pt,yes]

%D We do not usually want indentation after lists.

\setupenumerations [indentnext=no]
\setupdescriptions [indentnext=no]

%D \section{Itemize}
%D
%D And these. We typeset itemizations ragged right.

\setupitemgroup
  [itemize]
  [indentnext=no,
   align=right]

%D We align them at the paragraph indentation and pack them by default.

\setupitemgroup
  [itemize]
  [each]
  [margin=1pc,
   width=1em,
   distance=0pt]

\setupitemgroup
  [itemize]
  [1]
  [packed]

%D \section{Section Headings}
%D
%D We follow the \TUGBOAT\ style for sections. I do not know if \type {align=right}
%D also disables hyphenation (HH: no that is independent). Let's wait and see on
%D this. The rest is straightforward. It took me a while to realize that in \LATEX\
%D \type {\@startsection} the absolute value of before skip (fourth argument) is
%D important and not the sign.

\setuphead
  [section,subsection,subsubsection,
   subject,subsubject,subsubsubject]
  [style=bold,
   align=right,
   before={\blank[8pt]},
   after={\blank[4pt]}]

%D \section{Spacing}
%D
%D We define a logical skip. This is equal to the \type {\topsep} in \LATEX, and
%D most environments should have this skip.

\defineblank
  [tugblank]
  [3pt]

%D HH: In fact, \type \setupblank[tugblank] would deal with most of the blanks
%D anyway, but let's not change this now.

\setupblank
  [3pt]

\setupitemize
  [1]
  [before={\blank[tugblank]},
   after={\blank[tugblank]},
   inbetween={\blank[tugblank]}]

\setuplines
  [before={\blank[tugblank]},
   after={\blank[tugblank]},
   inbetween={\blank[tugblank]}]

%D \section Typing %<<<1
%D
%D \TUGBOAT\ uses a smaller font size for verbatim typesetting. Not sure why
%D \type {nowhite} is used here.

\setuptyping
  [option=none,
   bodyfont=9pt,
   before={\blank[nowhite,tugblank]},
   after={\blank[back,nowhite,tugblank]}]

%D Do not colorize code.

\setuptyping[LUA][option=]
\setuptyping[TEX][option=]
\setuptyping[MP] [option=]

%D Tiny line numbers in numbered code (not text size)

\setuplinenumbering[style=\tfxx] % \infofont would be really tiny

%D \section{Figure captions}
%D
%D \TUGBOAT\ uses a smaller font size for captions, too; \type {\small} gives 8pt,
%D and we want 9pt, so we have to manually fix the baselines.

\setupcaptions
  [headstyle=\AcroFontBold,
   style={\AcroFont\advance\baselineskip by -1pt},
   align=right]

%D We like a colon after the caption label.

\let\floatcaptionsuffix=:

% Prefer floats in text.

\setupfloat[figure][align=middle,default=here]
\setupfloat[table] [align=middle,default=here]

%D \section{Footnotes}
%D
%D Not entirely a la \TUGBOAT:

% rule={\hrule width 5pc height .4pt depth 0pt\relax \kern \strutdepth}

\setupfootnotes
  [bodyfont=9pt]

\doif {\getvariable{tugboat}{columns}} {yes} {
    \setupfootnotes
      [location=columns]
}

\setupnotation
  [footnote]
  [location=joinedup,
   width=fit,
   headstyle=normal,
   distance=.5em]

%D \section{List}
%D
%D We define a standard description and enumeration environment.

\definedescription
  [description]
  [location=hanging,
   width=broad,
   before={\blank[tugblank]},
   after={\blank[tugblank]}]

\defineenumeration
  [enumeration]
  [location=hanging,
   width=broad,
   before={\blank[tugblank]},
   after={\blank[tugblank]}]

%D \section{References}
%D
%D More or less like plain BibTeX + ltugboat.

\setupbtx
  [default:list:numbering]
  [left={[},
   right={]}]

\setupbtxlist
  [default]
  [width=2em,
   style={\frenchspacing},
   align={raggedright,verystrict}]

%D Instead of color, we use weighted gray scales:

\setupcolors
  [conversion=always]

%D We define some logical skips

\defineblank [tugbefore]   [big]
\defineblank [tuginbetween][big]
\defineblank [tugafter]    [tugbefore]

%D Some real macros: <<<

\def\StartAbstract
  {\dostartbuffer[abstract][StartAbstract][StopAbstract]}

\startsetups tugboat:abstract:setup

  % \setuptolerance
  %   [horizontal, tolerant]

    \setupnarrower
      [before={\blank[.5\baselineskip]},
     % after={\blank[10pt plus4pt minus4pt]},
       after={\blank[10pt]},
       middle=4.875pc]

    \setupindenting
      [20pt,yes]

\stopsetups

%D Headers and footers.

\startsetups tugboat:banner:text:article

    {\sl TUGboat},\space
    Volume \getvariable{tugboat}{volume}\space
    (\getvariable{tugboat}{year}),\space
    No.\space\getvariable{tugboat}{number}

\stopsetups

\def\postissno{Proceedings of the \tubyear\ Annual Meeting}

\startsetups tugboat:banner:text:proceedings

    \setups{tugboat:banner:text:article}
    \thinspace---\thinspace
    \postissno

\stopsetups

\startsetups tugboat:banner:setup:article

  \setupheadertexts
    [\setups{tugboat:banner:text:article}]
    [\pagenumber]

    % no footer in regular articles

  \setupfootertexts
    [][\getvariable{tugboat}{author}]
    [\getvariable{tugboat}{title}][]

\stopsetups

%D article is default.

\setups{tugboat:banner:setup:article}

%D It all starts here:

\def\StartArticle{\setups{tugboat:\getvariable{tugboat}{type}:start}}
\def\StopArticle {\setups{tugboat:article:stop}}

\startsetups tugboat:grid:setup:settings:yes

    \setupblank
      [line]

    \defineblank [tugbefore]    [halfline]
    \defineblank [tuginbetween] [halfline]

\stopsetups

% \startsetups tugboat:grid:setup:no
%
%   \setupblank
%     [halfline]
%
%   \defineblank [medium]       [halfline]
%   \defineblank [tugbefore]    [halfline]
%   \defineblank [tuginbetween] [halfline]
%
% \stopsetups

\startsetups tugboat:introduction:article

  % \blank[halfline]

    \start
        \enforced\protected\def\\{\unskip\space\&\space\ignorespaces}
        \hbox{\indent\getvariable{tugboat}{author}}
        \par
    \stop

\stopsetups

\startsetups tugboat:article:start

    \starttext

    \setups{tugboat:columns:\getvariable{tugboat}{columns}}
    \setups{tugboat:banner:setup:\getvariable{tugboat}{type}}

    \doif {\getvariable{tugboat}{columns}} {yes} {
        \doifmodeelse {columnset}  {
            \startcolumnset
        } {
            \doifmodeelse {pagecolumns} {
                \startpagecolumns
            } {
                \startcolumns
            }
        }
    }

    \setcounter
      [userpage]
      [\getvariable{tugboat}{page}]

    \setups{tugboat:grid:setup:\getvariable{tugboat}{grid}}

    \snaptogrid \vbox \bgroup

        \forgetall
        \hrule height .6pt
        \blank[halfline]
        \start
            \enforced\let\\\par
            {\bf\getvariable{tugboat}{title}}
            \par
            \blank[halfline]
            \hskip20pt\getvariable{tugboat}{author}
        \stop

        \blank[line]

        \doiftext {\getbuffer[abstract]} {
            \enforced\let\\\endgraf
            \setups{tugboat:abstract:setup}
            \subject{Abstract}
            \getbuffer[abstract]
        }

    \egroup

\stopsetups

\startsetups tugboat:affiliation:article

    \blank[line]
    \begingroup
        \leftskip=5.7pc
        \noindent
        \llap{\sym{\diamond}\enspace}
        \getvariable{tugboat}{author}
        \\
        \getvariable{tugboat}{address}
        \\
        {\tt\getvariable{tugboat}{email}}
        \par
    \endgroup

\stopsetups

\startsetups tugboat:article:stop

    \setups{tugboat:affiliation:\getvariable{tugboat}{type}}

    % article joining in the issue.

    \ifx\writelastpage\undefined \else
        \begingroup
        \count0=\count1 % because context uses \count0
        \writelastpage{+1}%
        \endgroup
    \fi

    \doif {\getvariable{tugboat}{columns}} {yes} {
        \doifmodeelse {columnset}  {
            \stopcolumnset
        } {
            \doifmodeelse {pagecolumns} {
                \stoppagecolumns
            } {
                \stopcolumns
            }
        }
    }

  \stoptext

\stopsetups

%D Normal word spacing, please.

\setuptolerance
  [strict]

%D Hz is fine but hanging can hang quotes out too far.

\setupalign[hz]

%D Let's see boxes overfull by >.5pt

\overfullrule =  2pt % yes, I want to see
\hfuzz        = .5pt

%D One can use the following setups (in the article) to collect settings specific to
%D normal and|/|or multi column typesetting.

\startsetups tugboat:columns:yes

    \doifmodeelse {columnset} {
        \setuplayout
            [grid=no]
        \setupcolumnset
            [distance=1.5pc]
    } {
        \doifmodeelse {pagecolumns} {
            \setuplayout
                [grid=no]
            \setuppagecolumns
                [distance=1.5pc]
         } {
            \setupcolumns
                [distance=1.5pc]
        }
    }

\stopsetups

% \startsetups tugboat:columns:no
%
% \stopsetups

%D Logos, abbreviations: lots could be better here.

\font\mflogo=logo10 % hm, better use \definefont

%D HH: I'm pretty sure that this doesn't really work as it probably assumes some
%D specific math family setup and that's not how \MKIV\ works. The TB definition
%D doesn't scale with font changes and also doesn't adapt itself to style changes.

\newcount\TestCount
\newbox  \TestBox

\def\La
  {\dontleavehmode
   \begingroup
   \TestCount=\the\fam % no meaningful fams in text mode in ConTeXt
   \setbox\TestBox=\hbox{$\fam\TestCount\scriptstyle A$}%
   L\kern-.5\wd\TestBox\raise.42ex\box\TestBox
   \endgroup}

%D Probably this will do a better job:

% \def\La
%   {\dontleavehmode
%    \begingroup
%    \setbox\scratchbox\hbox{\tx A}% % or \txx
%    L\kern-.5\wd\scratchbox\raise.42ex\scratchbox
%    \endgroup}

\def\ALEPH     {Aleph}
\def\API       {\acro{API}}
\def\CCODE     {C}
\def\CD        {\acro{CD}}
\def\CMYK      {\acro{CMYK}}
\def\CONTEXT   {C\kern-.0333emon\-\kern-.0667em\TeX\kern-.0333emt}
\def\Cplusplus {C\plusplus}
\def\CPU       {\acro{CPU}}
\def\DVI       {\acro{DVI}}
\def\DVIPDFMX  {dvipdfmx}
\def\DVIPS     {dvips}
\def\ETEX      {$\varepsilon$-\kern-.125em\TeX}
\def\FTP       {\acro{FTP}}
\def\HTTP      {\acro{HTTP}}
\def\IO        {\acro{I/O}}
\def\ISO       {\acro{ISO}}
\def\KPSE      {\acro{KPSE}}
\def\KPSEWHICH {kpsewhich}
\def\LATEX     {\La\kern-.15em\TeX}
\def\LATEXE    {\LaTeX{}\kern.05em2$_{\textstyle\varepsilon}$}
\def\LINUX     {Linux}
\def\LPEG      {Lpeg}
\def\LUA       {Lua}
\def\LUAJIT    {Lua\acro{JIT}}
\def\LUATEX    {Lua\-\TeX}
\def\LUATOOLS  {lua\-tools}
\def\MATHML    {Math\acro{ML}}
\def\METAFUN   {Metafun}
\def\METAPOST  {MetaPost}
\def\METATEX   {Meta\TeX{}}
\def\MF        {{\mflogo META\-FONT}}
\def\MKII      {Mk\acro{II}}
\def\MKIV      {Mk\acro{IV}}
\def\MPLIB     {\acro{MP}lib}
\def\MPTOPDF   {mp\-to\-pdf}
\def\MSWINDOWS {Windows}
\def\MTXTOOLS  {mtx\-tools}
\def\NFSS      {\acro{NFSS}}
\def\OPENMATH  {Open\-Math}
\def\OPENTYPE  {Open\-Type}
\def\PASCAL    {Pascal}
\def\PDF       {\acro{PDF}}
\def\PDFTEX    {pdf\/\-\TeX}
\def\plusplus  {\lower.45ex\hbox{$^{++}$}}
\def\POSIX     {\acro{POSIX}}
\def\POSTSCRIPT{Post\-Script}
\def\PRAGMA    {Pragma \acro{ADE}}
\def\RGB       {\acro{RGB}}
\def\RUBY      {Ruby}
\def\SCITE     {Sci\acro{TE}}
\def\TDS       {\acro{TDS}}
\def\TEX       {\TeX}
\def\TEXBOOK   {{\sl The \TeX book}}
\def\TEXEXEC   {\TeX exec}
\def\TFM       {\acro{TFM}}
\def\TRUETYPE  {True\-Type}
\def\TYPEONE   {Type~1}
\def\UTF       {\acro{UTF}}
\def\WEBC      {Web2C}
\def\XETEX     {X\lower.5ex\hbox{\kern-.15em\mirror{E}}\kern-.1667em\TeX}
\def\XML       {\acro{XML}}
\def\XPATH     {\acro{XP}ath}
\def\XSLT      {\acro{XSLT}}
\def\XSLTPROC  {\acro{XSLTPROC}}
\def\ZIP       {zip}

\def\Dash      {\unskip\nobreak\thinspace---\thinspace\ignorespaces}
\def\slash     {/\penalty0 \hskip0pt \relax}

% \acro for one point size smaller. Don't know how to do this for real.

\definefont[AcroFont]     [Serif*default     sa .91]
\definefont[AcroFontBold] [SerifBold*default sa .91]
\definefont[AcroFontSmall][Serif*default     sa .80]

\unexpanded\def\acro     #1{{\AcroFont      #1}} % could be a style definition
\unexpanded\def\acrobf   #1{{\AcroFontBold  #1}} % could be a style definition
\unexpanded\def\acrosmall#1{{\AcroFontSmall #1}} % could be a style definition

%D This is English; disallow x- or -xx breaks. (These are already the defaults
%D but let's keep this anyway.)

\setuplanguage
  [en]
  [lefthyphenmin=2,
   righthyphenmin=3]

% \lefthyphenmin  = 2
% \righthyphenmin = 3

\mainlanguage
  [en]

\hyphenation {
    Post-Script
    data-base
    data-bases
}

%D A hack to read \type {tugboat.dates} settings.

\doifelsefileexists {../tugboat.dates} {

    \newif   \ifPrelimDraft
    \newcount\issueseqno

    \def\vol    #1, #2.{\gdef\tubvol {#1}%
                        \gdef\tubnum {#2}}
    \def\issyear    #1.{\gdef\tubyear{#1}}

    \input ../tugboat.dates

    \setevariables
      [tugboat]
      [year=\tubyear,
       volume=\tubvol,
       number=\tubnum,
       page=\the\count0]

} {
    % nothing
}

%D Good bye.

\continueifinputfile{s-tugboat.mkiv}

% \showgrid

\starttext

\StartArticle

\StartAbstract
    \samplefile{bryson}
\StopAbstract

\dorecurse{30}{\input ward \endgraf} \page

\startitemize
    \startitem \samplefile{ward} \stopitem
    \startitem \samplefile{ward} \stopitem
\stopitemize

\StopArticle

\setvariables[tugboat][columns=yes]

\StartArticle

\StartAbstract
    \samplefile{bryson}
\StopAbstract

\dorecurse {30} {
    \samplefile{ward}\endgraf
} \page

\StopArticle

\stoptext

% >>>
