summaryrefslogtreecommitdiff
path: root/macros/context/contrib/context-simplefonts/tex/context/third/simplefonts/t-simplefonts.mkii
diff options
context:
space:
mode:
Diffstat (limited to 'macros/context/contrib/context-simplefonts/tex/context/third/simplefonts/t-simplefonts.mkii')
-rw-r--r--macros/context/contrib/context-simplefonts/tex/context/third/simplefonts/t-simplefonts.mkii400
1 files changed, 0 insertions, 400 deletions
diff --git a/macros/context/contrib/context-simplefonts/tex/context/third/simplefonts/t-simplefonts.mkii b/macros/context/contrib/context-simplefonts/tex/context/third/simplefonts/t-simplefonts.mkii
deleted file mode 100644
index 67e7774d6b..0000000000
--- a/macros/context/contrib/context-simplefonts/tex/context/third/simplefonts/t-simplefonts.mkii
+++ /dev/null
@@ -1,400 +0,0 @@
-%D \module
-%D [ file=t-simplefonts,
-%D version=2009.11.08,
-%D title=\CONTEXT\ User Module,
-%D subtitle=Simplefonts,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-\writestatus{loading}{ConTeXt User Module / Simplefonts}
-
-\unprotect
-
-\startmodule[simplefonts]
-
-%D Constants and variables
-
-\startinterface all
- \setinterfaceconstant {regular} {regular}
- \setinterfaceconstant {italic} {italic}
- \setinterfaceconstant {slanted} {slanted}
- \setinterfaceconstant {bold} {bold}
- \setinterfaceconstant {bolditalic} {bolditalic}
- \setinterfaceconstant {boldslanted} {boldslanted}
- \setinterfaceconstant {caps} {caps}
- \setinterfaceconstant {scale} {scale}
- \setinterfaceconstant {features} {features}
- \setinterfaceconstant {regularfont} {regularfont}
- \setinterfaceconstant {italicfont} {italicfont}
- \setinterfaceconstant {slantedfont} {slantedfont}
- \setinterfaceconstant {boldfont} {boldfont}
- \setinterfaceconstant {bolditalicfont} {bolditalicfont}
- \setinterfaceconstant {boldslantedfont} {boldslantedfont}
- \setinterfaceconstant {capsfont} {capsfont}
- \setinterfaceconstant {regularfeatures} {regularfeatures}
- \setinterfaceconstant {italicfeatures} {italicfeatures}
- \setinterfaceconstant {slantedfeatures} {slantedfeatures}
- \setinterfaceconstant {boldfeatures} {boldfeatures}
- \setinterfaceconstant {bolditalicfeatures} {bolditalicfeatures}
- \setinterfaceconstant {boldslantedfeatures} {boldslantedfeatures}
- \setinterfaceconstant {smallcapsfeatures} {smallcapsfeatures}
- \setinterfaceconstant {capsfeatures} {capsfeatures}
- \setinterfaceconstant {typeface} {typeface}
-\stopinterface
-
-\startinterface all
- \setinterfacevariable {simplefonts} {simplefonts}
- \setinterfacevariable {simplefont} {simplefont}
- \setinterfacevariable {style} {style}
- \setinterfacevariable {suffix} {suffix}
- \setinterfacevariable {serif} {serif}
- \setinterfacevariable {sans} {sans}
- \setinterfacevariable {mono} {mono}
- \setinterfacevariable {math} {math}
- \setinterfacevariable {mainfont} {mainfont}
- \setinterfacevariable {sansfont} {sansfont}
- \setinterfacevariable {monofont} {monofont}
- \setinterfacevariable {mathfont} {mathfont}
- \setinterfacevariable {handwritingfont} {handwritingfont}
- \setinterfacevariable {calligraphicfont} {calligraphicfont}
- \setinterfacevariable {handwriting} {handwriting}
- \setinterfacevariable {calligraphy} {calligraphy}
- \setinterfacevariable {fontfamily} {fontfamily}
- \setinterfacevariable {alternative} {alternative}
-\stopinterface
-
-\startinterface all
- \setinterfaceelement {set} {set}
-\stopinterface
-
-%D System constants
-
-\definesystemconstant {Handwriting}
-\definesystemconstant {Calligraphy}
-
-%D Module setup
-
-\setupmodule
- [\c!size=\!!twelvepoint,
- \c!style=\c!rm]
-
-%D Namespace
-
-\def\????sf{@@@@sf}
-
-%D Counter
-
-\newcounter\simplefonts!typeface
-\newcounter\simplefonts!fontfamily
-
-%D Boolean
-
-\newif\if!!donesimplefonts
-
-%D Comma value lists
-
-\def\simplefonts!commands
- {\v!mainfont,\v!sansfont,\v!monofont,\v!mathfont,\v!handwritingfont,\v!calligraphicfont}
-
-\def\simplefonts!alternative
- {\c!regular,\c!italic,\c!slanted,\c!bold,\c!bolditalic,\c!boldslanted,\c!caps}
-
-%D \macros
-%D {simplefontparameter,namedsimplefontparameter,
-%D setupsimplefonts,presetsimplefonts}
-%D
-%D Internal helper macros
-
-\def\simplefontparameter #1{\csname\????sf\currentsimplefont#1\endcsname}
-\def\namedsimplefontparameter#1#2{\csname\????sf #1#2\endcsname}
-
-\def\setupsimplefonts
- {\dosingleempty\dosetupsimplefonts}
-
-\def\dosetupsimplefonts[#1]% first argument is optional
- {\iffirstargument\getparameters[\????sf][#1]\fi
- \if!!donesimplefonts\simplefonts@bodyfont\fi}
-
-\def\presetsimplefonts[#1]%
- {\getparameters
- [#1]
- [\c!regularfont=,
- \c!italicfont=,
- \c!slantedfont=,
- \c!boldfont=,
- \c!bolditalicfont=,
- \c!boldslantedfont=,
- \c!capsfont=,
- \c!features=\@@@@sffeatures,
- \c!regularfeatures=\simplefontparameter\c!features,
- \c!italicfeatures=\simplefontparameter\c!features,
- \c!slantedfeatures=\simplefontparameter\c!features,
- \c!boldfeatures=\simplefontparameter\c!features,
- \c!bolditalicfeatures=\simplefontparameter\c!features,
- \c!boldslantedfeatures=\simplefontparameter\c!features,
- \c!smallcapsfeatures=\@@@@sfsmallcapsfeatures,
- \c!capsfeatures=\simplefontparameter\c!smallcapsfeatures,
- \c!scale=1.0]}
-
-\letvalue{\????sf:\v!style :\v!serif }\c!rm
-\letvalue{\????sf:\v!style :\v!sans }\c!ss
-\letvalue{\????sf:\v!style :\v!mono }\c!tt
-\letvalue{\????sf:\v!style :\v!math }\c!mm
-\letvalue{\????sf:\v!style :\v!handwriting}\c!hw
-\letvalue{\????sf:\v!style :\v!calligraphy}\c!cg
-
-\letvalue{\????sf:\v!suffix:\v!serif }\s!Serif
-\letvalue{\????sf:\v!suffix:\v!sans }\s!Sans
-\letvalue{\????sf:\v!suffix:\v!mono }\s!Mono
-\letvalue{\????sf:\v!suffix:\v!handwriting}\s!Handwriting
-\letvalue{\????sf:\v!suffix:\v!calligraphy}\s!Calligraphy
-
-\setvalue{\????sf:\v!alternative:\c!regular }{}
-\setvalue{\????sf:\v!alternative:\c!italic }{/I}
-\setvalue{\????sf:\v!alternative:\c!slanted }{/I}
-\setvalue{\????sf:\v!alternative:\c!bold }{/B}
-\setvalue{\????sf:\v!alternative:\c!bolditalic }{/BI}
-\setvalue{\????sf:\v!alternative:\c!boldslanted}{/BI}
-\setvalue{\????sf:\v!alternative:\c!caps }{}
-
-\definetypescriptsynonym[latinmodernmath][latin-modern] % do I need more of them
-
-\def\sf@style #1{\csname\????sf:\v!style :#1\endcsname}
-\def\sf@suffix #1{\csname\????sf:\v!suffix :#1\endcsname}
-\def\sf@alternative#1{\csname\????sf:\v!alternative:#1\endcsname}
-
-\starttexdefinition simplefonts@typeface #1#2#3
-
- \definetypeface
- [#1]
- [\sf@style{\namedsimplefontparameter{#3}\c!style}]
- [\namedsimplefontparameter{#3}\c!style]
- [#2]
- [\s!default]
- [rscale=\namedsimplefontparameter{#3}\c!scale]
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@family #1
-
- \simplefonts@typeface{#1}{\v!mainfont }{\v!mainfont }
- \simplefonts@typeface{#1}{\v!sansfont }{\v!sansfont }
- \simplefonts@typeface{#1}{\v!monofont }{\v!monofont }
- \simplefonts@typeface{#1}{\namedsimplefontparameter\v!mathfont\c!typeface}{\v!mathfont }
- \simplefonts@typeface{#1}{\v!handwritingfont }{\v!handwritingfont }
- \simplefonts@typeface{#1}{\v!calligraphicfont }{\v!calligraphicfont}
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@typescript #1#2
-
- \startexpanded
-
- \@NX\starttypescript[#1][#2]
-
- \simplefonts@fontsynonym{\sf@suffix{#1}\empty }{\c!regular }
- \simplefonts@fontsynonym{\sf@suffix{#1}\s!Italic }{\c!italic }
- \simplefonts@fontsynonym{\sf@suffix{#1}\s!Slanted }{\c!slanted }
- \simplefonts@fontsynonym{\sf@suffix{#1}\s!Bold }{\c!bold }
- \simplefonts@fontsynonym{\sf@suffix{#1}\s!BoldItalic }{\c!bolditalic }
- \simplefonts@fontsynonym{\sf@suffix{#1}\s!BoldSlanted}{\c!boldslanted}
- \simplefonts@fontsynonym{\sf@suffix{#1}\s!Caps }{\c!caps }
-
- \@NX\stoptypescript
-
- \stopexpanded
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@scripttypescript #1#2
-
- \startexpanded
-
- \@NX\starttypescript[#1][#2]
-
- \simplefonts@fontsynonym{\sf@suffix{#1}}{\c!regular}
-
- \@NX\stoptypescript
-
- \stopexpanded
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@fontsynonym #1#2
-
- \@NX\definefontsynonym
- [#1]
- [\simplefontparameter{#2}]
- [\s!features=\simplefontparameter{#2\s!features}]
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@bodyfont
-
- \doglobal\increment\simplefonts!typeface
-
- \simplefonts@family{\v!simplefonts:\simplefonts!typeface}
-
- \setupbodyfont[\v!simplefonts:\simplefonts!typeface,\@@@@sfstyle,\@@@@sfsize]
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@definetextfont [#1][#2][#3][#4]
-
- \edef\currentsimplefont{#1}\edef\currenttypeface{#2}
-
- \presetsimplefonts[\????sf\currentsimplefont]
-
- \getparameters[\????sf\currentsimplefont][#4]
-
- \startprocesscommacommand[\simplefonts!alternative]
-
- \doifsomethingelse{\simplefontparameter{##1\s!font}}
- {\doifinstringelse{*}{\simplefontparameter{##1\s!font}}
- {\setevalue{\????sf#1##1}{name:#3\@EAEAEA\gobbleoneargument\csname\????sf\currentsimplefont##1\s!font\endcsname}}
- {\setevalue{\????sf#1##1}{name:\simplefontparameter{##1\s!font}}}}
- {\setevalue{\????sf#1##1}{name:#3\sf@alternative{##1}}}
-
- \stopprocesscommacommand
-
- \simplefonts@typescript{\simplefontparameter\c!style}{#1}
-
- \ifx\currenttypeface\v!simplefonts
-
- % don't create a typeface and set bodyfont when the module is loaded
-
- \if!!donesimplefonts\simplefonts@bodyfont\fi
-
- \else
-
- \simplefonts@typeface{#2}{#1}{#1}
-
- \fi
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@definescriptfont [#1][#2][#3][#4]
-
- \edef\currentsimplefont{#1}\edef\currenttypeface{#2}
-
- \presetsimplefonts[\????sf\currentsimplefont]
-
- \getparameters[\????sf\currentsimplefont][#4]
-
- \startprocesscommacommand[\c!regular]
-
- \setvalue{\????sf#1##1}{name:#3}
-
- \stopprocesscommacommand
-
- \simplefonts@scripttypescript{\simplefontparameter\c!style}{#1}
-
- \ifx\currenttypeface\v!simplefonts
-
- % don't create a typeface and set bodyfont when the module is loaded
-
- \if!!donesimplefonts\simplefonts@bodyfont\fi
-
- \else
-
- \simplefonts@typeface{#2}{#1}{#1}
-
- \fi
-
-\stoptexdefinition
-
-\starttexdefinition simplefonts@definemathfont [#1][#2][#3][#4]
-
- \edef\currentsimplefont{#1}\edef\currenttypeface{#2}
-
- \presetsimplefonts[\????sf\currentsimplefont]
-
- \getparameters[\????sf\currentsimplefont][#4]
-
- \lowercase{\unspacestring#3\to\!!simplefont}
-
- \letvalue{\????sf\currentsimplefont\c!typeface}\!!simplefont
-
- \ifx\currenttypeface\v!simplefonts
-
- % don't create a typeface and set bodyfont when the module is loaded
-
- \if!!donesimplefonts\simplefonts@bodyfont\fi
-
- \else
-
- \simplefonts@typeface{#2}{#1}{#1}
-
- \fi
-
-\stoptexdefinition
-
-%D \macros
-%D {definefontcommand}
-
-\def\definefontcommand
- {\dotripleempty\dodefinefontcommand}
-
-\def\dodefinefontcommand[#1][#2][#3]%
- {\getparameters[\????sf#1][\c!style=\v!serif,#3]%
- \processaction
- [\namedsimplefontparameter{#1}\c!style]
- [ \v!serif=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definetextfont [#1][#2]},
- \v!sans=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definetextfont [#1][#2]},
- \v!mono=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definetextfont [#1][#2]},
- \v!math=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definemathfont [#1][#2]},
- \v!handwriting=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definescriptfont[#1][#2]},
- \v!calligraphy=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definescriptfont[#1][#2]},
- \s!unknown=>\setvalue{\e!set#1}{\doquadrupleempty\simplefonts@definetextfont [#1][#2]}]}
-
-\definefontcommand[\v!mainfont ][\v!simplefonts][\c!style=\v!serif ]
-\definefontcommand[\v!sansfont ][\v!simplefonts][\c!style=\v!sans ]
-\definefontcommand[\v!monofont ][\v!simplefonts][\c!style=\v!mono ]
-\definefontcommand[\v!mathfont ][\v!simplefonts][\c!style=\v!math ]
-\definefontcommand[\v!handwritingfont ][\v!simplefonts][\c!style=\v!handwriting]
-\definefontcommand[\v!calligraphicfont][\v!simplefonts][\c!style=\v!calligraphy]
-
-%D \macros
-%D {definesimplefonttypeface}
-
-\def\definesimplefonttypeface
- {\dotripleempty\dodefinesimplefonttypeface}
-
-\def\dodefinesimplefonttypeface[#1][#2][#3]%
- {\getparameters[\????sf#1][\c!style=\v!serif,#3]%
- \processaction
- [\namedsimplefontparameter{#1}\c!style]
- [ \v!serif=>{\simplefonts@definetextfont [#1][#1][#2][#3]},
- \v!sans=>{\simplefonts@definetextfont [#1][#1][#2][#3]},
- \v!mono=>{\simplefonts@definetextfont [#1][#1][#2][#3]},
- \v!math=>{\simplefonts@definemathfont [#1][#1][#2][#3]},
- \v!math=>{\simplefonts@definemathfont [#1][#1][#2][#3]},
- \v!handwriting=>{\simplefonts@definescriptfont[#1][#1][#2][#3]},
- \v!calligraphy=>{\simplefonts@definescriptfont[#1][#1][#2][#3]},
- \s!unknown=>{\simplefonts@definetextfont [#1][#1][#2][#3]}]}
-
-%D Default setup
-
-\setupsimplefonts
- [\c!size=\moduleparameter\v!simplefonts\c!size,
- \c!style=\moduleparameter\v!simplefonts\c!style,
- \c!features=\v!default,
- \c!smallcapsfeatures=\v!smallcaps]
-
-%D Default fonts
-
-\setmainfont [Latin Modern Roman]
-\setsansfont [Latin Modern Sans]
-\setmonofont [Latin Modern Mono]
-\setmathfont [Latin Modern Math]
-\sethandwritingfont [Latin Modern Roman] % neither handwritten nor calligraphic are available
-\setcalligraphicfont[Latin Modern Roman] % for Latin Modern but I need a default font for them
-
-\!!donesimplefontstrue
-
-\stopmodule
-
-\protect \endinput