From 9c3a14611b25cbec35402819235607439d02be28 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Thu, 28 Mar 2019 18:14:14 +0100
Subject: testing expansion within \lem and \rdg

---
 ekdosis.dtx | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'ekdosis.dtx')

diff --git a/ekdosis.dtx b/ekdosis.dtx
index c4a706f..79c74a4 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -360,7 +360,7 @@ Running "make install" installs the files in the local TeX tree.
     \luastringN{#3})}
 }
 \NewDocumentCommand{\getsiglum}{m}{%
-  \luadirect{tex.sprint(ekdosis.getsiglum(\luastringN{#1}))}
+  \luadirect{tex.sprint(ekdosis.getsiglum(\luastringN{#1}))}%
 }
 %    \end{macrocode}
 % Add a \hologo{(La)TeX} command to be processed as a |TEI xml| tag:
@@ -460,7 +460,15 @@ choice nolem={false,,true}][1]{%
       \ifcommandkey{wit}{ \getsiglum{\commandkey{wit}}}{}%
       \ifcommandkey{postwit}{ \commandkey{postwit}}{}:%
     }}%
-|\fi|}
+  |\fi|}
+\define@key[ekd]{lemma}{wit}{\getsiglum{#1}}
+\define@key[ekd]{lemma}{tchic}{#1}
+\presetkeys[ekd]{lemma}{wit={},tchic={}}{}
+\def\mgetsiglum#1{\setkeys[ekd]{lemma}[tchic]{#1}}
+\def\mtchic#1{\setkeys[ekd]{lemma}[wit]{#1}}
+\NewDocumentCommand{\mrdg}{O{} +m}{%
+  \append@app{#2 \mtchic{#1}\mgetsiglum{#1}\mtchic{#1}}%
+}
 \newkeycommand+[\|]{\rdg}[wit, alt, pre, post, prewit, postwit][1]{%
   |\ifbool{al@rlmode}|%
   {|\append@app|{%
-- 
cgit v1.2.3

