XML to ConTeXt: converting date attribute from ISO date

From: Mike O'Connor <ipso.vocat@gmail.com>
To: ntg-context@ntg.nl
Subject: XML to ConTeXt: converting date attribute from ISO date
Date: Wed, 15 Aug 2018 18:27:32 +0800	[thread overview]
Message-ID: <16FB1586-A34F-488F-807C-4D4C15826261@gmail.com> (raw)
In-Reply-To: <60D682CA-6264-492A-8DC5-171F28B341D0@gmail.com>

[-- Attachment #1.1: Type: text/plain, Size: 1973 bytes --]

G’Day,

Having a first go at converting TEI XML to ConTeXt.  

Steep learning curve, but easier (for me) than XSLT, and first results were amazing.  Using http://www.pragma-ade.com/general/manuals/xml-mkiv.pdf <http://www.pragma-ade.com/general/manuals/xml-mkiv.pdf> as a guide.

Currently stuck on converting an ISO format date (eg. 1908-01-10) into something more readable (eg. 10 January 1908) in the output.  I presume I should create a function (?luacode) that can take any ISO value and output the readable form.  The following works but seems to me inefficient.

Grateful for any pointers.

Mike

Here is my MWE:

\startbuffer[demo]
<TEI>
    <text>
        <body>
            <div type="letter">
                <opener>
                    <date when-iso="1908-01-10" type="divDate">10.I.08</date>
                </opener>
                <closer>
                	<date when-iso="1908-03-19" type="secondDate">19 Mar '08</date>
                </closer>
            </div>
        </body>
    </text>
</TEI>
\stopbuffer

\startxmlsetups xml:initialize
	\xmlsetsetup{#1}{date}{xml:date}
\stopxmlsetups

\xmlregistersetup{xml:initialize}

\startxmlsetups xml:date

	\xmldoifelse {#1}{.[@type='divDate']} {
		\def\docdate{\ctxlua{
			local tyear = string.sub('\xmlatt{#1}{when-iso}',1,4)
			local tmonth = string.sub('\xmlatt{#1}{when-iso}',6,7)
			local tday = string.sub('\xmlatt{#1}{when-iso}',9,10)
			context.date{d = tday, m = tmonth, y = tyear}
		}}

    	\docdate[day,month,year] = Document Date \par
    } {
		\def\docdate{\ctxlua{
			local tyear = string.sub('\xmlatt{#1}{when-iso}',1,4)
			local tmonth = string.sub('\xmlatt{#1}{when-iso}',6,7)
			local tday = string.sub('\xmlatt{#1}{when-iso}',9,10)
			context.date{d = tday, m = tmonth, y = tyear}
		}}    

    	\docdate[day,month,year] = Event Date\par
	}
\stopxmlsetups

\starttext
	\xmlprocessbuffer{main}{demo}{}
\stoptext

[-- Attachment #1.2: Type: text/html, Size: 5408 bytes --]

[-- Attachment #2: Type: text/plain, Size: 492 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________