\startenvironment languages-environment

\usemodule[visual]
\usemodule[simulate]

\dontcomplain

\definepapersize
  [book]
  [width=18cm,
   height=24cm]

\setuppapersize
  [book]

\startmode[oversized]

    \setuppapersize
      [book]
      [oversized]

    \setuplayout
      [marking=on]

\stopmode

\setuplayout
  [location=middle,
   topspace=1.5cm,
   bottomspace=2cm,
   backspace=2cm,
   cutspace=2cm,
   header=0cm,
   footer=0cm,
   margindistance=.25cm,
   margin=1.25cm,
   width=middle,
   height=middle]

\setuplayout
  [style=\ss]

\usetypescript
  [dejavu-condensed]

\setupbodyfont
  [ipaex,9pt]

\setupbodyfont
  [dejavu,9pt]

\definetyping
  [narrowtyping]
  [typing]
  [bodyfont=dejavu-condensed]

% This is way too ugly for a manual:
%
% \setuptyping
%   [indentnext=no]
%
% \setupindenting
%   [medium,yes]

\setupwhitespace
  [big]

\defineoverlay
  [page]
  [\useMPgraphic{page}]

\setupbackgrounds
  [page]
  [background=page]

\setuphead
  [chapter,section,subsection]
  [color=\namedstructureuservariable{chapter}{color}]

\setuphead
  [chapter]
  [style=\bfc]

\setuphead
  [section]
  [style=\bfb]

\setuphead
  [subsection]
  [style=\bf,
   before=\blank,
   after=\blank]

\startsetups document:chapter:inside
    \definecolor[maincolor][1.0(\namedheadparameter{chapter}{color})] % this expands the color
    \definecolor[halfcolor][0.5(maincolor,white)]
\stopsetups

\setuphead
  [chapter]
  [insidesection=\setup{document:chapter:inside}]

\setuppagenumbering
  [alternative=doublesided,
   location=]

\setuplist
  [aligntitle=yes]

\setuplist
  [chapter]
  [pagenumber=no,
   style=bold,
   before={\blank\startcolor[\structurelistuservariable{color}]},
   after={\placelist[section]\stopcolor}]

\setuplist
  [chapter,section]
  [width=3em]

\startuseMPgraphic{page}

    StartPage ;

        linecap := butt ;

        if OnRightPage :

            path p ; p := (
                urcorner Page shifted (-2cm,0) --
                urcorner Page                  --
                urcorner Page shifted (0,-2cm) -- cycle
            ) shifted (-2.5mm,-2.5mm) ;

        else :

            path p ; p := (
                ulcorner Page shifted (2cm,0)  --
                ulcorner Page                  --
                ulcorner Page shifted (0,-2cm) -- cycle
            ) shifted (2.5mm,-2.5mm) ;

        fi ;

        fill p
            withpen pencircle scaled 1mm
          % withcolor \MPcolor{\namedstructureuservariable{chapter}{color}} ;
            withcolor \MPcolor{maincolor} ;

        draw thetextext("\bf\userpagenumber",
            if OnRightPage : urcorner p shifted (-5mm,-5mm) else : ulcorner p shifted (5mm,-5mm) fi)
            withcolor white ;

        if OnRightPage :

            path p ; p := (
                lrcorner Page shifted (-5cm,0) --
                lrcorner Page
            ) shifted (-5mm,10mm)

        else :

            path p ; p := (
                llcorner Page shifted (5cm,0) --
                llcorner Page
            ) shifted (5mm,10mm) ;

        fi ;

        draw p
            withpen pencircle scaled 1mm
          % withcolor \MPcolor{\namedstructureuservariable{chapter}{color}} ;
            withcolor \MPcolor{maincolor} ;

        draw if OnRightPage :
            thetextext.lft("\bf\getspecificstructuretitle{chapter}",lrcorner Page shifted (-5mm,5mm))
        else :
            thetextext.rt ("\bf\getspecificstructuretitle{chapter}",llcorner Page shifted ( 5mm,5mm))
        fi withcolor \MPcolor{\namedstructureuservariable{chapter}{color}} ;
     %  fi withcolor \MPcolor{maincolor} ;

    StopPage ;
\stopuseMPgraphic

\definecolor[orange]     [r=1,g=.6,b=.1]

\definecolor[middlegray] [s=.75]
\definecolor[darkgray]   [s=.25]
\definecolor[darkred]    [r=.5]
\definecolor[darkgreen]  [g=.5]
\definecolor[darkblue]   [b=.5]

\definecolor[darkyellow] [.5(red,green)]
\definecolor[darkmagenta][.5(red,blue)]
\definecolor[darkcyan]   [.5(green,blue)]

\definecolor[darkorange] [.5(orange)]

\definecolor [mix-1] [r=1,g=.75,b=.25] \definecolor [darkmix-1][.5(mix-1)]
\definecolor [mix-2] [r=1,g=.25,b=.75] \definecolor [darkmix-2][.5(mix-2)]
\definecolor [mix-3] [r=.75,g=1,b=.25] \definecolor [darkmix-3][.5(mix-3)]
\definecolor [mix-4] [r=.75,g=.25,b=1] \definecolor [darkmix-4][.5(mix-4)]
\definecolor [mix-5] [r=.25,g=1,b=.75] \definecolor [darkmix-5][.5(mix-5)]
\definecolor [mix-6] [r=.25,g=.75,b=1] \definecolor [darkmix-6][.5(mix-6)]

% \blackrule[height=1cm,width=10cm,color=mix-1] \blackrule[height=1cm,width=10cm,color=darkmix-1]
% \blackrule[height=1cm,width=10cm,color=mix-2] \blackrule[height=1cm,width=10cm,color=darkmix-2]
% \blackrule[height=1cm,width=10cm,color=mix-3] \blackrule[height=1cm,width=10cm,color=darkmix-3]
% \blackrule[height=1cm,width=10cm,color=mix-4] \blackrule[height=1cm,width=10cm,color=darkmix-4]
% \blackrule[height=1cm,width=10cm,color=mix-5] \blackrule[height=1cm,width=10cm,color=darkmix-5]
% \blackrule[height=1cm,width=10cm,color=mix-6] \blackrule[height=1cm,width=10cm,color=darkmix-6]

\definecolor[maincolor]  [darkgray]

% modules

\usemodule
  [abr-01]

\setupsorting
  [logo]
  [style=]

\usemodule     [chart]
\usemodule     [nodechart]

% \usemodule [s] [fonts-tables]
% \usemodule [s] [fonts-missing]
% \usemodule [s] [fonts-vectors]
% \usemodule [s] [fonts-features]

\usemodule [s] [languages-words]
\usemodule [s] [languages-hyphenation]
\usemodule [s] [languages-frequencies]
\usemodule [s] [languages-sorting]
\usemodule [s] [languages-counters]
\usemodule [s] [languages-system]

\usemodule [s] [math-extensibles]

\setupFLOWchart
  [width=6em,
   height=3em,
   offset=-2em, % maybe default : todo: hoffset and voffset
   dx=2em,
   dy=2em]

\setupFLOWlines
  [color=maincolor]

\setupFLOWshapes
  [rulecolor=maincolor]

% tables

\setuptabulate
  [rulethickness=.5mm,
   rulecolor=maincolor]

% special commands

\startuniqueMPgraphic{reference}{color}
    fill
        .5[llcorner OverlayBox,ulcorner OverlayBox] --
        .5[ulcorner OverlayBox,urcorner OverlayBox] --
        .5[urcorner OverlayBox,lrcorner OverlayBox] --
        .5[lrcorner OverlayBox,llcorner OverlayBox] -- cycle
        withcolor \MPvar{color} ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{reference}{color}
    path p ; p := OverlayBox enlarged -1mm ;
    filldraw
        ulcorner p --
        urcorner p --
        lrcorner p --
        .5[lrcorner p,llcorner p] shifted (0,-1ExHeight) --
        llcorner p -- cycle
        withpen pencircle scaled 1mm
        withcolor \MPvar{color} ;
    setbounds currentpicture to OverlayBox enlarged 1ExHeight ;
\stopuniqueMPgraphic

\defineoverlay[reference][\uniqueMPgraphic{reference}{color=maincolor,}]

\definecolor[maincolor][red]

\definemargindata
  [appendixdata]
%   [inner]
  [outer]
  [stack=yes]

\definemarginframed
  [appendixdata]
  [width=3.5em,
   height=\lineheight, % we know what goes in there
   align=middle,
   offset=overlay,
   foregroundcolor=white,
   background=reference]

% todo:
%
% \appendixdata[reference=bla]{}
%
% whole data

% interaction

\setupinteraction
  [state=start,
   click=no,
   color=,
   contrastcolor=,
   style=]

% extra fonts (shared among chapters)

\definefontfeature[demo-onum][kern=yes,onum=yes]
%definefontfeature[demo-lnum][kern=yes,lnum=yes]
\definefontfeature[demo-tnum][kern=yes,tnum=yes]
\definefontfeature[demo-pnum][kern=yes,pnum=yes]
\definefontfeature[demo-zero][zero=yes]
\definefontfeature[demo-none][]

\definefont[DemoOnumLM][file:lmroman10-regular*demo-onum at 42pt]
%definefont[DemoLnumLM][file:lmroman10-regular*demo-lnum at 42pt]
\definefont[DemoTnumLM][file:lmroman10-regular*demo-tnum at 42pt]
\definefont[DemoPnumLM][file:lmroman10-regular*demo-pnum at 42pt]

\definefont[DemoZeroLM][file:lmroman10-regular*demo-zero at 42pt]
\definefont[DemoNoneLM][file:lmroman10-regular*demo-none at 42pt]

\definefont[DemoZeroLT][file:lmtypewriter10-regular*demo-zero at 42pt]
\definefont[DemoNoneLT][file:lmtypewriter10-regular*demo-none at 42pt]

\definestartstop
  [notabene]
  [before=\blank,
   after=\blank,
   style=\em]

\setuphyphenation
  [method=default]

\stopenvironment