beta 2012.05.11 10:07

17 files changed, 174 insertions, 34 deletions

diff --git a/tex/context/base/anch-bar.mkiv b/tex/context/base/anch-bar.mkiv
index 87f21facd..1dac46b56 100644
--- a/tex/context/base/anch-bar.mkiv
+++ b/tex/context/base/anch-bar.mkiv
@@ -69,6 +69,7 @@
 \setupsidebar
   [\c!rulethickness=2pt,
    \c!rulecolor=red,
+   \c!alternative=0,
    \c!distance=.5\bodyfontsize]
 
 \let\setupsidebars\setupsidebar
@@ -90,6 +91,7 @@
        {self=sidebar:\the\c_anch_sidebars_n,
         linewidth=\sidebarparameter\c!rulethickness,
         linecolor=\sidebarparameter\c!rulecolor,
+        alternative=\sidebarparameter\c!alternative,
         distance=\the\c_anch_sidebars_distance}}%
    \stoppositionoverlay
    \bpos{sidebar:\the\c_anch_sidebars_n}}
@@ -103,11 +105,12 @@
 %D one lua call).
 
 \startMPpositionmethod{mpos:sidebar}
-    \startMPpositiongraphic{mpos:sidebar}{linecolor,linewidth,distance}%
+    \startMPpositiongraphic{mpos:sidebar}{linecolor,linewidth,distance,alternative}%
         if unknown context_apos : input mp-apos.mpiv ; fi ;
         anch_sidebars_draw (
             \MPp\MPbself,\MPp\MPeself,\MPy\MPbself,\MPy\MPeself,\MPh\MPbself,\MPd\MPeself,
-            \MPvar{distance},\MPvar{linewidth},\MPvar{linecolor}
+            \MPx{\textanchor},\MPy{\textanchor},\MPw{\textanchor},\MPh{\textanchor},
+            \MPvar{alternative},\MPvar{distance},\MPvar{linewidth},\MPvar{linecolor}
         ) ;
     \stopMPpositiongraphic
     \MPpositiongraphic{mpos:sidebar}{}%
@@ -138,6 +141,7 @@
   [\v!margin]
   [\c!rulecolor=\s!black,
    \c!rulethickness=\@@karulethickness,
+   \c!alternative=0,
    \c!distance=\dimexpr\leftmargindistance-\@@karulethickness/2\relax]
 
 \definecomplexorsimple\startmarginrule
diff --git a/tex/context/base/anch-bck.mkvi b/tex/context/base/anch-bck.mkvi
index 759b6ada5..8ec056468 100644
--- a/tex/context/base/anch-bck.mkvi
+++ b/tex/context/base/anch-bck.mkvi
@@ -417,6 +417,10 @@
     draw_multi_side
 \stopuseMPgraphic
 
+\startuseMPgraphic{mpos:region:sideline:dashed}
+    draw_multi_side_path dashed evenly ;
+\stopuseMPgraphic
+
 %D As an example we define a grid background:
 
 \definetextbackground
diff --git a/tex/context/base/anch-pgr.mkiv b/tex/context/base/anch-pgr.mkiv
index 8caa09c69..a417d26e3 100644
--- a/tex/context/base/anch-pgr.mkiv
+++ b/tex/context/base/anch-pgr.mkiv
@@ -488,6 +488,8 @@
     \let\dohandleMPpositiongraphicrange\docleanMPpositiongraphicrange
 \to \everycleanpositionaction
 
+\let\dohandleMPpositiongraphicrange\gobblefourarguments
+
 % Helpers:
 
 \def\MPgetposboxes #1#2{\ctxcommand{fetchposboxes("#1","#2",\the\realpageno)}}
diff --git a/tex/context/base/cont-new.mkii b/tex/context/base/cont-new.mkii
index ec14cb9e4..ff5a95a5a 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{2012.05.10 17:00}
+\newcontextversion{2012.05.11 10:07}
 
 %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 a3be92aa7..b8d2b7dad 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{2012.05.10 17:00}
+\newcontextversion{2012.05.11 10:07}
 
 %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 7d4b45c8e..6be315f83 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 cf930e8f9..07aa52736 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 a6011b7e7..e3eb44226 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{2012.05.10 17:00}
+\edef\contextversion{2012.05.11 10:07}
 
 %D For those who want to use this:
 
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index 9f595171e..240bb76cc 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -23,7 +23,7 @@
 %D up and the dependencies are more consistent.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2012.05.10 17:00}
+\edef\contextversion{2012.05.11 10:07}
 
 %D For those who want to use this:
 
diff --git a/tex/context/base/grph-inc.lua b/tex/context/base/grph-inc.lua
index 7377682a9..15aff8925 100644
--- a/tex/context/base/grph-inc.lua
+++ b/tex/context/base/grph-inc.lua
@@ -1081,12 +1081,16 @@ local function makeoptions(options)
     return (to == "table" and concat(options," ")) or (to == "string" and options) or ""
 end
 
-local function runprogram(...)
-    local command = format(...)
-    if trace_conversion or trace_programs then
-        report_inclusion("running %s",command)
+local function runprogram(template,binary,...)
+    local command = format(template,binary,...)
+    if os.which(binary) then
+        if trace_conversion or trace_programs then
+            report_inclusion("running: %s",command)
+        end
+        os.spawn(command)
+    else
+        report_inclusion("program '%s' is not installed, not running: %s",binary,command)
     end
-    os.spawn(command)
 end
 
 -- -- -- eps -- -- --
diff --git a/tex/context/base/l-os.lua b/tex/context/base/l-os.lua
index 911506239..f9bd46e51 100644
--- a/tex/context/base/l-os.lua
+++ b/tex/context/base/l-os.lua
@@ -25,7 +25,7 @@ if not modules then modules = { } end modules ['l-os'] = {
 -- maybe build io.flush in os.execute
 
 local os = os
-local find, format, gsub, upper = string.find, string.format, string.gsub, string.upper
+local find, format, gsub, upper, gmatch = string.find, string.format, string.gsub, string.upper, string.gmatch
 local concat = table.concat
 local random, ceil = math.random, math.ceil
 local rawget, rawset, type, getmetatable, setmetatable, tonumber = rawget, rawset, type, getmetatable, setmetatable, tonumber
@@ -131,9 +131,9 @@ os.type = os.type or (io.pathseparator == ";"       and "windows") or "unix"
 os.name = os.name or (os.type          == "windows" and "mswin"  ) or "linux"
 
 if os.type == "windows" then
-    os.libsuffix, os.binsuffix = 'dll', 'exe'
+    os.libsuffix, os.binsuffix, os.binsuffixes = 'dll', 'exe', { 'exe', 'cmd', 'bat' }
 else
-    os.libsuffix, os.binsuffix = 'so', ''
+    os.libsuffix, os.binsuffix, os.binsuffixes = 'so', '', { '' }
 end
 
 function os.launch(str)
@@ -368,3 +368,36 @@ function os.timezone(delta)
         return 1
     end
 end
+
+local memory = { }
+
+local function which(filename)
+    local fullname = memory[filename]
+    if fullname == nil then
+        local suffix = file.suffix(filename)
+        local suffixes = suffix == "" and os.binsuffixes or { suffix }
+        for directory in gmatch(os.getenv("PATH"),"[^" .. io.pathseparator .."]+") do
+            local df = file.join(directory,filename)
+            for i=1,#suffixes do
+                local dfs = file.addsuffix(df,suffixes[i])
+                if io.exists(dfs) then
+                    fullname = dfs
+                    break
+                end
+            end
+        end
+        if not fullname then
+            fullname = false
+        end
+        memory[filename] = fullname
+    end
+    return fullname
+end
+
+os.which = which
+os.where = which
+
+-- print(os.which("inkscape.exe"))
+-- print(os.which("inkscape"))
+-- print(os.which("gs.exe"))
+-- print(os.which("ps2pdf"))
diff --git a/tex/context/base/s-inf-03.mkiv b/tex/context/base/s-inf-03.mkiv
index c9cfd54a1..1ff4cd0d0 100644
--- a/tex/context/base/s-inf-03.mkiv
+++ b/tex/context/base/s-inf-03.mkiv
@@ -1,6 +1,6 @@
 % \nopdfcompression
 
-% \enablemode[ipad]
+\enablemode[ipad]
 
 \doifmodeelse {ipad} {
 
@@ -10,13 +10,19 @@
 
     \definefont
       [TitlePageFont]
-      [MonoBold at 20pt]
+      [MonoBold at 18pt]
+
+    \setupbodyfont
+      [tt,10pt]
 
 } {
 
     \definefont
       [TitlePageFont]
-      [MonoBold at 26pt]
+      [MonoBold at 24pt]
+
+    \setupbodyfont
+      [tt]
 
 }
 
@@ -41,9 +47,6 @@
   [xtitle]
   [color=darkgreen]
 
-\setupbodyfont
-  [tt]
-
 \setupfootertexts
   [\llap{\goto{\hbox to 5cm{\hss previous}}[previouspage]}%
    \quad\pagenumber\quad
diff --git a/tex/context/base/spac-grd.mkiv b/tex/context/base/spac-grd.mkiv
index af9babe15..487521f6c 100644
--- a/tex/context/base/spac-grd.mkiv
+++ b/tex/context/base/spac-grd.mkiv
@@ -114,8 +114,8 @@
    \ifdim\d_spac_lines_correction_before<\zeropoint\d_spac_lines_correction_before\zeropoint\fi
    \ifdim\d_spac_lines_correction_after <\zeropoint\d_spac_lines_correction_after \zeropoint\fi}
 
-\unexpanded\def\dotopbaselinecorrection{\kern\d_spac_lines_correction_before}
-\unexpanded\def\dobotbaselinecorrection{\kern\d_spac_lines_correction_after }
+%unexpanded\def\dotopbaselinecorrection{\kern\d_spac_lines_correction_before}
+%unexpanded\def\dobotbaselinecorrection{\kern\d_spac_lines_correction_after }
 
 % experiment, todo: proper mkiv mechanism
 %
diff --git a/tex/context/base/spac-ver.lua b/tex/context/base/spac-ver.lua
index 55ba5e7b8..66698a49e 100644
--- a/tex/context/base/spac-ver.lua
+++ b/tex/context/base/spac-ver.lua
@@ -269,6 +269,8 @@ local function floored(n)
     end
 end
 
+-- check variables.none etc
+
 local function snap_hlist(where,current,method,height,depth) -- method.strut is default
     local list = current.list
 --~ print(table.serialize(method))
diff --git a/tex/context/base/spac-ver.mkiv b/tex/context/base/spac-ver.mkiv
index c7d097ccb..23229b650 100644
--- a/tex/context/base/spac-ver.mkiv
+++ b/tex/context/base/spac-ver.mkiv
@@ -467,30 +467,118 @@
 \let\v_spac_lines_around_action_set\relax
 \let\m_spac_lines_around           \empty
 
+% \setvalue{\??linesaround\v!blank  }{\blank}
+% \letvalue{\??linesaround\empty    }\relax
+% \setvalue{\??linesaround\s!unknown}{\blank[\m_spac_lines_around]}
+%
+% \unexpanded\def\startlinecorrection
+%   {\bgroup
+%    \dodoubleempty\spac_lines_start_correction}
+%
+% \def\spac_lines_start_correction[#1][#2]% #2 gobbles spaces
+%   {\edef\m_spac_lines_around{#1}%
+%    \expandafter\let\expandafter\spac_lines_action_around\csname\??linesaround
+%      \ifcsname\??linesaround\m_spac_lines_around\endcsname\m_spac_lines_around\else\s!unknown\fi
+%    \endcsname
+%    \spac_lines_action_around
+%    \startbaselinecorrection
+%    \offbaselinecorrection
+%    \ignorespaces}
+%
+% \unexpanded\def\stoplinecorrection
+%   {\stopbaselinecorrection
+%    \spac_lines_action_around
+%    \egroup}
+
 \setvalue{\??linesaround\v!blank  }{\blank}
-\setvalue{\??linesaround\v!local  }{\setlocalhsize}
 \letvalue{\??linesaround\empty    }\relax
 \setvalue{\??linesaround\s!unknown}{\blank[\m_spac_lines_around]}
 
+\def\spac_lines_action_around % we used to let this one but it's cleaner this way
+  {\csname\??linesaround      % i.e. do it twice
+     \ifcsname\??linesaround\m_spac_lines_around\endcsname\m_spac_lines_around\else\s!unknown\fi
+   \endcsname}
+
 \unexpanded\def\startlinecorrection
-  {\bgroup
-   \dodoubleempty\spac_lines_start_correction}
+  {\endgraf
+   \bgroup
+   \dosingleempty\spac_lines_start_correction}
+
+\unexpanded\def\startlocallinecorrection
+  {\endgraf
+   \bgroup
+   \setlocalhsize
+   \hsize\localhsize
+   \dosingleempty\spac_lines_start_correction}
+
+\def\spac_lines_start_correction
+  {\ifvmode
+     \expandafter\spac_lines_start_correction_yes
+   \else
+     \expandafter\spac_lines_start_correction_nop
+   \fi}
+
+\def\spac_lines_start_correction_nop[#1]%
+  {\vbox\bgroup
+   \ignorespaces
+   \let\spac_lines_stop_correction\spac_lines_stop_correction_nop}
 
-\def\spac_lines_start_correction[#1][#2]% #2 gobbles spaces
+\def\spac_lines_stop_correction_nop
+  {\removeunwantedspaces
+   \egroup}
+
+\newdimen\d_spac_prevdepth
+
+\def\spac_lines_start_correction_yes[#1]%
   {\edef\m_spac_lines_around{#1}%
-   \expandafter\let\expandafter\spac_lines_action_around\csname\??linesaround
-     \ifcsname\??linesaround\m_spac_lines_around\endcsname\m_spac_lines_around\else\s!unknown\fi
-   \endcsname
    \spac_lines_action_around
-   \startbaselinecorrection
-   \offbaselinecorrection
-   \ignorespaces}
+   \d_spac_prevdepth\prevdepth
+   \spac_lines_initialize_corrections
+   \offbaselinecorrection % ???
+   \setbox\scratchbox\vbox\bgroup
+   \ignorespaces
+   \let\spac_lines_stop_correction\spac_lines_stop_correction_yes}
 
-\unexpanded\def\stoplinecorrection
-  {\stopbaselinecorrection
+\unexpanded\def\spac_lines_stop_correction_yes
+  {\removeunwantedspaces
+   \egroup
+   \ifgridsnapping
+     \blank[\v!white]%
+     \snaptogrid\hbox{\box\scratchbox}%
+   \else
+     \ifdim\d_spac_prevdepth<\maxdimen
+       \unless\ifdim\d_spac_prevdepth<\zeropoint
+         \ifdim\d_spac_prevdepth<\strutdp \relax
+           \pushlastnode
+           \ifdim\d_spac_prevdepth>\zeropoint
+             \kern-\d_spac_prevdepth
+           \fi
+           \kern\strutdp
+           \prevdepth\strutdp
+           \poplastnode
+         \fi
+       \fi
+     \fi
+     \ifdim\pagegoal<\maxdimen
+       \blank[\v!white,\the\d_spac_lines_correction_before]% \blank[\v!white]\dotopbaselinecorrection
+     \fi
+     \nointerlineskip % new
+     \dontleavehmode
+     \box\scratchbox
+     \endgraf
+     \blank[\the\d_spac_lines_correction_after]% \dobotbaselinecorrection
+   % \allowbreak % new, otherwise problems when many in a row
+     \prevdepth\strutdp
+   \fi
    \spac_lines_action_around
    \egroup}
 
+\unexpanded\def\stoplinecorrection{\spac_lines_stop_correction}
+
+\let\stoplocallinecorrection\stoplinecorrection
+
+% todo:
+
 \unexpanded\def\correctwhitespace
   {\dowithnextboxcs\correctwhitespacefinish\vbox}
 
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 4ee6cbf9d..8a5cb9254 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 05e586174..98ec8c263 100644
--- a/tex/context/base/status-lua.pdf
+++ b/tex/context/base/status-lua.pdf