stable 2013.05.28 00:36

1 files changed, 0 insertions, 341 deletions

diff --git a/tex/context/base/font-sel.mkvi b/tex/context/base/font-sel.mkvi
deleted file mode 100644
index 718da1fa2..000000000
--- a/tex/context/base/font-sel.mkvi
+++ /dev/null
@@ -1,341 +0,0 @@
-%D \module
-%D   [     file=font-sel,
-%D      version=2013.10.14,
-%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 [r:chinese]  [\c!range={cjkcompatibilityforms,cjkcompatibilityideographs,cjkcompatibilityideographssupplement,cjkradicalssupplement,cjkstrokes,cjksymbolsandpunctuation,cjkunifiedideographs,cjkunifiedideographsextensiona,cjkunifiedideographsextensionb,halfwidthandfullwidthforms,verticalforms,bopomofo,bopomofoextended}]
-\definefontfamilypreset [r:japanese] [\c!range={cjkcompatibilityforms,cjkcompatibilityideographs,cjkcompatibilityideographssupplement,cjkradicalssupplement,cjkstrokes,cjksymbolsandpunctuation,cjkunifiedideographs,cjkunifiedideographsextensiona,cjkunifiedideographsextensionb,halfwidthandfullwidthforms,verticalforms,hiragana,katakana}]
-\definefontfamilypreset [r:korean]   [\c!range={cjkcompatibilityforms,cjkcompatibilityideographs,cjkcompatibilityideographssupplement,cjkradicalssupplement,cjkstrokes,cjksymbolsandpunctuation,cjkunifiedideographs,cjkunifiedideographsextensiona,cjkunifiedideographsextensionb,halfwidthandfullwidthforms,verticalforms,hangulcompatibilityjamo,hanguljamo,hanguljamoextendeda,hanguljamoextendedb,hangulsyllables}]
-\definefontfamilypreset [r:cyrillic] [\c!range={cyrillic,cyrillicextendeda,cyrillicextendedb,cyrillicsupplement}]
-\definefontfamilypreset [r:greek]    [\c!range={greekandcoptic,greekextended,ancientgreeknumbers}]
-
-%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 charcters 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,force=yes]
-%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
\ No newline at end of file