Source Browser ?

1
%D \module
2
%D   [       file=math-inc,
3
%D        version=2018.06.23,
4
%D          title=\CONTEXT\ Math Macros,
5
%D       subtitle=XML inclusion,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
\writestatus
{
loading
}{
ConTeXt
 
Math
 
Macros
 
/
 
XML
 
inclusion
}
15
16
\registerctxluafile
{
math
-
inc
}{}
17
18
%D I had some doubt about including this in \CONTEXT\ but it might serve some users
19
%D anyway. It's always the question to what extent one can be really roundtrip. I
20
%D might improve it when I need it.
21
22
% Talking about creating from a source ... June Lee's transcription of
23
% Close to You by Jacob Collier is an amazing example:
24
%
25
% https://www.youtube.com/watch?v=hdBVN-HMuqI
26
27
\unprotect
28
29
\definesymbol
[
mmlattachment
][
{
\infofont
\darkred
  
mml
}
]
30
\definesymbol
[
mmlcomment
]
   
[
{
\infofont
\darkblue
 
mml
}
]
31
32
\unexpanded
\def
\lxml_add_mml_blob
#
1
#
2
%
33  
{
\relax
34   
\clf_xmlformulatobuffer
\number
\c_strc_formulas_n
{
temp
-
xml
-
export
}
%
35   
#
2
%
36     
[
\c!symbol
=#
1
,
%
37      
\c!space
=
\v!yes
,
%
38      
\c!buffer
=
temp
-
xml
-
export
,
%
39      
\c!name
=
{
formula
-
\number
\c_strc_formulas_n
.
xml
}
]
%
40   
\relax
}
41
42
\unexpanded
\def
\xmlattachmml
43  
{
\iftrialtypesetting
 
\else
 
\ifexporting
 
\iflocation
44     
\dostarttagged
\t!ignore
\empty
45       
\lxml_add_mml_blob
{
mmlattachment
}
\attachment
46     
\dostoptagged
47   
\fi
 
\fi
 
\fi
}
48
49
\unexpanded
\def
\xmlcommentmml
50  
{
\iftrialtypesetting
 
\else
 
\ifexporting
 
\iflocation
51     
\dostarttagged
\t!ignore
\empty
52       
\lxml_add_mml_blob
{
mmlcomment
}
\comment
53     
\dostoptagged
54   
\fi
 
\fi
 
\fi
}
55
56
%D This kind of feature creep is not yet configurable, nor documented.
57
58
\unexpanded
\def
\xmladdmmlsource
59  
{
\iftrialtypesetting
 
\else
 
\ifexporting
 
\iflocation
60     
\dostarttagged
\t!ignore
\empty
61     
\inleftmargin
{
%
62       
\lxml_add_mml_blob
{
mmlattachment
}
\attachment
63       
\quad
64       
\lxml_add_mml_blob
{
mmlcomment
}
\comment
65     
}
%
66     
\dostoptagged
67   
\fi
 
\fi
 
\fi
}
68
69
\protect
 
\endinput
70