1 files changed, 120 insertions, 0 deletions
diff --git a/tex/context/modules/mkiv/m-hemistich.mkiv b/tex/context/modules/mkiv/m-hemistich.mkiv
new file mode 100644
index 000000000..7a849d415
--- /dev/null
+++ b/tex/context/modules/mkiv/m-hemistich.mkiv
@@ -0,0 +1,120 @@
+%D \module
+%D   [       file=m-hemistich,
+%D        version=2013.08.26,
+%D          title=\CONTEXT\ Extra Modules,
+%D       subtitle=Hemistiches,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D This is an experimental module for Idris. More is possible but not now.
+
+\unprotect
+
+\installcorenamespace{hemistich}
+
+\installcommandhandler \??hemistich {hemistich} \??hemistich
+
+\setuphemistich
+  [\c!width=\v!local,
+   \c!distance=4\emwidth,
+   \c!separator=\vl\hskip.25em\vl]
+
+\unexpanded\def\hemistiches
+  {\dosingleempty\dohemistiches}
+
+\unexpanded\def\dohemistiches
+  {\dodohemistiches\empty}
+
+\unexpanded\def\dodohemistiches#1[#2]#3#4%
+  {\dontleavehmode
+   \begingroup
+   \doifelseassignment{#2}
+     {\edef\currenthemistich{#1}%
+      \setupcurrenthemistich[#2]}
+     {\def\currenthemistich{#2}}%
+   \doifelse{\hemistichparameter\c!width}\v!local
+     {\scratchwidth\availablehsize}
+     {\scratchwidth\hemistichparameter\c!width\relax}%
+   \spaceskip\zeropoint\s!plus\plusone\s!fill\relax
+   \dostarttagged\t!division\currenthemistich
+   \hbox to \scratchwidth\bgroup
+     \scratchwidth.5\dimexpr\scratchwidth-\hemistichparameter\c!distance\relax
+     \hbox to \scratchwidth\bgroup
+       \dostarttagged\t!construct\c!lefttext
+       \usehemistichstyleandcolor\c!leftstyle\c!leftcolor#3%
+       \dostoptagged
+     \egroup
+     \hss
+     \begingroup
+       \dostarttagged\t!construct\c!separator
+       \usehemistichstyleandcolor\c!separatorstyle\c!separatorcolor
+       \hemistichparameter\c!separator
+       \dostoptagged
+     \endgroup
+     \hss
+     \hbox to \scratchwidth\bgroup
+       \dostarttagged\t!construct\c!righttext
+       \usehemistichstyleandcolor\c!rightstyle\c!rightcolor#4%
+       \dostoptagged
+     \egroup
+   \egroup
+   \dostoptagged
+   \endgroup}
+
+\unexpanded\def\hemistichescaesura#1#2#3%
+  {\dodohemistiches\empty[\c!separator={#2}]{#1}{#3}}
+
+\appendtoks
+    \setvalue{\currenthemistich}{\dohemistiches{\currenthemistich}}%
+\to \everydefinehemistich
+
+\protect
+
+\continueifinputfile{m-hemistich.mkiv}
+
+\setuphemistich
+  [leftcolor=darkred,
+   separatorcolor=darkgreen,
+   rightcolor=darkblue]
+
+\setupwhitespace
+  [big]
+
+\starttext
+
+% \righttoleft
+
+\hemistichescaesura{left side of the brain}{equals}{right side of the brain}
+
+\hemistiches{left side of the brain}{right side of the brain}
+
+\startitemize
+    \startitem
+        \hemistiches{left side of the brain}{right side of the brain}
+        \startitemize
+            \startitem
+                \hemistiches{left side of the brain}{right side of the brain}
+                \startitemize
+                    \startitem
+                        \hemistiches{left side of the brain}{right side of the brain}
+                    \stopitem
+                \stopitemize
+            \stopitem
+        \stopitemize
+        \startitem
+            \hemistiches{left side of the brain}{right side of the brain}
+        \stopitem
+    \stopitem
+\stopitemize
+
+\startitemize
+\item \hemistiches{left side of the brain}{right side of the brain}
+\stopitemize
+
+\stoptext
+