%D \module
%D   [     file=font-sel,
%D      version=2014.03.10,
%D        title=\CONTEXT\ User Module,
%D     subtitle=Selectfont,
%D       author=Wolfgang Schuster,
%D         date=\currentdate,
%D    copyright=Wolfgang Schuster,
%D      license=GNU General Public License]

\writestatus{loading}{ConTeXt User Module / Selectfont}

\registerctxluafile{font-sel}{1.000}

\unprotect

\installcorenamespace                      {selectfont}
\installsimplecommandhandler \??selectfont {selectfont}

\unexpanded\def\selectfont_setparameters[#settings]%
  {\begingroup
   \setupcurrentselectfont[#settings]%
   \edef\p_selectfont_preset{\selectfontparameter\c!preset}%
   \ifx\p_selectfont_preset\empty \else
     \processcommacommand[\p_selectfont_preset]\selectfont_preset_process
     \setupcurrentselectfont[#settings]%
   \fi
   \setexpandedselectfontparameter\c!style      {\expandnamespaceparameter\??selectfontstyle      \selectfontparameter\c!style      \s!rm     }%
   \setexpandedselectfontparameter\c!alternative{\expandnamespaceparameter\??selectfontalternative\selectfontparameter\c!alternative\v!default}%
   \xdef\selectfont_index{\ctxcommand{
        defineselectfont {
            metadata = {
                typeface    = "\selectfontparameter\c!name",
                style       = "\selectfontparameter\c!style",
                family      = "\selectfontparameter\c!family",
            },
            options = {
                opticals    = "\selectfontparameter\c!opticalsize",
                scale       = "\selectfontparameter\c!scale",
                goodies     = "\selectfontparameter\c!goodies",
                alternative = "\selectfontparameter\c!alternative",
                range       = "\selectfontparameter\c!range",  % fallback only
                offset      = "\selectfontparameter\c!offset", % fallback only
                check       = "\selectfontparameter\c!check",  % fallback only
                force       = "\selectfontparameter\c!force",  % fallback only
            },
            alternatives = {
                ["tf"]      = "\selectfontparameter\s!tf",
                ["bf"]      = "\selectfontparameter\s!bf",
                ["it"]      = "\selectfontparameter\s!it",
                ["sl"]      = "\selectfontparameter\s!sl",
                ["bi"]      = "\selectfontparameter\s!bi",
                ["bs"]      = "\selectfontparameter\s!bs",
                ["sc"]      = "\selectfontparameter\s!sc",
            },
            files = {
                ["tf"]      = "\selectfontparameter\c!regularfont",
                ["bf"]      = "\selectfontparameter\c!boldfont",
                ["it"]      = "\selectfontparameter\c!italicfont",
                ["sl"]      = "\selectfontparameter\c!slantedfont",
                ["bi"]      = "\selectfontparameter\c!bolditalicfont",
                ["bs"]      = "\selectfontparameter\c!boldslantedfont",
                ["sc"]      = "\selectfontparameter\c!smallcapsfont",
            },
            features = {
                ["tf"]      = "\selectfontparameter\c!regularfeatures",
                ["bf"]      = "\selectfontparameter\c!boldfeatures",
                ["it"]      = "\selectfontparameter\c!italicfeatures",
                ["sl"]      = "\selectfontparameter\c!slantedfeatures",
                ["bi"]      = "\selectfontparameter\c!bolditalicfeatures",
                ["bs"]      = "\selectfontparameter\c!boldslantedfeatures",
                ["sc"]      = "\selectfontparameter\c!smallcapsfeatures",
            }
   }}}%
   \endgroup}

%D \macros
%D   {defineselectfontstyle}

\installcorenamespace {selectfontstyle}

\unexpanded\def\defineselectfontstyle
  {\dodoubleargument\selectfont_style_define}

\def\selectfont_style_define[#styles][#shortstyle]%
  {\processcommalist[#styles]{\selectfont_style_define_indeed{#shortstyle}}}

\def\selectfont_style_define_indeed#shortstyle#style%
  {\setvalue{\??selectfontstyle#style}{#shortstyle}}

\defineselectfontstyle [\s!rm,\s!serif]       [\s!rm]
\defineselectfontstyle [\s!ss,\s!sans]        [\s!ss]
\defineselectfontstyle [\s!tt,\s!mono]        [\s!tt]
\defineselectfontstyle [\s!hw,\s!handwriting] [\s!hw]
\defineselectfontstyle [\s!cg,\s!calligraphy] [\s!cg]
\defineselectfontstyle [\s!mm,\s!math]        [\s!mm]

%D \macros
%D   {definefontfamilypreset}

\installcorenamespace {selectfontpreset}

\unexpanded\def\definefontfamilypreset
  {\dodoubleargument\selectfont_preset_define}

\def\selectfont_preset_define[#name][#settings]%
  {\doifassignmentelse{#settings}
     {\setvalue{\??selectfontpreset#name}{\setupcurrentselectfont[#settings]}}
     {\setvalue{\??selectfontpreset#name}{\csname\??selectfontpreset#settings\endcsname}}}

\def\selectfont_preset_process#name%
  {\ifcsname\??selectfontpreset#name\endcsname
     \csname\??selectfontpreset#name\endcsname
   \else
     % unknown preset
   \fi}

%definefontfamilypreset [range:chinese]  [\c!range={cjkcompatibilityforms,cjkcompatibilityideographs,cjkcompatibilityideographssupplement,cjkradicalssupplement,cjkstrokes,cjksymbolsandpunctuation,cjkunifiedideographs,cjkunifiedideographsextensiona,cjkunifiedideographsextensionb,halfwidthandfullwidthforms,verticalforms,bopomofo,bopomofoextended}]
%definefontfamilypreset [range:japanese] [\c!range={cjkcompatibilityforms,cjkcompatibilityideographs,cjkcompatibilityideographssupplement,cjkradicalssupplement,cjkstrokes,cjksymbolsandpunctuation,cjkunifiedideographs,cjkunifiedideographsextensiona,cjkunifiedideographsextensionb,halfwidthandfullwidthforms,verticalforms,hiragana,katakana}]
%definefontfamilypreset [range:korean]   [\c!range={cjkcompatibilityforms,cjkcompatibilityideographs,cjkcompatibilityideographssupplement,cjkradicalssupplement,cjkstrokes,cjksymbolsandpunctuation,cjkunifiedideographs,cjkunifiedideographsextensiona,cjkunifiedideographsextensionb,halfwidthandfullwidthforms,verticalforms,hangulcompatibilityjamo,hanguljamo,hanguljamoextendeda,hanguljamoextendedb,hangulsyllables}]
%definefontfamilypreset [range:cyrillic] [\c!range={cyrillic,cyrillicextendeda,cyrillicextendedb,cyrillicsupplement}]
%definefontfamilypreset [range:greek]    [\c!range={greekandcoptic,greekextended,ancientgreeknumbers}]

\definefontfamilypreset [range:chinese]  [\c!range={0x02E80-0x02EFF,0x03000-0x031EF,0x03300-0x09FFF,0x0F900-0x0FFEF,0x20000-0x2A6DF,0x2F800-0x2FA1F,0x03100-0x0312F,0x031A0-0x031BF}]
\definefontfamilypreset [range:japanese] [\c!range={0x02E80-0x02EFF,0x03000-0x031EF,0x03300-0x09FFF,0x0F900-0x0FFEF,0x20000-0x2A6DF,0x2F800-0x2FA1F,0x03040-0x0309F,0x030A0-0x030FF}]
\definefontfamilypreset [range:korean]   [\c!range={0x02E80-0x02EFF,0x03000-0x031EF,0x03300-0x09FFF,0x0F900-0x0FFEF,0x20000-0x2A6DF,0x2F800-0x2FA1F,0x01100-0x011FF,0x03130-0x0318F,0x0A960-0x0D7FF}]
\definefontfamilypreset [range:cyrillic] [\c!range={0x00400-0x0052F,0x02DE0-0x02DFF,0x0A640-0x0A69F}]
\definefontfamilypreset [range:greek]    [\c!range={0x00370-0x003FF,0x01F00-0x01FFF,0x10140-0x1018F}]
\definefontfamilypreset [range:hebrew]   [\c!range={0x00590-0x005FF,0x0FB00-0x0FB4F}]

\definefontfamilypreset [math:digitsnormal]             [\c!range=digitsnormal]
\definefontfamilypreset [math:digitsbold]               [\c!range=digitsnormal,\c!offset=digitsbold,\s!tf=style:bold]

\definefontfamilypreset [math:uppercasenormal]          [\c!range=uppercasenormal]
\definefontfamilypreset [math:uppercaseitalic]          [\c!range=uppercasenormal,\c!offset=uppercaseitalic,    \s!tf=style:italic]
\definefontfamilypreset [math:uppercasebold]            [\c!range=uppercasenormal,\c!offset=uppercasebold,      \s!tf=style:bold]
\definefontfamilypreset [math:uppercasebolditalic]      [\c!range=uppercasenormal,\c!offset=uppercasebolditalic,\s!tf=style:bolditalic]

\definefontfamilypreset [math:lowercasenormal]          [\c!range=lowercasenormal]
\definefontfamilypreset [math:lowercaseitalic]          [\c!range=lowercasenormal,\c!offset=lowercaseitalic,    \s!tf=style:italic]
\definefontfamilypreset [math:lowercasebold]            [\c!range=lowercasenormal,\c!offset=lowercasebold,      \s!tf=style:bold]
\definefontfamilypreset [math:lowercasebolditalic]      [\c!range=lowercasenormal,\c!offset=lowercasebolditalic,\s!tf=style:bolditalic]

\definefontfamilypreset [math:mathematicaloperators]    [\c!range=mathematicaloperators]

\definefontfamilypreset [math:lowercasegreeknormal]     [\c!range=lowercasegreeknormal]
\definefontfamilypreset [math:lowercasegreekitalic]     [\c!range=lowercasegreeknormal,\c!offset=lowercasegreekitalic,    \s!tf=style:italic]
\definefontfamilypreset [math:lowercasegreekbold]       [\c!range=lowercasegreeknormal,\c!offset=lowercasegreekbold,      \s!tf=style:bold]
\definefontfamilypreset [math:lowercasegreekbolditalic] [\c!range=lowercasegreeknormal,\c!offset=lowercasegreekbolditalic,\s!tf=style:bolditalic]

\definefontfamilypreset [math:uppercasegreeknormal]     [\c!range=uppercasegreeknormal]
\definefontfamilypreset [math:uppercasegreekitalic]     [\c!range=uppercasegreeknormal,\c!offset=uppercasegreekitalic,    \s!tf=style:italic]
\definefontfamilypreset [math:uppercasegreekbold]       [\c!range=uppercasegreeknormal,\c!offset=uppercasegreekbold,      \s!tf=style:bold]
\definefontfamilypreset [math:uppercasegreekbolditalic] [\c!range=uppercasegreeknormal,\c!offset=uppercasegreekbolditalic,\s!tf=style:bolditalic]


%D \macros
%D   {defineselectfontalternative}
%D
%D The results between the old {\em simplefonts} and the new {\em selectfont}
%D can be different because simplefonts the name entries in the database to find
%D the styles for a font while selectfont the newer spec-method to the find the
%D files for each style.
%D
%D The used method depends on the command one uses to load a font but it is
%D also possible to switch between them with the {\em alternative} key, possible
%D values are:
%D
%D \startitemize[packed]
%D \startitem selectfont and \stopitem
%D \startitem simplefonts. \stopitem
%D \stopitemize

\installcorenamespace {selectfontalternative}

\unexpanded\def\defineselectfontalternative
  {\dodoubleargument\selectfont_alternative_define}

\def\selectfont_alternative_define[#name][#alternative]%
  {\setvalue{\??selectfontalternative#name}{#alternative}}

\defineselectfontalternative [\v!selectfont ] [\v!selectfont ]
\defineselectfontalternative [\v!simplefonts] [\v!simplefonts]
\defineselectfontalternative [\v!default    ] [\v!default    ]

%D \macros
%D   {definefontfamily,definefallbackfamily}
%D
%D The \tex{definefontfamily} creates like \tex{definetypeface} a collection of font
%D with different styles which can be later called with the \tex{setupbodyfont} command.
%D
%D The command takes three mendatory commands which are (a) the name of the fontclass,
%D (b) the styles of the font and (c) the name of the font.
%D
%D \starttyping
%D \definefontfamily [dejavu] [serif] [DejaVu Serif]
%D \definefontfamily [dejavu] [sans]  [DejaVu Sans]
%D \definefontfamily [dejavu] [mono]  [DejaVu Sans Mono]
%D \definefontfamily [dejavu] [math]  [XITS Math] [scale=1.1]
%D
%D \definefontfamily [office] [serif] [Times New Roman]
%D \definefontfamily [office] [sans]  [Arial] [scale=0.9]
%D \definefontfamily [office] [mono]  [Courier]
%D \definefontfamily [office] [math]  [TeX Gyre Termes Math]
%D
%D \definefontfamily [linux] [serif] [Linux Libertine O]
%D \definefontfamily [linux] [sans]  [Linux Biolinum O]
%D \definefontfamily [linux] [mono]  [Latin Modern Mono]
%D \definefontfamily [linux] [math]  [TeX Gyre Pagella Math] [scale=0.9]
%D
%D \setupbodyfont[dejavu]
%D
%D \starttext
%D
%D \rm Serif \ss Sans \tt Mono \m{1+2=3}
%D
%D \switchtobodyfont[office]
%D
%D \rm Serif 123 \ss Sans \tt Mono \m{1+2=3}
%D
%D \switchtobodyfont[linux]
%D
%D \rm Serif 123 \ss Sans \tt Mono \m{1+2=3}
%D
%D \stoptext
%D \stoptyping
%D
%D When a document contains different languages and the global font lacks some characters
%D for one language, one could set a different font where these characters are taken from.
%D This fallback font (there can be more than one for a certain style) could be set with
%D the \tex{definefallbackfamily} command which takes the same argument as
%D the \tex{definefontfamily} command.
%D
%D \starttyping
%D \definefallbackfamily [mainface] [serif] [DejaVu Serif] [range=cyrillic]
%D \definefontfamily     [mainface] [serif] [TeX Gyre Pagella]
%D
%D \setupbodyfont[mainface]
%D
%D \setuplanguage[en][patterns={us,ru}]
%D
%D \starttext
%D
%D \input knuth
%D
%D Традиционная систематика лишайников оказывается во многом условна и
%D
%D \stoptext
%D \stoptyping
%D
%D Another feature of the module is the \type{opticalsize} key which allows one to enable
%D optical sizes when they are a feature of the requested font.
%D
%D \starttyping
%D \definefontfamily[mainface][serif][Latin Modern Roman][opticalsize=yes]
%D
%D \setupbodyfont[mainface]
%D
%D \starttext
%D \scale[width=\textwidth]{\switchtobodyfont   [6pt]\tf Regular, \it Italic \bf Bold and \bi BoldItalic}
%D \scale[width=\textwidth]{\switchtobodyfont   [8pt]\tf Regular, \it Italic \bf Bold and \bi BoldItalic}
%D \scale[width=\textwidth]{\switchtobodyfont  [10pt]\tf Regular, \it Italic \bf Bold and \bi BoldItalic}
%D \scale[width=\textwidth]{\switchtobodyfont  [12pt]\tf Regular, \it Italic \bf Bold and \bi BoldItalic}
%D \scale[width=\textwidth]{\switchtobodyfont[17.3pt]\tf Regular, \it Italic \bf Bold and \bi BoldItalic}
%D \stoptext
%D \stoptyping

% regularfont = … | * … | name:… | name:* … | file:… | file:* … | spec:…-…-… | style:medium

\unexpanded\def\definefontfamily
  {\doquadrupleempty\selectfont_family_define}

\def\selectfont_family_define[#typeface][#style][#family][#settings]%
  {\doifassignmentelse{#settings}
     {\selectfont_setparameters[\c!name={#typeface},\c!style={#style},\c!family={#family},#settings]}
     {\selectfont_setparameters[\c!name={#typeface},\c!style={#style},\c!family={#family},\c!preset={#settings}]}%
   \ctxcommand{definefontfamily(\selectfont_index)}}

\unexpanded\def\definefallbackfamily
  {\doquadrupleempty\selectfont_fallback_define}

\def\selectfont_fallback_define[#typeface][#style][#family][#settings]%
  {\doifassignmentelse{#settings}
     {\selectfont_setparameters[\c!name={#typeface},\c!style={#style},\c!family={#family},#settings]}
     {\selectfont_setparameters[\c!name={#typeface},\c!style={#style},\c!family={#family},\c!preset={#settings}]}%
   \edef\p_selectfont_style{\expandnamespacevalue\??selectfontstyle{#style}\s!rm}%
   \ctxcommand{definefallbackfamily("#typeface","\p_selectfont_style",\selectfont_index)}}

%D \macros
%D   {setupfontfamily,setupfallbackfamily}
%D
%D For simple documents which don’t need complex font settings one could use
%D the \tex{setupfontfamily} command where the requested font is enabled immediately
%D without the need to load it with \tex{setupbodyfont}. The downside of this method
%D is that processing of the document takes longer with each additional font which
%D is set with \tex{setupfontfamily}.
%D
%D \starttyping
%D \setupfontfamily [serif] [DejaVu Serif]
%D \setupfontfamily [sans]  [DejaVu Sans]
%D \setupfontfamily [mono]  [DejaVu Sans Mono]
%D \setupfontfamily [math]  [XITS Math] [scale=1.1]
%D
%D \starttext
%D
%D \rm Serif 123 \ss Sans \tt Mono \m{1+2=3}
%D
%D \stoptext
%D \stoptyping

\newcount\c_selectfont_family
\newtoks \t_selectfont_fallback
\newtoks \t_selectfont_styles

\unexpanded\def\setupfontfamily
  {\dotripleempty\selectfont_family_setup}

\def\selectfont_family_setup
  {\ifsecondargument
     \expandafter\selectfont_family_setup_yes
   \else
     \expandafter\selectfont_family_setup_nop
   \fi}

\def\selectfont_family_setup_yes[#style][#family][#settings]%
  {\normalexpanded{\t_selectfont_styles{\selectfont_set_font_family[#style][#family][#settings]\the\t_selectfont_styles}}%
   \selectfont_set_font_indeed}

\def\selectfont_family_setup_nop[#settings][#dummya][#dummyb]%
  {\setupselectfont[#settings]}

\unexpanded\def\selectfont_set_default
  {\selectfont_set_font_family[\v!serif][Latin Modern Roman][\c!opticalsize=\v!yes]%
   \selectfont_set_font_family[\v!sans] [Latin Modern Sans] [\c!opticalsize=\v!yes]%
   \selectfont_set_font_family[\v!mono] [Latin Modern Mono] [\c!opticalsize=\v!yes,\c!features=\s!none]}

\unexpanded\def\setupfallbackfamily
  {\dotripleempty\selectfont_fallback_setup}

\def\selectfont_fallback_setup[#style][#family][#settings]%
  {\normalexpanded{\t_selectfont_fallback{\the\t_selectfont_fallback\selectfont_set_font_fallback[#style][#family][#settings]}}}

\def\selectfont_set_font_indeed
  {\global\advance\c_selectfont_family\plusone
   \edef\m_selectfont_typeface{\v!selectfont-\number\c_selectfont_family}%
   \the\t_selectfont_fallback
   \the\t_selectfont_styles
   \selectfont_set_default
   \setupbodyfont[\m_selectfont_typeface,\rootselectfontparameter\c!style]}

\unexpanded\def\selectfont_set_font_family[#style]#dummy[#family]#dummy[#settings]%
  {\ifcsname\m_selectfont_typeface#style\endcsname \else
     \expandafter\let\csname\m_selectfont_typeface#style\endcsname\relax
     \selectfont_family_define[\m_selectfont_typeface][#style][#family][#settings]%
   \fi}

\unexpanded\def\selectfont_set_font_fallback[#style]#dummy[#family]#dummy[#settings]%
  {\selectfont_fallback_define[\m_selectfont_typeface][#style][#family][#settings]}

%D You can apply a different feature set to each style of a font but if nothing
%D is set the global features are used.

\setupselectfont
  [           \c!features=\s!default,
       \c!regularfeatures=\selectfontparameter\c!features,
          \c!boldfeatures=\selectfontparameter\c!features,
        \c!italicfeatures=\selectfontparameter\c!features,
       \c!slantedfeatures=\selectfontparameter\c!features,
    \c!bolditalicfeatures=\selectfontparameter\c!features,
   \c!boldslantedfeatures=\selectfontparameter\c!features,
     \c!smallcapsfeatures=\s!smallcaps,
                 \c!style=\s!rm]

\protect