beta 2011.08.23 12:04

21 files changed, 57 insertions, 51 deletions

diff --git a/tex/context/base/buff-ini.mkiv b/tex/context/base/buff-ini.mkiv
index 256d7f64a..cbd53c040 100644
--- a/tex/context/base/buff-ini.mkiv
+++ b/tex/context/base/buff-ini.mkiv
@@ -151,7 +151,16 @@
 
 \definebuffer[\v!hiding] \setupbuffer[\v!hiding][\c!before=,\c!after=]
 
-\let\processTEXbuffer\getbuffer % handy synonym
+% \let\processTEXbuffer\getbuffer % handy synonym
+
+\unexpanded\def\processTEXbuffer
+  {\dosingleempty\doprocessTEXbuffer}
+
+\def\doprocessTEXbuffer[#1]%
+  {\pushcatcodetable
+   \catcodetable\ctxcatcodes
+   \getbuffer[#1]%
+   \popcatcodetable}
 
 \setupbuffer
   [\c!before=,
diff --git a/tex/context/base/cont-new.mkii b/tex/context/base/cont-new.mkii
index 64e8683b9..5fb5670d0 100644
--- a/tex/context/base/cont-new.mkii
+++ b/tex/context/base/cont-new.mkii
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2011.08.21 18:42}
+\newcontextversion{2011.08.23 12:04}
 
 %D This file is loaded at runtime, thereby providing an
 %D excellent place for hacks, patches, extensions and new
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index d18ac6e38..0f5bb0d96 100644
--- a/tex/context/base/cont-new.mkiv
+++ b/tex/context/base/cont-new.mkiv
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2011.08.21 18:42}
+\newcontextversion{2011.08.23 12:04}
 
 %D This file is loaded at runtime, thereby providing an
 %D excellent place for hacks, patches, extensions and new
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index c04f17305..f53ba87b3 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
diff --git a/tex/context/base/context-version.png b/tex/context/base/context-version.png
index ce32261f6..38a66bac9 100644
--- a/tex/context/base/context-version.png
+++ b/tex/context/base/context-version.png
diff --git a/tex/context/base/context.mkii b/tex/context/base/context.mkii
index bac2a1d6b..4dcb714a5 100644
--- a/tex/context/base/context.mkii
+++ b/tex/context/base/context.mkii
@@ -20,7 +20,7 @@
 %D your styles an modules.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2011.08.21 18:42}
+\edef\contextversion{2011.08.23 12:04}
 
 %D For those who want to use this:
 
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index 7db364025..e2cc12234 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -20,7 +20,7 @@
 %D your styles an modules.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2011.08.21 18:42}
+\edef\contextversion{2011.08.23 12:04}
 
 %D For those who want to use this:
 
diff --git a/tex/context/base/lxml-ini.mkiv b/tex/context/base/lxml-ini.mkiv
index d044aaf75..31cf63948 100644
--- a/tex/context/base/lxml-ini.mkiv
+++ b/tex/context/base/lxml-ini.mkiv
@@ -26,7 +26,7 @@
 \registerctxluafile{lxml-dir}{1.001} % ctx hacks
 
 
-\unprotect
+\unprotect % todo \!!bs \!!es
 
 \def\c!entities{entities} % to be internationalized
 
diff --git a/tex/context/base/pack-rul.mkiv b/tex/context/base/pack-rul.mkiv
index 70d450c2e..c6743117c 100644
--- a/tex/context/base/pack-rul.mkiv
+++ b/tex/context/base/pack-rul.mkiv
@@ -885,6 +885,8 @@
    \getparameters[\@@framed][#2]% here !
    \dodolocalframed}
 
+% will probably move
+
 \def\installinheritedframed#1%
   {\normalexpanded{\doinstallinheritedframed
      \expandafter\noexpand\csname current#1\endcsname
@@ -908,6 +910,12 @@
       \let\framedparameterhash#3%
       \dodolocalframed}}
 
+\unexpanded\def\installframedcommandhandler#1#2#3%
+  {\installcommandhandler{#1}{#2}{#3}%
+   \installinheritedframed{#2}}
+
+% done
+
 \def\c!fr!analyze{fr:analyze} % private option
 
 % we can make macros for the offset, width, and height branches or do an \csname
@@ -2699,9 +2707,7 @@
 %D
 %D The next definition shows the defaults.
 
-\installcommandhandler \??kd {framedtext} \??kd
-
-\installinheritedframed {framedtext}
+\installframedcommandhandler \??kd {framedtext} \??kd
 
 \let\setupframedtexts\setupframedtext
 
diff --git a/tex/context/base/scrn-bar.mkvi b/tex/context/base/scrn-bar.mkvi
index e0b26f087..de67a6ee5 100644
--- a/tex/context/base/scrn-bar.mkvi
+++ b/tex/context/base/scrn-bar.mkvi
@@ -57,9 +57,7 @@
 %D \stoptext
 %D \stoptyping
 
-\installcommandhandler \??ib {interactionbar} \??ib
-
-\installinheritedframed {interactionbar}
+\installframedcommandhandler \??ib {interactionbar} \??ib
 
 \unexpanded\def\interactionbar
   {\dodoubleempty\scrn_bar_direct}
diff --git a/tex/context/base/scrn-but.mkvi b/tex/context/base/scrn-but.mkvi
index 67b92ce7a..7ee9f5473 100644
--- a/tex/context/base/scrn-but.mkvi
+++ b/tex/context/base/scrn-but.mkvi
@@ -44,9 +44,7 @@
 %D
 %D \showsetup{setupbuttons}
 
-\installcommandhandler \??bt {button} \??bt
-
-\installinheritedframed {button}
+\installframedcommandhandler \??bt {button} \??bt
 
 \let\setupbuttons\setupbutton
 
@@ -318,9 +316,7 @@
 %D \setupinteractionmenu[right][samepage=none, unknownreference=none]
 %D \stoptyping
 
-\installcommandhandler \??am {interactionmenu} \??am
-
-\installinheritedframed {interactionmenu}
+\installframedcommandhandler \??am {interactionmenu} \??am
 
 \let\setupinteractionmenus\setupinteractionmenu
 
diff --git a/tex/context/base/scrn-fld.mkvi b/tex/context/base/scrn-fld.mkvi
index 452f4ca3c..f25685788 100644
--- a/tex/context/base/scrn-fld.mkvi
+++ b/tex/context/base/scrn-fld.mkvi
@@ -384,9 +384,9 @@
 \installsetuphandler         \??wc {fieldcontentframed}
 \installsetuphandler         \??wt {fieldtotalframed}
 
-\installinheritedframed {fieldlabelframed}
-\installinheritedframed {fieldcontentframed}
-\installinheritedframed {fieldtotalframed}
+\installinheritedframed            {fieldlabelframed}
+\installinheritedframed            {fieldcontentframed}
+\installinheritedframed            {fieldtotalframed}
 
 \unexpanded\def\setupfield {\doquintupleempty\scrn_field_setup_field}
 \unexpanded\def\setupfields{\doquadrupleempty\scrn_field_setup_fields}
@@ -639,9 +639,7 @@
 \newbox  \scrn_tooltip_box_text
 \newcount\scrn_tooltip_n
 
-\installcommandhandler \??wh {tooltip} \??wh
-
-\installinheritedframed {tooltip}
+\installframedcommandhandler \??wh {tooltip} \??wh
 
 \setuptooltip
   [\c!location=\v!right,
diff --git a/tex/context/base/scrn-hlp.mkvi b/tex/context/base/scrn-hlp.mkvi
index f5754bf3c..b1a8a10d4 100644
--- a/tex/context/base/scrn-hlp.mkvi
+++ b/tex/context/base/scrn-hlp.mkvi
@@ -60,9 +60,7 @@
 
 \definesystemattribute[help][public]
 
-\installcommandhandler \??wp {help} \??wp
-
-\installinheritedframed {help}
+\installframedcommandhandler \??wp {help} \??wp
 
 \setuphelp
   [\c!frame=\v!off,
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 2c6e9e21a..96c00b7c7 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index a425dcf9c..0aaf89540 100644
--- a/tex/context/base/status-lua.pdf
+++ b/tex/context/base/status-lua.pdf
diff --git a/tex/context/base/strc-doc.mkiv b/tex/context/base/strc-doc.mkiv
index a677c4d2d..7813eb7f8 100644
--- a/tex/context/base/strc-doc.mkiv
+++ b/tex/context/base/strc-doc.mkiv
@@ -60,8 +60,21 @@
    \c!command=\showstructuredata]
 
 % maybe flags for list, bm, mark
-%
-% hm messed up
+
+\def\structurereferenceprefixon {+}
+\def\structurereferenceprefixoff{-}
+
+\def\setstructurereferenceprefix
+  {\ifx\currentstructurereferenceprefix\empty
+     % nothing
+   \else\ifx\currentstructurereferenceprefix\structurereferenceprefixon
+     \setupglobalreferenceprefix[\currentstructurereference]%
+   \else\ifx\currentstructurereferenceprefix\structurereferenceprefixoff
+     \setupglobalreferenceprefix[]%
+   \else
+     \setupglobalreferenceprefix[\currentstructurereferenceprefix]%
+   \fi\fi\fi
+   \let\currentstructurereferenceprefix\referenceprefix}
 
 \def\dostructurecomponent[#1][#2]% #1=interfaced-settings, #2=optional user data (not yet supported)
   {\begingroup
@@ -115,6 +128,7 @@
      \globallet\currentstructurecoding\s!tex
    \fi
    \setnextinternalreference
+   \setstructurereferenceprefix
    \xdef\currentstructurenumber{\ctxlua{ % todo: combine with next call, adapt marks accordingly
         structures.sections.somelevel {
             references = {
diff --git a/tex/context/base/strc-lst.mkiv b/tex/context/base/strc-lst.mkiv
index bddf90227..09bdd79bf 100644
--- a/tex/context/base/strc-lst.mkiv
+++ b/tex/context/base/strc-lst.mkiv
@@ -23,9 +23,7 @@
 
 \unprotect
 
-\installcommandhandler \??li {list} \??li
-
-\installinheritedframed {list}
+\installframedcommandhandler \??li {list} \??li
 
 \def\donestedlistattributes#1#2% will change
   {\dosetlistattributes#1#2%
diff --git a/tex/context/base/strc-ref.mkiv b/tex/context/base/strc-ref.mkiv
index 02174496e..5800f677f 100644
--- a/tex/context/base/strc-ref.mkiv
+++ b/tex/context/base/strc-ref.mkiv
@@ -728,6 +728,9 @@
      \edef\referenceprefix{\@@rfprefix:}%
    \fi\fi\fi\fi}
 
+\unexpanded\def\setupglobalreferenceprefix[#1]%
+  {\xdef\referenceprefix{#1:}}
+
 %D The most straightforward way of retrieving references is
 %D using \type{\ref}. Consider the reference:
 %D
diff --git a/tex/context/base/strc-sec.mkiv b/tex/context/base/strc-sec.mkiv
index ece7ebb3a..33ab047d0 100644
--- a/tex/context/base/strc-sec.mkiv
+++ b/tex/context/base/strc-sec.mkiv
@@ -283,17 +283,6 @@
 \newconditional\headshownumber
 \newconditional\headisdisplay
 
-\let\headprefix\empty \def\headprefixplus{+}
-
-\def\setheadreference
-  {\edef\headreference      {\headparameter\c!reference}%
-   \edef\headreferenceprefix{\headparameter\c!prefix}%
-   \ifx\headreferenceprefix\empty
-     \let\headreferenceprefix\referenceprefix
-   \else
-     \setupreferenceprefix[\headreferenceprefix]% currenty no pop
-   \fi}
-
 \setvalue{\??nh:\c!incrementnumber:\v!yes  }{\settrue \headdoincrement\settrue \headtolist}
 \setvalue{\??nh:\c!incrementnumber:\v!no   }{\setfalse\headdoincrement\setfalse\headtolist}
 \setvalue{\??nh:\c!incrementnumber:\v!list }{\setfalse\headdoincrement\settrue \headtolist}
@@ -429,8 +418,8 @@
       \c!sectionstopper=\headparameter\c!sectionstopper,
       \c!sectionset=\headparameter\c!sectionset,
       \c!sectionsegments=\headparameter\c!sectionsegments,
-      \c!reference=\headreference,
-      \c!referenceprefix=\headreferenceprefix,
+      \c!reference=\headparameter\c!reference,
+      \c!referenceprefix=\headparameter\c!referenceprefix,
       \c!backreference=,
       \c!command=,
       #2]%
@@ -482,7 +471,6 @@
    %writestatus\m!system{setup: \currenthead,\currentheadcoupling,\currentheadsection,\currentheadlevel}%
    %
    \setautostructurelevel
-   \setheadreference % does not do much currently
    \setheadincrement
    \setheadplacement
    \setheaddisplay
diff --git a/tex/context/base/typo-mar.mkiv b/tex/context/base/typo-mar.mkiv
index c39ddcba9..6e3a8f157 100644
--- a/tex/context/base/typo-mar.mkiv
+++ b/tex/context/base/typo-mar.mkiv
@@ -99,10 +99,8 @@
 %D argument concerns the data, the second the framed. Not sharing the setup is
 %D on purpose: location, offset, alignment and other parameters might clash.
 
-\installcommandhandler \??mc {margindata}   \??mc
-\installcommandhandler \??mf {marginframed} \??mf
-
-\installinheritedframed {marginframed}
+\installcommandhandler       \??mc {margindata}   \??mc
+\installframedcommandhandler \??mf {marginframed} \??mf
 
 \setupmargindata
   [\c!location=\v!left,
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index 4b34ca571..1fb3259b4 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
 -- merged file : luatex-fonts-merged.lua
 -- parent file : luatex-fonts.lua
--- merge date  : 08/21/11 18:42:00
+-- merge date  : 08/23/11 12:04:56
 
 do -- begin closure to overcome local limits and interference