2021-02-12 18:48:00

2 files changed, 91 insertions, 0 deletions

diff --git a/tex/context/modules/mkxl/s-characters-combinations.lmt b/tex/context/modules/mkxl/s-characters-combinations.lmt
new file mode 100644
index 000000000..be318eb38
--- /dev/null
+++ b/tex/context/modules/mkxl/s-characters-combinations.lmt
@@ -0,0 +1,30 @@
+if not modules then modules = { } end modules ['s-characters-properties'] = {
+    version   = 1.001,
+    comment   = "companion to s-characters-properties.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+moduledata.characters              = moduledata.characters              or { }
+moduledata.characters.combinations = moduledata.characters.combinations or { }
+
+local context = context
+local ctx_NC  = context.NC
+local ctx_NR  = context.NR
+local ctx_MR  = context.MR
+local ctx_ML  = context.ML
+
+function moduledata.characters.combinations.showcombinations(settings)
+    context.starttabulate { "|l|T|cTw(1em)|T|"  }
+    for k, v in table.sortedhash(characters.verbosemarks) do
+        local m = "with" .. string.gsub(k," ","")
+        ctx_NC() context(k)
+        ctx_NC() context("%U",v)
+        ctx_NC() context("%s",v)
+        ctx_NC() if token.is_defined(m) then context("\\string\\%s",m) end
+        ctx_NC() ctx_NR()
+    end
+    context.stoptabulate()
+end
+
diff --git a/tex/context/modules/mkxl/s-characters-combinations.mkxl b/tex/context/modules/mkxl/s-characters-combinations.mkxl
new file mode 100644
index 000000000..aef466f84
--- /dev/null
+++ b/tex/context/modules/mkxl/s-characters-combinations.mkxl
@@ -0,0 +1,61 @@
+%D \module
+%D   [      file=s-characters-combinations,
+%D        version=2021.02.08
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Character combinations,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\startmodule[characters-combinations]
+
+\registerctxluafile{s-characters-combinations}{autosuffix}
+
+\installmodulecommandluasingle \showcharactercombinations {moduledata.characters.combinations.showcombinations}
+
+\stopmodule
+
+\continueifinputfile{s-characters-combinations.mkxl}
+
+\usemodule[art-01]
+
+\setupbodyfont[dejavu]
+
+\starttext
+
+    \showcharactercombinations
+
+    \page
+
+    \startlines
+    \chr {a acute           }  á  \withacute           a
+    \chr {o double acute    }  ő  \withdoubleacute     o
+    \chr {a grave           }  à  \withgrave           a
+    \chr {o double grave    }  ȍ  \withdoublegrave     o
+    \chr {a circumflex      }  â  \withcircumflex      a
+    \chr {e circumflex below}  ḙ  \withcircumflexbelow e
+    \chr {a diaeresis       }  ä  \withdiaeresis       a
+    \chr {a tilde           }  ã  \withtilde           a
+    \chr {i tilde below     }  ḭ  \withtildebelow      i
+    \chr {a macron          }  ā  \withmacron          a
+    \chr {k line below      }  ḵ  \withlinebelow       k
+    \chr {c cedilla         }  ç  \withcedilla         c
+    \chr {s comma below     }  ş  \withcommabelow      s
+    \chr {z hook below      }  ȥ  \withhookbelow       z
+    \chr {a hook            }  ả  \withhook            a
+    \chr {a ring            }  å  \withring            a
+    \chr {a ring below      }  ḁ  \withringbelow       a
+    \chr {m dot             }  ṁ  \withdot             m
+    \chr {l middle dot      }  ŀ  \withmiddledot       l
+    \chr {m dot below       }  ṃ  \withdotbelow        m
+    \chr {a breve           }  ă  \withbreve           a
+    \chr {a inverted breve  }  ȃ  \withinvertedbreve   a
+    \chr {k caron           }  ǩ  \withcaron           k
+    \chr {o stroke          }  ø  \withstroke          o
+    \stoplines
+
+\stoptext