diff options
| author | Robert Alessi <alessi@robertalessi.net> | 2019-04-08 14:15:50 +0200 |
|---|---|---|
| committer | Robert Alessi <alessi@robertalessi.net> | 2019-04-08 14:15:50 +0200 |
| commit | 6ef534628809195e81acd7250eb340a36ffed11e (patch) | |
| tree | 0e8eea479f686370772887538c2a0217a22d733d /ekdosis.dtx | |
| parent | 20ece9474b43cfdd344add43723fc9651c4ca3e5 (diff) | |
| download | ekdosis-6ef534628809195e81acd7250eb340a36ffed11e.tar.gz | |
\DeclareNewHand only added the last hand. fixed
Diffstat (limited to 'ekdosis.dtx')
| -rw-r--r-- | ekdosis.dtx | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/ekdosis.dtx b/ekdosis.dtx index af96445..2f37a27 100644 --- a/ekdosis.dtx +++ b/ekdosis.dtx | |||
| @@ -705,7 +705,13 @@ function ekdosis.newhand(id, witid, siglum, description) | |||
| 705 | table.insert(idsRend, {xmlid = id, head = siglum}) | 705 | table.insert(idsRend, {xmlid = id, head = siglum}) |
| 706 | table.sort(idsRend, function(a ,b) return(#a.xmlid > #b.xmlid) end) | 706 | table.sort(idsRend, function(a ,b) return(#a.xmlid > #b.xmlid) end) |
| 707 | local indexwit = getindex(witid, listWit) | 707 | local indexwit = getindex(witid, listWit) |
| 708 | listWit[indexwit].handDesc = {xmlid = id, head = siglum, detailsDesc = description} | 708 | -- listWit[indexwit].handDesc = {xmlid = id, head = siglum, detailsDesc = description} |
| 709 | if listWit[indexwit].handDesc == nil | ||
| 710 | then | ||
| 711 | listWit[indexwit].handDesc = {} | ||
| 712 | else | ||
| 713 | end | ||
| 714 | table.insert(listWit[indexwit].handDesc, {xmlid = id, head = siglum, detailsDesc = description}) | ||
| 709 | end | 715 | end |
| 710 | return true | 716 | return true |
| 711 | end | 717 | end |
| @@ -855,12 +861,17 @@ function ekdosis.openteistream() | |||
| 855 | end | 861 | end |
| 856 | if listWit[i].handDesc ~= nil then | 862 | if listWit[i].handDesc ~= nil then |
| 857 | f:write("<physDesc>", "\n") | 863 | f:write("<physDesc>", "\n") |
| 858 | f:write("<handDesc xml:id=\"", listWit[i].handDesc.xmlid, "\">", "\n") | 864 | local j = 1 |
| 859 | f:write("<head>", ekdosis.textotei(listWit[i].handDesc.head), "</head>", "\n") | 865 | while listWit[i].handDesc[j] |
| 860 | if listWit[i].handDesc.detailsDesc == "" then else | 866 | do |
| 861 | f:write("<p>", ekdosis.textotei(listWit[i].handDesc.detailsDesc), "</p>", "\n") | 867 | f:write("<handDesc xml:id=\"", listWit[i].handDesc[j].xmlid, "\">", "\n") |
| 868 | f:write("<head>", ekdosis.textotei(listWit[i].handDesc[j].head), "</head>", "\n") | ||
| 869 | if listWit[i].handDesc[j].detailsDesc == "" then else | ||
| 870 | f:write("<p>", ekdosis.textotei(listWit[i].handDesc[j].detailsDesc), "</p>", "\n") | ||
| 871 | end | ||
| 872 | j = j + 1 | ||
| 873 | f:write("</handDesc>", "\n") | ||
| 862 | end | 874 | end |
| 863 | f:write("</handDesc>", "\n") | ||
| 864 | f:write("</physDesc>", "\n") | 875 | f:write("</physDesc>", "\n") |
| 865 | else end | 876 | else end |
| 866 | if listWit[i].history ~= nil then | 877 | if listWit[i].history ~= nil then |