diff options
Diffstat (limited to 'Master/texmf-dist/tex/context')
-rw-r--r-- | Master/texmf-dist/tex/context/interface/third/t-title.xml | 79 | ||||
-rw-r--r-- | Master/texmf-dist/tex/context/third/title/t-title.mkvi | 120 |
2 files changed, 199 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/interface/third/t-title.xml b/Master/texmf-dist/tex/context/interface/third/t-title.xml new file mode 100644 index 00000000000..462aba4309a --- /dev/null +++ b/Master/texmf-dist/tex/context/interface/third/t-title.xml @@ -0,0 +1,79 @@ +<?xml version="1.0" encoding="UTF-8"?> + +<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="en" version="2011.10.04"> + +<cd:command name="placetitle" file=t-tile.mkvi"> + <cd:sequence> + <cd:string value="placetitle"/> + </cd:sequence> + <cd:arguments> + <cd:assignments n="1" list="yes" optional="yes"> + <cd:inherit name="setuptitle" n="2"/> + </cd:assignments> + </cd:arguments> +</cd:command> + +<cd:command name="setuptitle" variant="1" file="t-tile.mkvi"> + <cd:sequence> + <cd:string value="setuptitle"/> + </cd:sequence> + <cd:arguments> + <cd:assignments n="1" list="yes"> + <cd:parameter name="author"> + <cd:constant type="cd:text"/> + </cd:parameter> + <cd:parameter name="title"> + <cd:constant type="cd:text"/> + </cd:parameter> + <cd:parameter name="date"> + <cd:constant type="cd:text"/> + </cd:parameter> + <cd:parameter name="spacebefore"> + <cd:inherit name="blank" n="1"/> + </cd:parameter> + <cd:parameter name="spaceafter"> + <cd:inherit name="blank" n="1"/> + </cd:parameter> + <cd:parameter name="align"> + <cd:inherit name="setupalign" n="1"/> + </cd:parameter> + <cd:parameter name="pagestate"> + <cd:constant type="start"/> + <cd:constant type="stop" default="yes"/> + </cd:parameter> + <cd:parameter name="KEY"> + <cd:constant type="VALUE"/> + </cd:parameter> + </cd:assignments> + </cd:arguments> +</cd:command> + +<cd:command name="setuptitle" variant="2" file="t-tile.mkvi"> + <cd:sequence> + <cd:string value="setuptitle"/> + </cd:sequence> + <cd:arguments> + <cd:keywords n="1" list="yes"> + <cd:constant type="cd:name"/> + </cd:keywords> + <cd:assignments n="2" list="yes"> + <cd:parameter name="style"> + <cd:resolve name="style"/> + </cd:parameter> + <cd:parameter name="color"> + <cd:constant type="cd:name"/> + </cd:parameter> + </cd:assignments> + </cd:arguments> +</cd:command> + +<cd:command name="titleelement" file="t-title.mkvi"> + <cd:sequence> + <cd:string value="titleelement"/> + </cd:sequence> + <cd:arguments> + <cd:content n="1"/> + </cd:arguments> +</cd:command> + +</cd:interface>
\ No newline at end of file diff --git a/Master/texmf-dist/tex/context/third/title/t-title.mkvi b/Master/texmf-dist/tex/context/third/title/t-title.mkvi new file mode 100644 index 00000000000..3b85379e571 --- /dev/null +++ b/Master/texmf-dist/tex/context/third/title/t-title.mkvi @@ -0,0 +1,120 @@ +%D \module +%D [ file=t-title, +%D version=2012.04.11, +%D title=\CONTEXT\ User Module, +%D subtitle=Document titles, +%D author=Wolfgang Schuster, +%D date=\currentdate, +%D copyright=Wolfgang Schuster, +%D license=GNU General Public License] + +%C Copyright (C) 2011 Wolfgang Schuster +%C +%C This program is free software: you can redistribute it and/or modify +%C it under the terms of the GNU General Public License as published by +%C the Free Software Foundation, either version 3 of the License, or +%C any later version. +%C +%C This program is distributed in the hope that it will be useful, +%C but WITHOUT ANY WARRANTY; without even the implied warranty of +%C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%C GNU General Public License for more details. +%C +%C You should have received a copy of the GNU General Public License +%C along with this program. If not, see <http://www.gnu.org/licenses/>. + +%M \loadsetups[t-title.xml] + +%D \showsetup{placetitle} +%D \showsetup{setuptitle} +%D \showsetup{titleelement} + +\writestatus{loading}{ConTeXt User Module / Document titles} + +\unprotect + +\installnamespace {title} +\installcommandhandler \????title {title} \????title + +\unexpanded\def\title_place + {\begingroup + \dostarttagged\t!division\v!title + \dosingleempty\title_arguments} + +\def\title_arguments[#parameters]% + {\let\currenttitle\empty + \iffirstargument\setupcurrenttitle[#parameters]\fi + \autosetups{\roottitleparameter\c!setups}% + \dostoptagged + \doif{\roottitleparameter\c!pagestate}\v!stop{\aftergroup\noheaderandfooterlines}% + \endgroup} + +\def\title_parameter#element% + {\begingroup + \def\currenttitle{#element}% + \usetitlestyleandcolor\c!style\c!color + \dostarttagged\t!construct\currenttitle + \setupinterlinespace\roottitleparameter\currenttitle\par + \dostoptagged + \endgroup} + +\let\placetitle \title_place +\let\titleelement\title_parameter + +\startsetups title:default + + \blank[\roottitleparameter\c!spacebefore] + + \startalignment[\roottitleparameter\c!align] + + \titleelement\c!title + + \blank[1.5em] + + \titleelement\c!author + + \blank[1em] + + \titleelement\c!date + + \stopalignment + + + \blank[\roottitleparameter\c!spaceafter] + +\stopsetups + +\setuptitle + [\c!spacebefore={\v!force,2em}, + \c!spaceafter={1.5em}, + \c!align=\v!middle, + \c!pagestate=\v!stop, + \c!setups=title:default] + +\setuptitle + [\c!title] + [\c!style=\tfd, + \c!color=] + +\setuptitle + [\c!author,\c!date] + [\c!style=\tfa, + \c!color=] + +\protect + +\continueifinputfile{t-title.mkvi} + +\starttext + +\placetitle + [author=Ben Lee User, + title=How to write a \tex{placetitle} command, + date=\currentdate\space\currenttime] + +\dorecurse{6} + {\startparagraph + \input tufte\par + \stopparagraph} + +\stoptext
\ No newline at end of file |