summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2014-10-09 15:22:00 +0530
committerHans Hagen <pragma@wxs.nl>2014-10-09 15:22:00 +0530
commit90544dcdefa0378a07533f565cf491aac7ee057c (patch)
tree8abc43b7cba4bec6fa091f92b9b239afb4eb61ca
parentddf0f923b0fc9037db6368cd1b47786b01f7cbd7 (diff)
downloadcontext-90544dcdefa0378a07533f565cf491aac7ee057c.tar.gz
beta 2014.10.09 15:22garden-master
-rw-r--r--tex/context/base/back-exp.lua27
-rw-r--r--tex/context/base/back-exp.mkiv4
-rw-r--r--tex/context/base/cont-new.mkiv2
-rw-r--r--tex/context/base/context-version.pdfbin4383 -> 4385 bytes
-rw-r--r--tex/context/base/context.mkiv2
-rw-r--r--tex/context/base/font-ctx.lua8
-rw-r--r--tex/context/base/font-lib.mkvi2
-rw-r--r--tex/context/base/font-map.lua2
-rw-r--r--tex/context/base/lpdf-tag.lua4
-rw-r--r--tex/context/base/math-stc.mkvi14
-rw-r--r--tex/context/base/mult-sys.mkiv1
-rw-r--r--tex/context/base/status-files.pdfbin24717 -> 24716 bytes
-rw-r--r--tex/context/base/status-lua.pdfbin333682 -> 333682 bytes
-rw-r--r--tex/context/base/strc-sec.mkiv6
-rw-r--r--tex/context/base/strc-tag.lua1
-rw-r--r--tex/context/base/strc-tag.mkiv4
-rw-r--r--tex/generic/context/luatex/luatex-fonts-merged.lua3
17 files changed, 52 insertions, 28 deletions
diff --git a/tex/context/base/back-exp.lua b/tex/context/base/back-exp.lua
index f3064f51e..e1e17628e 100644
--- a/tex/context/base/back-exp.lua
+++ b/tex/context/base/back-exp.lua
@@ -1561,7 +1561,16 @@ end
do
+ local registered = structures.sections.registered
+ local f_level = formatters[' level="%s"']
+
local function section(result,element,detail,n,fulltag,di)
+
+ local r = registered[detail]
+ if r then
+ result[#result+1] = f_level(r.level)
+ end
+
local data = listdata[fulltag]
if data then
extras.addreference(result,data.references)
@@ -2852,6 +2861,11 @@ local f_d_template = [[
display: %display% ;
}]]
+-- local f_d_template = [[
+-- %element%.%detail%, div.%element%.%detail% {
+-- display: %display% ;
+-- }]]
+
local f_category = formatters["/* category: %s */"]
-- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd" >
@@ -3034,12 +3048,12 @@ local htmltemplate = [[
local tg = c.tg
local ns = c.ns
if ns == "m" then
-if false then
- c.ns = ""
- c.at["xmlns:m"] = nil
-end
- -- elseif tg == "a" then
- -- c.ns = ""
+ if false then -- yes or no
+ c.ns = ""
+ c.at["xmlns:m"] = nil
+ end
+ -- elseif tg == "a" then
+ -- c.ns = ""
else
-- if tg == "tabulatecell" or tg == "tablecell" then
local dt = c.dt
@@ -3356,6 +3370,7 @@ end
-- These are called at the tex end:
+commands.settagsectionlevel = structurestags.setsectionlevel
commands.settagitemgroup = structurestags.setitemgroup
commands.settagsynonym = structurestags.setsynonym
commands.settagsorting = structurestags.setsorting
diff --git a/tex/context/base/back-exp.mkiv b/tex/context/base/back-exp.mkiv
index dc510b2a6..e8b9ef61a 100644
--- a/tex/context/base/back-exp.mkiv
+++ b/tex/context/base/back-exp.mkiv
@@ -89,6 +89,10 @@
\unexpanded\def\dotagtabulatesignal{\dontleavehmode\char\zerocount\ignorespaces}%
\to \everyenableelements
+% \appendtoks
+% \unexpanded\def\dotagsectionlevel{\taggedctxcommand{settagsectionlevel("\currentheadlevel")}}%
+% \to \everyenableelements
+
\appendtoks
\unexpanded\def\dotagsynonym{\taggedctxcommand{settagsynonym("\currentsynonym","\currentsynonymtag")}}%
\to \everyenableelements
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 5730e9d36..177366224 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{2014.10.08 23:31}
+\newcontextversion{2014.10.09 15:22}
%D This file is loaded at runtime, thereby providing an excellent place for
%D hacks, patches, extensions and new features.
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 83121d179..835657da2 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.mkiv b/tex/context/base/context.mkiv
index 4dc1f42a5..d08f95dd4 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -28,7 +28,7 @@
%D up and the dependencies are more consistent.
\edef\contextformat {\jobname}
-\edef\contextversion{2014.10.08 23:31}
+\edef\contextversion{2014.10.09 15:22}
\edef\contextkind {beta}
%D For those who want to use this:
diff --git a/tex/context/base/font-ctx.lua b/tex/context/base/font-ctx.lua
index 51f152baf..b49c16489 100644
--- a/tex/context/base/font-ctx.lua
+++ b/tex/context/base/font-ctx.lua
@@ -57,7 +57,9 @@ local helpers = fonts.helpers
local hashes = fonts.hashes
local currentfont = font.current
-local aglunicodes = fonts.encodings.agl.unicodes
+local encodings = fonts.encodings
+----- aglunicodes = encodings.agl.unicodes
+local aglunicodes = nil -- delayed loading
local nuts = nodes.nuts
local tonut = nuts.tonut
@@ -1445,7 +1447,6 @@ mappings.reset() -- resets the default file
-- => commands
-
local function nametoslot(name)
local t = type(name)
local s = nil
@@ -1454,6 +1455,9 @@ local function nametoslot(name)
if slot then
return slot
end
+ if not aglunicodes then
+ aglunicodes = encodings.agl.unicodes
+ end
slot = aglunicodes[name]
if characters[true][slot] then
return slot
diff --git a/tex/context/base/font-lib.mkvi b/tex/context/base/font-lib.mkvi
index bfd85245c..01a142307 100644
--- a/tex/context/base/font-lib.mkvi
+++ b/tex/context/base/font-lib.mkvi
@@ -19,7 +19,7 @@
\registerctxluafile{font-log}{1.001}
\registerctxluafile{font-con}{1.001}
\registerctxluafile{font-enc}{1.001}
-%registerctxluafile{font-agl}{1.001} % loaded when needed, saves 100K in format
+\registerctxluafile{font-agl}{1.001} % if needed we can comment this and delay loading
\registerctxluafile{font-cid}{1.001} % cid maps
\registerctxluafile{font-map}{1.001}
\registerctxluafile{font-syn}{1.001}
diff --git a/tex/context/base/font-map.lua b/tex/context/base/font-map.lua
index 890e47d3f..e26f28e34 100644
--- a/tex/context/base/font-map.lua
+++ b/tex/context/base/font-map.lua
@@ -206,8 +206,6 @@ local overloads = {
fk = { name = "f_k", unicode = { 0x66, 0x6B } },
}
-require("char-ini")
-
for k, v in next, overloads do
local name = v.name
local mess = v.mess
diff --git a/tex/context/base/lpdf-tag.lua b/tex/context/base/lpdf-tag.lua
index f9ef43818..77c5776e2 100644
--- a/tex/context/base/lpdf-tag.lua
+++ b/tex/context/base/lpdf-tag.lua
@@ -199,11 +199,11 @@ local function makeelement(fulltag,parent,attr)
elseif tg == "mstackertop" or tg == "mstackerbot" or tg == "mstackermid"then
return true
elseif tg == "mstacker" then
-print("get",fulltag)
local p = properties[fulltag]
tg = p and p.subtype or tg
end
- local k, r = pdfarray(), pdfreserveobject()
+ local k = pdfarray()
+ local r = pdfreserveobject()
local a = userproperties[fulltag]
usedmapping[tg] = true
tg = usedlabels[tg] or tg
diff --git a/tex/context/base/math-stc.mkvi b/tex/context/base/math-stc.mkvi
index 73f2c1a7d..158473305 100644
--- a/tex/context/base/math-stc.mkvi
+++ b/tex/context/base/math-stc.mkvi
@@ -399,13 +399,13 @@
% analysis
\ifdim\htdp\scratchboxtwo>\zeropoint
\ifdim\htdp\scratchboxone>\zeropoint
- \dosetelementproperty\s!subtype\t!munderover
+ \dosettagproperty\s!subtype\t!munderover
\else
- \dosetelementproperty\s!subtype\t!munder
+ \dosettagproperty\s!subtype\t!munder
\fi
\else
\ifdim\htdp\scratchboxone>\zeropoint
- \dosetelementproperty\s!subtype\t!mover
+ \dosettagproperty\s!subtype\t!mover
\else
% brrr
\fi
@@ -539,13 +539,13 @@
% analysis
\ifcase#bottom\relax
\ifcase#top\relax
- \dosetelementproperty\s!subtype\t!munderover
+ \dosettagproperty\s!subtype\t!munderover
\else
- \dosetelementproperty\s!subtype\t!mover
+ \dosettagproperty\s!subtype\t!mover
\fi
\else
\ifcase#top\relax
- \dosetelementproperty\s!subtype\t!munder
+ \dosettagproperty\s!subtype\t!munder
\else
% brrr
\fi
@@ -743,7 +743,7 @@
%
\math_stackers_normalize_three
% analysis
- \dosetelementproperty\s!subtype\t!munderover
+ \dosettagproperty\s!subtype\t!munderover
% base
\math_stackers_start_tagged_mid
\math_stackers_middle\bgroup
diff --git a/tex/context/base/mult-sys.mkiv b/tex/context/base/mult-sys.mkiv
index 9b75f332f..3f7a837fc 100644
--- a/tex/context/base/mult-sys.mkiv
+++ b/tex/context/base/mult-sys.mkiv
@@ -322,6 +322,7 @@
\definesystemconstant {designsize}
%definesystemconstant {background}
%definesystemconstant {ucmap}
+\definesystemconstant {level}
%definesystemconstant {property}
%definesystemconstant {overprint}
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 38da726f3..4791ec7e4 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 6c9ac5f42..2eb5f4a46 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-sec.mkiv b/tex/context/base/strc-sec.mkiv
index 5adfeba1e..bce3448cc 100644
--- a/tex/context/base/strc-sec.mkiv
+++ b/tex/context/base/strc-sec.mkiv
@@ -990,10 +990,14 @@
\hskip\s_strc_sectioniong_continuous_signal\relax
\fi}
+% \let\dotagsectionlevel\relax
+
\def\strc_sectioning_before_yes
{\strc_sectioning_check_before\strc_sectioning_handle_page_yes
\headparameter\c!inbetween
- \dostarttagged\t!section\currenthead}
+ \dostarttagged\t!section\currenthead
+% \dotagsectionlevel
+ }
\def\strc_sectioning_before_nop
{\strc_sectioning_check_before\strc_sectioning_handle_page_nop
diff --git a/tex/context/base/strc-tag.lua b/tex/context/base/strc-tag.lua
index 2f8e9ff5d..690f86efd 100644
--- a/tex/context/base/strc-tag.lua
+++ b/tex/context/base/strc-tag.lua
@@ -230,7 +230,6 @@ end
function tags.setaspect(key,value)
local tag = chain[nstack]
if tag then
-print("set",tag)
local p = properties[tag]
if p then
p[key] = value
diff --git a/tex/context/base/strc-tag.mkiv b/tex/context/base/strc-tag.mkiv
index a79b5f80e..bbb0dcddd 100644
--- a/tex/context/base/strc-tag.mkiv
+++ b/tex/context/base/strc-tag.mkiv
@@ -212,12 +212,12 @@
{\setuplanguage[\s!default][\s!righthyphenchar="AD]% for the moment here
\let\startelement\strc_tags_element_start_yes
\let\stopelement \strc_tags_element_stop_yes
- \let\dosetelementproperty\strc_tags_set_aspect_yes}
+ \let\dosettagproperty\strc_tags_set_aspect_yes}
\unexpanded\def\strc_tags_disable_elements
{\let\startelement\strc_tags_element_start_nop
\let\stopelement \strc_tags_element_stop_nop
- \let\dosetelementproperty\strc_tags_set_aspect_nop}
+ \let\dosettagproperty\strc_tags_set_aspect_nop}
% beware: making these unexpanded spoils tables (noalign problem)
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index f316e6acf..14f00406c 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 : 10/08/14 23:31:59
+-- merge date : 10/09/14 15:22:01
do -- begin closure to overcome local limits and interference
@@ -5336,7 +5336,6 @@ local overloads={
fj={ name="f_j",unicode={ 0x66,0x6A } },
fk={ name="f_k",unicode={ 0x66,0x6B } },
}
-require("char-ini")
for k,v in next,overloads do
local name=v.name
local mess=v.mess