2018-09-30 19:42:00

1 files changed, 714 insertions, 0 deletions

diff --git a/tex/context/modules/mkiv/s-cgj.mkiv b/tex/context/modules/mkiv/s-cgj.mkiv
new file mode 100644
index 000000000..2950a799d
--- /dev/null
+++ b/tex/context/modules/mkiv/s-cgj.mkiv
@@ -0,0 +1,714 @@
+%D \module
+%D   [file=s-cgj.mkiv,
+%D    version=2018.09.28,
+%D    title=Context group style file,
+%D    subtitle=CG-journal base style,
+%D    author={Adrian Egger, W. Egger, Taco Hoekwater},
+%D    date=\currentdate,
+%D    copyright={Context Group}]
+
+%D \type {\enablemode[draft]} has to come before loading the style. Maybe some
+%D day I'll make something more official and then some \type {everydraft} or so.
+
+% Fixme and todo ...
+
+\startmodule[cgj]
+
+\definecolor[NoteColor][g=1,r=.25,b=.25]
+\definecolor[WarnColor][r=1,g=.25,b=.25]
+
+\unexpanded\def\todo#1%
+  {\startframedtext[background=color,backgroundcolor=NoteColor]
+     \dontleavehmode\start\bf TODO:\stop~~#1\par
+   \stopframedtext}
+
+\unexpanded\def\fixme#1%
+  {\startframedtext[background=color,backgroundcolor=WarnColor]
+     \dontleavehmode\start\bf FIXME:\stop~~#1\par
+   \stopframedtext }
+
+%D Base set of variables. The actual values are set in the file
+%D CG-journal.
+
+\setvariables
+  [CG-Journal]
+  [Title={Journal},
+   RunningTitle={Journal},
+   SubTitle={From the base set of variables},
+   Version=1.0,
+   NOFColumns=2]
+
+\startmode[onecolumn,fullwidth]
+    \setvariables
+      [CG-Journal]
+      [NOFColumns=1]
+\stopmode
+
+% Fonts setup.
+
+\usetypescriptfile[plex]
+
+\starttypescript [cgj]
+    \definetypeface [cgj] [rm] [serif][ibmplex-light] [default]
+    \definetypeface [cgj] [ss] [sans] [ibmplex-light] [default]
+    \definetypeface [cgj] [mm] [math] [palatino]      [default]
+    \definetypeface [cgj] [tt] [mono] [ibmplex]       [default][rscale=0.9]
+\stoptypescript
+
+\starttypescript [cgj-light]
+    \definetypeface [cgj-light] [rm] [serif][ibmplex-extralight] [default]
+    \definetypeface [cgj-light] [ss] [sans] [ibmplex-extralight] [default]
+    \definetypeface [cgj-light] [mm] [math] [palatino]           [default]
+    \definetypeface [cgj-light] [tt] [mono] [ibmplex-extralight] [default][rscale=0.9]
+\stoptypescript
+
+\starttypescript [cgj-extralight]
+    \definetypeface [cgj-extralight] [rm] [serif][ibmplex-thin] [default]
+    \definetypeface [cgj-extralight] [ss] [sans] [ibmplex-thin] [default]
+    \definetypeface [cgj-extralight] [mm] [math] [palatino]     [default]
+    \definetypeface [cgj-extralight] [tt] [mono] [ibmplex-thin] [default][rscale=0.9]
+\stoptypescript
+
+\usebodyfont
+  [cgj-light,cgj-extralight]
+
+\setupbodyfont
+  [cgj,ss,10pt]
+
+\definebodyfontenvironment[10pt][interlinespace=13pt]
+\definebodyfontenvironment[12pt][interlinespace=16pt]
+\definebodyfontenvironment[16pt][interlinespace=20pt]
+
+\setupinterlinespace
+  [line=13pt]
+
+\let\sl\it
+
+%D Path to the logos
+
+\setupexternalfigures
+  [directory=./Logos,
+   location={global,local,default}]
+
+%D Logos: black logo only.
+
+\useexternalfigure
+  [Logo]
+  [cg_corp_logo_loop_black_cmyk]
+  [width=30mm,
+   height=19mm]
+
+%D Black logo with text
+
+\useexternalfigure
+  [LogoText]
+  [cg_corp_logo_text_black_cmyk]
+  [width=50mm,
+   height=35.2mm]
+
+%D Colors
+
+\definecolor[CGlightblue][c=1,m=.15,y=0,k=0]
+\definecolor[CGdeepblue] [c=1,m=.8,y=0,k=.3]
+\definecolor[CGgray]     [c=0,m=0,y=0,k=.1]
+
+%D Article styles
+
+\definealternativestyle
+   [Articleheading]
+   [{\switchtobodyfont[16pt,ss]\bf}]
+
+\definealternativestyle
+   [Articlesubheading]
+   [{\switchtobodyfont[16pt,ss]\tf}]
+
+\definealternativestyle
+   [Authorname]
+   [{\switchtobodyfont[12pt,ss]\it}]
+
+\definealternativestyle
+   [Sectionheading]
+   [{\switchtobodyfont[12pt,ss]\bf\setupinterlinespace[line=12pt]}]
+
+\definealternativestyle
+   [Subsectionheading]
+   [{\switchtobodyfont[cgj-light,10pt,ss]\bf\setupinterlinespace[line=10pt]}]
+
+\definealternativestyle
+   [IntroCopy]
+   [{\switchtobodyfont[12pt,ss]\tf}]
+
+\definealternativestyle
+   [PagenumberStyle]
+   [{\switchtobodyfont[cgj-light,10pt,ss]\bf}]
+
+%D Headerstyles:Breadcrumbs
+
+\definealternativestyle
+   [BreadcrumbMd]
+   [{\switchtobodyfont[cgj-light,10pt,ss]\bf}]
+
+\definealternativestyle
+   [BreadcrumbRg]
+   [{\switchtobodyfont[cgj,10pt,ss]}]
+
+\definealternativestyle
+   [BreadcrumbLt]
+   [{\switchtobodyfont[10pt,ss]\tf}]
+
+\definealternativestyle
+   [BreadcrumbTh]
+   [{\switchtobodyfont[cgj-light,10pt,ss]\tf}]
+
+%D Captionstyles
+
+\definealternativestyle
+   [Captionheading]
+   [{\switchtobodyfont[8pt,ss]\bf\setupinterlinespace[line=8pt]}]
+
+\definealternativestyle
+   [Captiontext]
+   [{\switchtobodyfont[8pt,ss]\tf\setupinterlinespace[line=8pt]}]
+
+%D Article signature
+
+\definealternativestyle
+   [Signaturestyle]
+   [{\switchtobodyfont[10pt,ss]\it}]
+
+%D Article footnotes
+
+\definealternativestyle
+   [Articlefootnotes]
+   [{\switchtobodyfont[8pt,ss]\tf}]
+
+%D Index and TOC styles
+
+\definealternativestyle
+   [IndexContents]
+   [{\switchtobodyfont[16pt,ss]\bf\setupinterlinespace[line=18pt]}]
+
+\definealternativestyle
+   [IndexArticleTitle]
+   [{\switchtobodyfont[12pt,ss]\tf\setupinterlinespace[line=20pt]}]
+
+\definealternativestyle
+   [IndexNumber]
+   [{\switchtobodyfont[12pt,ss]\bf\setupinterlinespace[line=20pt]}]
+
+\definealternativestyle
+   [IndexAuthor]
+   [{\switchtobodyfont[12pt,ss]\it\setupinterlinespace[line=20pt]}]
+
+%D Math: still missing.
+
+%D Verbatim
+
+\definealternativestyle
+   [DisplayMonospaced]
+   [\tt]
+
+\definealternativestyle
+   [DisplayMonospacedX]
+   [{\switchtobodyfont[8pt,tt]}]
+
+\definealternativestyle
+   [DisplayMonospacedS]
+   [{\switchtobodyfont[9pt,tt]\setupinterlinespace[line=10pt]}]
+
+%D Blank adjustment
+
+\defineblank[CGblank]       [6pt]
+\defineblank[BigCGblank]   [24pt]
+\defineblank[MediumCGblank][12pt]
+
+%D Paper definition
+
+\definepapersize
+  [Journal]
+  [width=210mm,
+   height=266mm]
+
+\setuppapersize
+  [Journal]
+  [Journal]
+
+%D General layout
+
+\definelayout
+  [General]
+  [topspace=18mm,
+   backspace=28mm,
+   header=5mm,
+   headerdistance=7mm,
+   footer=5mm,
+   footerdistance=5mm,
+   width=157mm,
+   height=224mm,
+   marking=on]
+
+\definelayout
+  [Content]
+  [topspace=18mm,
+   backspace=28mm,
+   header=5mm,
+   headerdistance=7mm,
+   footer=0mm,
+   footerdistance=0mm,
+   width=157mm,
+   height=224mm,
+   margindistance=4mm,
+   rightmargin=21mm,
+   leftmargin=21mm,
+   marking=on]
+
+\definelayout
+  [Imprint]
+  [topspace=18mm,
+   backspace=28mm,
+   header=5mm,
+   headerdistance=7mm,
+   footer=5mm,
+   footerdistance=5mm,
+   width=107mm,
+   height=224mm,
+   margindistance=4mm,
+   rightmargin=45.3mm,
+   leftmargin=21mm,
+   marking=on]
+
+\definelayout
+  [SingleColumn]
+  [topspace=18mm,
+   backspace=55mm,
+   header=5mm,
+   headerdistance=7mm,
+   footer=5mm,
+   footerdistance=5mm,
+   width=130mm,
+   height=224mm,
+   margindistance=4mm,
+   leftmargin=48mm,
+   rightmargin=21mm,
+   marking=on]
+
+%D Pagenumbering: Pagenumber is set in the footer
+
+\setuppagenumbering
+  [location=,
+   alternative=doublesided]
+
+%D Head-definitions
+
+\setuphead
+  [title]
+  [style=Articleheading,
+   after={\blank[BigCGblank]},
+   page=yes]
+
+\setuphead
+  [part]
+  [placehead=no,
+   after=,
+   before=,
+   page=no,
+   numbercommand=,
+   expansion=yes]
+
+\setuphead
+  [section]
+  [style=Sectionheading,
+   before={\blank[BigCGblank]},
+   after={\blank[CGblank]},
+   sectionstopper={.},
+   distance=4pt,
+   align={flushleft,nothyphenated},
+   resetnumber=yes,
+   continue=yes]
+
+\setuphead
+  [subsection]
+  [style=Subsectionheading,
+   before={\blank[CGblank]},
+   after={\blank[CGblank]},
+   sectionstopper=,
+   distance=4pt,
+   align={flushleft,nothyphenated},
+   resetnumber=yes,
+   continue=yes]
+
+\setuphead
+  [subject]
+  [style=Sectionheading,
+   before={\blank[BigCGblank]},
+   after=]
+
+\setuphead
+  [subsubject]
+  [style=Subsectionheading,
+   before={\blank[CGblank]},
+   after={\blank[CGblank]},
+   sectionstopper=]
+
+%D A special head for the footnote section in multicolumn mode excuse the low-level
+%D rule, I wanted it to look like the start of footnotes in single column mode. (TH)
+
+\definehead
+  [footnotesubject]
+  [subject]
+
+\setuphead
+  [footnotesubject]
+  [style=Sectionheading,
+   before={\kern -13pt},
+   after={\smash{\lower 13pt\hbox{\vrule width 2.5cm height 1pt depth 0pt}}}]
+
+
+%D The setup of the columns is done at the moment columns are started (see end
+%D of file)
+
+%D Index/TOC page setups
+
+\definelistalternative
+  [CGJ:Index]
+  [renderingsetup=CGJ:Indexheading]
+
+\definelistalternative
+  [CGJ:Index:Chapter]
+  [renderingsetup=CGJ:Indexheading:Chapter]
+
+\startsetups[CGJ:Indexheading:Chapter]
+    \listparameter{before}
+    \vbox \listboxproperties{all} {
+        \forgetall
+        \dontleavehmode
+        \listrenderingsynchronize
+        \hbox to 15mm{
+        \bgroup
+            \useliststyleandcolor{numberstyle}{numbercolor}
+            \currentlistentrypagenumber
+        \egroup}
+        \bgroup
+            \useliststyleandcolor{textstyle}{textcolor}
+            \smash{\currentlistentrytitle}%
+        \egroup
+    }
+    \par
+    \listparameter{after}
+\stopsetups
+
+\startsetups[CGJ:Indexheading]
+   \listparameter{before}
+   \vbox \listboxproperties{all} {
+       \forgetall
+       \dontleavehmode
+       \listrenderingsynchronize
+       \hbox to 15mm{
+       \bgroup
+           \useliststyleandcolor{numberstyle}{numbercolor}
+           \currentlistentrypagenumber
+       \egroup}
+       \bgroup
+           \useliststyleandcolor{textstyle}{textcolor}
+           \currentlistentrytitle
+       \egroup
+       \par
+   }
+   \par
+   \listparameter{after}
+\stopsetups
+
+\setuplist
+  [part]
+  [before={\blank[CGblank]},
+   after=,
+   style=IndexContents,
+   numberstyle=\IndexNumber,
+   textstyle=\IndexArticleTitle,
+   prefix=no,
+   alternative=CGJ:Index:Chapter]
+
+%D Captions
+
+\setupcaptions
+  [suffix={.},
+   headstyle=\Captionheading,
+   style=\Captiontext,
+   distance=6pt]
+
+\setupcaption[figure][way=bypart]
+\setupcaption[table] [way=bypart]
+
+%D Datacollection: article parameters (other fields and defaults)
+
+\unexpanded\def\CGJBibData[#1]%
+  {\getparameters
+     [CGJ]
+     [SubTitle=,
+      RunningAuthor=,
+      RunningTitle=Example,
+      Email=,
+      Address=,
+      Page=1,
+      Title={My Article},
+      Author={Example Author},
+      Period=,
+      Number=,
+      Year=,
+      TocAuthor=,
+      TocTitle=,
+      #1]%
+   \doifnothing
+      {\CGJRunningTitle}
+      {\let\CGJRunningTitle\CGJTitle}%
+   \doifnothing
+      {\CGJRunningAuthor}
+      {\let\CGJRunningAuthor\CGJAuthor}%
+   \doifnothing
+      {\CGJTocAuthor}
+      {\let\CGJTocAuthor\CGJAuthor}%
+   \doifnothing
+      {\CGJTocTitle}
+      {\let\CGJTocTitle\CGJTitle}%
+   \setvariables
+     [CGJToc]
+     [Author=\CGJTocAuthor,
+      Title=\CGJTocTitle]% for TOC
+  }
+
+\unexpanded\def\dostartArticle[#1]
+  {\CGJBibData[#1]
+   \doifelse
+     {\getvariable{CG-Journal}{NOFColumns}}
+     {1}
+     {\doifmodeelse{fullwidth}
+        {\setuplayout[General]}
+        {\setuplayout[SingleColumn]}}
+     {\setupnotes[location=none]
+      \setuplayout[General]}%
+   \bgroup
+     {\switchtobodyfont[16pt]\Articleheading\CGJTitle\par}
+     {\doifsomething{\CGJSubTitle}
+        {\switchtobodyfont[16pt]\Articlesubheading\CGJSubTitle\par}}
+     {\doifsomething{\CGJAuthor}
+        {\switchtobodyfont[12pt]\Authorname \CGJAuthor}\par}
+     \part
+       {\getvariable{CGJToc}{Title}%
+        \doifsomething{\getvariable{CGJToc}{Author}}{ \emdash\ }%
+        \IndexAuthor\getvariable{CGJToc}{Author}}
+     \godown[13pt]%
+   \egroup
+   \par
+   \hyphenpenalty1000\relax}
+
+\unexpanded\def\startArticle
+  {\dosingleempty\dostartArticle}
+
+\def\signArticle
+  {}
+
+%D In multicolumn mode, footnotes come are at the end of the article:
+
+\startsetups article:after
+    \startfootnotesubject[title=]
+        \placefootnotes
+    \stopfootnotesubject
+\stopsetups
+
+\unexpanded\def\stopArticle
+  {\doifelse{\getvariable{CG-Journal}{NOFColumns}}{1}
+     {\par
+      \signArticle}
+     {\setups{article:after}
+      \par
+      \signArticle
+      \stoppagecolumns}
+   \page}
+
+\unexpanded\def\startAbstract
+  {\bgroup
+   \switchtobodyfont[12pt]
+   \IntroCopy}
+
+\unexpanded\def\stopAbstract
+  {\par
+   \egroup
+   \finishAbstract}
+
+\unexpanded\def\finishAbstract
+  {\doifelse {\getvariable{CG-Journal}{NOFColumns}} {1}
+     {\blank[BigCGblank]}
+     {\vbox{\blank[BigCGblank]}%
+      \par
+      \startpagecolumns[balance=yes,distance=12pt,page=no,n=\getvariable{CG-Journal}{NOFColumns}]
+      \setupitemgroup[itemize][packed]
+      \setuplayout[grid=yes]} % grid mode only in columns
+  }
+
+
+\unexpanded\def\noAbstract
+  {\kern -24pt
+   \finishAbstract}
+
+%D Headertexts
+
+\startsetups[Header:texts]
+    \setupheadertexts
+        [] [{{\BreadcrumbLt\CGJRunningTitle}{\BreadcrumbTh\doifsomething{\CGJRunningAuthor}{\ > }\CGJRunningAuthor}}] %odd
+        [{\BreadcrumbMd contextgroup}{\BreadcrumbRg\ > \getvariable{CG-Journal}{RunningTitle}}] [] %even
+\stopsetups
+
+%D Footertexts
+
+\startsetups[Footer:texts]
+  \setupfootertexts
+    [] [\PagenumberStyle\pagenumber]
+    [\PagenumberStyle\pagenumber] []
+\stopsetups
+
+%D Setup tolerance, stretch.
+
+\setuptolerance
+  [tolerant,stretch]
+
+%D Setting up footnotes.
+
+\setupnotation
+  [footnote]
+  [way=bypart,
+  rule=on]
+
+%D Adjustments to the container containing the footnotes.
+
+\setupnote
+  [footnote]
+  [frame=off,
+   topframe=off ,
+   framecolor=black,
+   background=,
+   rulecolor=black,    %% the line above the inserts
+   rulethickness=1pt,
+   next={ },
+   split=verystrict,
+   scope=page,
+   style=Articlefootnotes]
+
+\doifmodeelse {draft} {\setupnote[footnote][frame=on]}
+
+% Setup typing.
+
+\setupnarrower
+  [middle=3mm,
+   left=5mm]
+
+\definetextbackground
+  [verbatim]
+  [frame=off,
+   background=color,
+   backgroundcolor=CGgray,
+   leftoffset=2mm,rightoffset=2mm,
+   topoffset=2mm,bottomoffset=2mm,
+   location=paragraph,
+   align=flushleft]
+
+\doifmodeelse {draft} {\definetextbackground[verbatim][frame=on]}
+
+\definetextbackground
+  [verbatimitem]
+  [verbatim]
+
+\setuptextbackground
+  [verbatimitem]
+  [before=,
+   after=,
+   width=\the\dimexpr\hsize-10.5mm\relax]
+
+\startsetups typing:before
+    \blank[MediumCGblank]
+    \starttextbackground[verbatim]
+\stopsetups
+
+\startsetups typing:before:small
+    \blank[MediumCGblank]
+    \starttextbackground[verbatim]
+\stopsetups
+
+\startsetups typing:after
+    \stoptextbackground
+    \blank[MediumCGblank]
+\stopsetups
+
+\startsetups typing:before:item
+    \starttextbackground[verbatimitem]
+\stopsetups
+
+\startsetups typing:after:item
+    \stoptextbackground
+\stopsetups
+
+\setuptyping
+  [typing]
+  [style=DisplayMonospaced,
+   before=\setups{typing:before},
+   after=\setups{typing:after}]
+
+\setuptype
+  [style=DisplayMonospaced]
+
+%D When verbatim becomes too large:
+
+\definetyping
+  [smalltyping]
+
+\setuptyping
+  [smalltyping]
+  [style=DisplayMonospacedX,
+   before=\setups{typing:before:small},
+   after=\setups{typing:after}]
+
+\unexpanded\def\smalltypefile{\typefile[smalltyping][]}
+
+%D Bullet lists.
+
+\setupitemgroup
+  [itemize]
+  [each]
+  []
+  [symbol=1,
+   indentnext=no,
+   align=right,
+   before={\blank[MediumCGblank]\startnarrower[left]},
+   after={\stopnarrower\blank[MediumCGblank]},
+   inbetween={\blank[CGblank]}]
+
+\definedescription
+  [description]
+  [location=hanging,
+   width=broad,
+   before={\blank},
+   after={\blank}]
+
+\setupformula
+  [align=flushleft,
+   margin=5mm]
+
+\setupquotation
+  [before={\blank[CGblank]\switchtobodyfont[10pt]},
+   after={\blank[CGblank]}]
+
+\setupwhitespace
+  [medium]
+
+\usemodule[abr-02,abr-03,abr-04]
+
+\unexpanded\def\Href#1{\underbar{\hyphenatedurl{#1}}}
+\unexpanded\def\CG    {\ConTeXt\ group}
+
+\setnewconstant\kindofpagetextareas\plusone % partial page. HH: low level, no high level switch (yet)
+
+%D There is a draft mode, which enables all frames:
+
+\doifmode {draft} {\showframe}
+
+\stopmodule
+