added bhook to \SetApparatus

1 files changed, 18 insertions, 5 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 3d490ed..e34dc71 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -2723,6 +2723,8 @@ texts=latin[xml:lang="la"]+\textcolor{red}{;}+
   unknown-choice direction = \PackageError{ekdosis}{unknown
     direction=#1}{`direction' must be either `LR' or `RL'.},
   code sep = \edef\ekdsep{#1},
+  store bhook = \ekd@begin@apparatus,
+  initial bhook = {},
   store ehook = \ekd@end@apparatus,
   initial ehook = {},
   store delim = \ekd@unit@delim,
@@ -2760,6 +2762,14 @@ texts=latin[xml:lang="la"]+\textcolor{red}{;}+
 \NewDocumentCommand{\SetSeparator}{m}{\edef\ekdsep{#1}}
 %    \end{macrocode}
 % \end{macro}
+% \begin{macro}{\SetBeginApparatus}
+%   \cs{SetBeginApparatus}\marg{characters} can be used to append
+%   characters at the beginning of the apparatus block. By default,
+%   nothing is appended:---
+%    \begin{macrocode}
+\NewDocumentCommand{\SetBeginApparatus}{m}{\edef\ekd@begin@apparatus{#1}}
+%    \end{macrocode}
+% \end{macro}
 % \begin{macro}{\SetEndApparatus}
 % \cs{SetEndApparatus}\marg{characters} can be used to append
 % characters at the end of the apparatus block\---such as a full stop,
@@ -3988,10 +3998,12 @@ local texpatttotags = {
    {a="\\icite%s?%[(.-)%]%[(.-)%]{(.-)}", b="%1 <ref target=\"#%3\">%2</ref>"},
    {a="\\icite%s?%[(.-)%]{(.-)}", b="<ref target=\"#%2\">%1</ref>"},
    {a="\\icite%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
-   {a="\\linelabel%s?{(.-)}", b="<anchor xml:id=\"%1\"/>"},
-   {a="\\label%s?{(.-)}", b="<anchor xml:id=\"%1\"/>"},
+   {a="\\linelabel%s?{(.-)}", b="<anchor xml:id=\"#%1\"/>"},
+   {a="\\label%s?{(.-)}", b="<anchor xml:id=\"#%1\"/>"},
    {a="\\v?pageref%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
-   {a="\\v?ref%s?{(.-)}", b="<ptr target=\"#%1\"/>"}
+   {a="\\v?ref%s?{(.-)}", b="<ptr target=\"#%1\"/>"},
+   {a="\\LR%s+{(.-)}", b="%1"},
+   {a="\\RL%s+{(.-)}", b="%1"}
 }
 
 local envtotags = {
@@ -5175,6 +5187,7 @@ function ekdosis.appout()
       if next(apparatuses) == nil then
          -- table.insert(output, "BEGIN")
          table.insert(output, "\\noindent\\csname ekd@default@rule\\endcsname\\NLS{}")
+         table.insert(output, "\\csname ekd@begin@apparatus\\endcsname{}")
 --       table.insert(output, "\\noindent ")
          for i in string.gmatch(t,
                                 "<"..cur_abs_pg
@@ -5191,8 +5204,8 @@ function ekdosis.appout()
          local n = 1
          while apparatuses[n]
          do
-            if string.match(t, "<"..cur_abs_pg..
-                               cur_alignment_patt
+            if string.match(t, "<"..cur_abs_pg
+                               ..cur_alignment_patt
                                ..curcol.."%-"..n..">.-</"
                                ..cur_abs_pg
                                ..cur_alignment_patt