[NTG-context] XML Processing with Verbatim (VIM-Typing)

[Hans Hagen]

On 2/10/2015 5:59 PM, Andreas Schneider wrote:
> Hello,
>
> as a few other topics on this Mailing List already discussed, it's not
> (easily?) possible to use \starttyping\stoptyping within XML setups. If
> it was "simple" verbatim, there would be a few workarounds.
> However, I want to provide formatted verbatim (i.e. \startJSON
> \stopJSON, after having \definevimtyping[JSON][syntax=javascript]). That
> typing environment will be further customized (by adding text background
> with border, etc.).
>
> I don't see a simple way to work around this without manually
> typesetting the code highlighting (which I don't want. I simply want
> <json>{someCode}</json> inside the XML file).
>
> Is there anything I can do to make this work? Maybe with preparing a
> buffer? (with Lua?)


\startluacode
     function xml.functions.processJSON(t)
         buffers.assign("foo","\\startJSON\n" .. tostring(xml.text(t)) 
.. "\n\\stopJSON")
         context.getbuffer { "foo" }
     end
\stopluacode

\startxmlsetups xml:json
     \pushcatcodetable
     \setcatcodetable\ctxcatcodes
     \xmlfunction{#1}{processJSON}
     \popcatcodetable
\stopxmlsetups

(If needed I can make a better plugin for this ... remind me later this 
year.)

> Thanks in advance, for any help you can provide :-)
>
> -- Minimal Example:
> \usemodule[vim]
> \definevimtyping[JSON][syntax=javascript]
>
> \starttext
>
> \startluacode
>    function xml.functions.processJSON(t)
>      lxml.verbatim(t, "\\startJSON", "\\stopJSON")
>    end
> \stopluacode
>
> \startbuffer[demo]
> <test>
>    <description>
>      <json>{somecode}</json>
>    </description>
> </test>
> \stopbuffer
>
> \startxmlsetups xml:initialize
>    \xmlsetsetup{#1}{test|description|json}{xml:*}
> \stopxmlsetups
>
> \xmlregistersetup{xml:initialize}
>
> \startxmlsetups xml:test
>    \xmlflush{#1}
> \stopxmlsetups
>
> \startxmlsetups xml:description
>    %\xmlsetsetup{xml}{json}{xml:*}
>    \xmlflush{#1}
> \stopxmlsetups
>
> \startxmlsetups xml:json
>    \xmlfunction{#1}{processJSON}
> \stopxmlsetups
>
> \xmlprocessbuffer{main}{demo}{}
>
> \stoptext
> ___________________________________________________________________________________
>
> If your question is of interest to others as well, please add an entry
> to the Wiki!
>
> maillist : ntg-context at ntg.nl /
> http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive  : http://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------