summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2012-07-10 09:52:00 +0200
committerHans Hagen <pragma@wxs.nl>2012-07-10 09:52:00 +0200
commit830b0c94340c7149db68081a90cd1f0fa9705e14 (patch)
tree7239ff124b35519a113601f75dc7cf1b6ddcf1c1
parent180eb8c483d19155754748c35fb22a7d8b105f9d (diff)
downloadcontext-830b0c94340c7149db68081a90cd1f0fa9705e14.tar.gz
beta 2012.07.10 09:52
-rw-r--r--tex/context/base/context-version.pdfbin4143 -> 4141 bytes
-rw-r--r--tex/context/base/context-version.pngbin106410 -> 106433 bytes
-rw-r--r--tex/context/base/status-files.pdfbin24474 -> 24464 bytes
-rw-r--r--tex/context/base/status-lua.pdfbin179540 -> 182732 bytes
-rw-r--r--tex/context/base/strc-doc.lua3
-rw-r--r--tex/context/base/strc-sec.mkiv41
6 files changed, 23 insertions, 21 deletions
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 21be2e324..82301750c 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
Binary files differ
diff --git a/tex/context/base/context-version.png b/tex/context/base/context-version.png
index 66fdaecde..225fefee9 100644
--- a/tex/context/base/context-version.png
+++ b/tex/context/base/context-version.png
Binary files differ
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 1dc219a93..259b6f7cc 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
Binary files differ
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index 45d076779..691db3b2d 100644
--- a/tex/context/base/status-lua.pdf
+++ b/tex/context/base/status-lua.pdf
Binary files differ
diff --git a/tex/context/base/strc-doc.lua b/tex/context/base/strc-doc.lua
index d278107d5..46320eb8c 100644
--- a/tex/context/base/strc-doc.lua
+++ b/tex/context/base/strc-doc.lua
@@ -253,7 +253,8 @@ function sections.somelevel(given)
-- normally these are passed as argument but nowadays we provide several
-- interfaces (we need this because we want to be compatible)
if trace_detail then
- report_structure("name '%s', mapped level '%s', old depth '%s', new depth '%s', reset set '%s'",givenname,mappedlevel,olddepth,newdepth,resetset)
+ report_structure("name '%s', mapped level '%s', old depth '%s', new depth '%s', reset set '%s'",
+ givenname, mappedlevel or "unknown", olddepth, newdepth, resetset)
end
local u = given.userdata
if u then
diff --git a/tex/context/base/strc-sec.mkiv b/tex/context/base/strc-sec.mkiv
index 0eb531832..f67921ce3 100644
--- a/tex/context/base/strc-sec.mkiv
+++ b/tex/context/base/strc-sec.mkiv
@@ -83,9 +83,9 @@
\c!reference=\headparameter\c!reference,
\c!referenceprefix=\headparameter\c!referenceprefix]
-\unexpanded\def\strc_sectioning_register#1#2% #1=interfaced-settings, #2=optional user data (not yet supported)
+\unexpanded\def\strc_sectioning_register#1#2#3% #1=interfaced-settings, #2=optional user data (not yet supported)
{\begingroup
- \setupstructure[#1]%
+ \setupstructure[\c!name={#1},#2]%
\xdef\currentstructurename {\structureparameter\c!name}%
\xdef\currentstructurecoupling {\structureparameter\c!coupling}%
\xdef\currentstructureownnumber {\structureparameter\c!ownnumber}% optional own number
@@ -195,7 +195,7 @@
segments = "\structureparameter\c!sectionsegments",
ownnumber = "\currentstructureownnumber",
},
- userdata = \!!bs\detokenize{#2}\!!es % will be converted to table at the lua end
+ userdata = \!!bs\detokenize{#3}\!!es % will be converted to table at the lua end
}
}}%
\xdef\currentstructurelistnumber{\ctxcommand{addtolist(structures.sections.current())}}%
@@ -758,7 +758,7 @@
\xdef\currentheadsection {\sectionheadsection \currentheadcoupling}%
\xdef\currentheadlevel {\sectionlevel \currentheadsection}%
%
- %writestatus\m!system{setup: \currenthead,\currentheadcoupling,\currentheadsection,\currentheadlevel}%
+ %\writestatus\m!system{setup: \currenthead,\currentheadcoupling,\currentheadsection,\currentheadlevel}%
%
\strc_sectioning_initialize_autolevel
\strc_sectioning_initialize_increment
@@ -773,7 +773,7 @@
%
% we might remove the lower level
%
- % not here, after optional \page: \strc_sectioning_register{#2}{#3}%
+ % not here, after optional \page: \strc_sectioning_register{#1}{#2}{#3}%
%
% \xdef\currentheadcounter{\currentsectioncountervalue}% lua call
%
@@ -785,7 +785,7 @@
\ifconditional\c_strc_sectioning_increment
\ifconditional\c_strc_sectioning_place
\strc_sectioning_before_yes
- \strc_sectioning_register{#2}{#3}% after optional \page
+ \strc_sectioning_register{#1}{#2}{#3}% after optional \page
\strc_sectioning_report
\let\getheadsyncs\theheadsynchonization
\let\getheadtitle\fullheadtitle
@@ -797,13 +797,13 @@
\fi
\strc_sectioning_after_yes
\else\ifconditional\c_strc_sectioning_hidden
- \strc_sectioning_register{#2}{#3}% after optional \page
+ \strc_sectioning_register{#1}{#2}{#3}% after optional \page
\strc_sectioning_report
\let\getheadsyncs\theheadsynchonization
\strc_rendering_place_head_hidden % only something when tracing
\else
\strc_sectioning_before_nop % toegevoegd ivm subpaginanr / tug sheets
- \strc_sectioning_register{#2}{#3}% after optional \page
+ \strc_sectioning_register{#1}{#2}{#3}% after optional \page
\strc_sectioning_report
\let\getheadsyncs\theheadsynchonization
\strc_rendering_place_head_empty % just flush 'm
@@ -812,21 +812,21 @@
\else
\ifconditional\c_strc_sectioning_place
\strc_sectioning_before_yes
- \strc_sectioning_register{#2}{#3}% after optional \page
+ \strc_sectioning_register{#1}{#2}{#3}% after optional \page
\strc_sectioning_report
\let\getheadsyncs\theheadsynchonization
\let\getheadtitle\fullheadtitle
\strc_rendering_place_head_text
\strc_sectioning_after_yes
\else\ifconditional\c_strc_sectioning_hidden
- \strc_sectioning_register{#2}{#3}% after optional \page
+ \strc_sectioning_register{#1}{#2}{#3}% after optional \page
\strc_sectioning_report
\let\getheadsyncs\theheadsynchonization
\strc_rendering_place_head_hidden % only something when tracing
\else
% do nothing / should be vbox to 0pt
\strc_sectioning_before_nop
- \strc_sectioning_register{#2}{#3}% after optional \page
+ \strc_sectioning_register{#1}{#2}{#3}% after optional \page
\strc_sectioning_report
\let\getheadsyncs\theheadsynchonization
\strc_rendering_place_head_empty % just flush 'm
@@ -837,7 +837,7 @@
\setfalse\c_strc_sectioniong_ignore_page
% ignorespaces prevents spaces creeping in when after=\dontleavehmode
\dostarttagged\t!sectioncontent\empty
- \ifconditional\headisdisplay % \ifdisplaysectionhead
+ \ifconditional\headisdisplay
\ignorespaces
\else
\expandafter\GotoPar
@@ -972,7 +972,8 @@
\def\strc_sectioning_check_before#1%
{\ifhmode
- \scratchcounter\lastpenalty\unpenalty % no beauty in this
+ \scratchcounter\lastpenalty
+ \unpenalty % no beauty in this
\ifdim\lastskip=\s_strc_sectioniong_continuous_signal
% no page break
\ifconditional\c_strc_sectioniong_ignore_page
@@ -1039,9 +1040,9 @@
{\sectionlevel{\sectionheadsection{\sectionheadcoupling{#1}}}}
\unexpanded\def\setupheadnumber
- {\dodoubleargument\dosetupheadnumber}
+ {\dodoubleargument\strc_sectioning_setup_number}
-\def\dosetupheadnumber[#1][#2]% todo: reset if at other level
+\def\strc_sectioning_setup_number[#1][#2]% todo: reset if at other level
{\setstructurenumber{\thenamedheadlevel{#1}}{#2}}
\def\currentheadnumber{0} % ==> \currentheadnumber
@@ -1055,15 +1056,15 @@
\def\somenamedheadnumber#1#2{\getsomestructurenumber{\thenamedheadlevel{#1}}{#2}}
\unexpanded\def\headnumber
- {\dodoubleempty\doheadnumber}
+ {\dodoubleempty\strc_sectioning_number}
-\def\doheadnumber[#1][#2]% simple case is just a number
+\def\strc_sectioning_number[#1][#2]% simple case is just a number
{\getsomefullstructurenumber{\iffirstargument\thenamedheadlevel{#1}\fi}{#2}}
-\def\someheadnumber
- {\dodoubleempty\dosomeheadnumber}
+\unexpanded\def\someheadnumber
+ {\dodoubleempty\strc_sectioning_number_some}
-\def\dosomeheadnumber[#1][#2]%
+\def\strc_sectioning_number_some[#1][#2]%
{\dontleavehmode
\begingroup
\edef\currenthead{#1}%