context-title (1feb15)

git-svn-id: svn://tug.org/texlive/trunk@36189 c570f23f-e606-0410-a88d-b1316a301751

8 files changed, 204 insertions, 1 deletions

diff --git a/Master/texmf-dist/doc/context/third/title/README b/Master/texmf-dist/doc/context/third/title/README
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/title/README
diff --git a/Master/texmf-dist/doc/context/third/title/title-doc.pdf b/Master/texmf-dist/doc/context/third/title/title-doc.pdf
new file mode 100644
index 00000000000..faa54f573f2
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/title/title-doc.pdf
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
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 3bfca1acfda..414b7b40522 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -144,7 +144,7 @@ my @TLP_working = qw(
     context-games context-gantt context-gnuplot
     context-letter context-lettrine context-lilypond context-mathsets
     context-notes-zh-cn context-rst context-ruby
-    context-simplefonts context-simpleslides
+    context-simplefonts context-simpleslides context-title
     context-transliterator context-typearea context-typescripts context-vim
     contour contracard convbkmk
     cooking cookingsymbols cool coollist coolstr coolthms cooltooltips
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index 2e0b0bee6c6..b88e63e577e 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -281,6 +281,7 @@ chomp ($Build = `cd $Master/../Build/source && pwd`);
  'context-simplefonts', "&MAKEcopy",
  'context-simpleslides',"&MAKEcopy",
  'context-taspresent',  "&MAKEcopy",
+ 'context-title',	"&MAKEcopy",
  'context-top-ten',     "die 'skipping, overhaul needed per author'",
  'context-transliterator',      "&MAKEcopy",
  'context-typearea',    "&MAKEcopy",
diff --git a/Master/tlpkg/tlpsrc/collection-context.tlpsrc b/Master/tlpkg/tlpsrc/collection-context.tlpsrc
index 8bc038c08cd..79dfb5bf8a2 100644
--- a/Master/tlpkg/tlpsrc/collection-context.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-context.tlpsrc
@@ -33,6 +33,7 @@ depend context-rst
 depend context-ruby
 depend context-simplefonts
 depend context-simpleslides
+depend context-title
 depend context-transliterator
 depend context-typearea
 depend context-typescripts
diff --git a/Master/tlpkg/tlpsrc/context-title.tlpsrc b/Master/tlpkg/tlpsrc/context-title.tlpsrc
new file mode 100644
index 00000000000..80e71c2e536
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/context-title.tlpsrc
@@ -0,0 +1,2 @@
+category ConTeXt
+depend context