Some tweaks

This adds a new argument, `label`, and makes use of the referencing mechanism of Typst.

.gitignore

@@ -1 +0,0 @@
-*.pdf

CHANGELOG.md

@@ -1,10 +1,8 @@
 # Changelog
 
-## 0.3.0
-* Added `label` and `label-supplement` arguments to `gloss` function
-* Added borders around code + rendered example in documentation pdf
 
-## 0.2.0
+## 0.2.0 (upcoming)
+
 * renamed `numbered_gloss` to `numbered-gloss`, `gloss_count` to `gloss-count`, in light of the
 Typst style preference for kebab-case. Also renamed their arguments to use snake-case as well.
 * Documented standard abbreviations

README.md

@@ -17,15 +17,11 @@ The definitions intended for use by end users are the `gloss` and
 
 # Contributing
 
-## Repositories
-
 The canonical repository for this project is on the [Gitea
-instance](https://code.everydayimshuflin.com/greg/typst-lepizig-glossing).
+instance](https://code.everydayimshuflin.com/greg/typst-lepizig-glossing). The
-
+repository is also [mirrored on
-There is also a [Github mirror](https://github.com/neunenak/typst-leipzig-glossing/), and
+Github](https://github.com/neunenak/typst-leipzig-glossing/). Bug reports and
-a [Radicle](https://radicle.xyz) mirror available at <rad://z2j7vQLS3EtQbPkrzi7Tn2XR7YWLw>.
+code contributions are welcome from all users.
-
-Bug reports and code contributions are welcome from all users.
 
 ## License
 This library uses the MIT license; see `LICENSE.txt`.
@@ -34,6 +30,3 @@ This library uses the MIT license; see `LICENSE.txt`.
 
 Thanks to [Bethany E. Toma](https://github.com/betoma) for a number of
 suggestions and improvements.
-
-Thanks to [Maja Abramski-Kronenberg](https://github.com/rwmpelstilzchen) for
-the labeling functionality.

abbreviations.typ

@@ -94,10 +94,10 @@
 // Accepts a callback that accepts the state of the `used-abbreviations`
 // dictionary at the end of the document. Also an additional debug parameter
 #let with-used-abbreviations(callback) = {
-  context {
+locate(loc => {
-    let final_used-abbreviations = used-abbreviations.final()
+    let final_used-abbreviations = used-abbreviations.final(loc)
     callback(final_used-abbreviations)
-  }
+  })
 }
 
 #let render-abbreviation(symbol) = smallcaps(lower(symbol))

documentation.typ

@@ -1,10 +1,10 @@
 #set document(title: "typst leipzig-glossing documentation")
-#import "leipzig-gloss.typ": abbreviations, example, example-count, gloss, numbered-example 
+#import "leipzig-gloss.typ": abbreviations, gloss, numbered-gloss, gloss-count
-
-#set heading(numbering: "1.")
 
 #show link: x => underline[*#x*]
 
+#let codeblock-old(contents) = block(fill: luma(230), inset: 8pt, radius: 4pt, breakable: false, contents)
+
 #let codeblock(contents, addl-bindings: (:), unevaled-first-line: none) = {
     let full-contents = if unevaled-first-line != none {
         unevaled-first-line + "\n" + contents
@@ -12,15 +12,13 @@
         contents
     }
 
-    block(stroke: 0.5pt + black, inset: 4pt, width: 100%, breakable: false)[
+    eval(contents, mode: "markup", scope: (gloss: gloss, numbered-gloss: numbered-gloss) + addl-bindings)
-        #eval(contents, mode: "markup", scope: (gloss: gloss, example: example, numbered-example: numbered-example) + addl-bindings)
+    block(fill: luma(230), inset: 8pt, radius: 4pt, breakable: false, raw(full-contents, lang: "typst"))
-        #block(fill: luma(230), inset: 8pt, radius: 4pt, breakable: false, width: 100%, raw(full-contents, lang: "typst"))
-    ]
 }
 
 // Abbreviations used in this document
 
-#import abbreviations: poss, prog, sg, pl, sbj, obj, fut, neg, obl, gen, com, ins, all, pst, inf, indf, def, dem, pred
+#import abbreviations: poss, prog, sg, pl, sbj, obj, fut, neg, obl, gen, com, ins, all, pst, inf
 #import abbreviations: art, dat, du, A, P, prf
 
 #let fmnt = abbreviations.emit-abbreviation("FMNT")
@@ -57,8 +55,10 @@ visit the module's Github repository
 
 = Basic glossing functionality
 
+
 As a first example, here is a gloss of a text in Georgian, along with the Typst code used to generate it:
 
+
 #codeblock(
 "#gloss(
     header: [from \"Georgian and the Unaccusative Hypothesis\", Alice Harris, 1982],
@@ -68,20 +68,134 @@ As a first example, here is a gloss of a text in Georgian, along with the Typst
     translation: [The child burst out crying],
 )", unevaled-first-line: "#import \"leipzig-gloss.typ\": gloss")
 
-The function `gloss()` typesets _bare_ interlinear glosses (including styling, see @styling and @additional-lines). Normally when adding linguistic examples use the `example()` function, which calls `gloss()` internally and includes functionality that has to do with linguistic examples: numbering, labelling/referencing and sub-examples. `gloss()` is to be used when only the basic function of typesetting interlinear glosses is needed. Unlike `gloss()`, the function `example()` does not take the different parameters directly, but takes a list of dictionaries whose keys and values correspond to `gloss()`’s parameters (with added options such as `label` and `numbering`). It also indents the text even when numbering is not enabled:
+
+And an example for English which exhibits some additional styling, and uses imports from another file
+for common glossing abbreviations:
 
 #codeblock(
-"#example(
+"#gloss(
-  (
+  source: ([I'm], [eat-ing], [your], [head]),
-    header: [from \"Georgian and the Unaccusative Hypothesis\", Alice Harris, 1982],
+  source-style: (item) => text(fill: red)[#item],
-    source: ([ბავშვ-ი], [ატირდა]),
+  morphemes: ([1#sg.#sbj\=to.be], [eat-#prog], [2#sg.#poss], [head]),
-    transliteration: ([bavšv-i], [aṭirda]),
+  morphemes-style: text.with(size: 10pt, fill: blue),
-    morphemes: ([child-#smallcaps[nom]], [3S/cry/#smallcaps[incho]/II]),
+  translation: text(weight: \"semibold\")[I'm eating your head!],
-    translation: [The child burst out crying],
+  translation-style: (item) => [\"#item\"],
 )
-)")
+", addl-bindings: (poss: poss, prog: prog, sg: sg, sbj: sbj))
 
-== Styling <styling>
+
+The `#gloss` function has three pre-defined parameters for glossing levels:
+`source`, `transliteration`, and `morphemes`. It also has two parameters
+for unaligned text: `header` for text that precedes the gloss, and
+`translation` for text that follows the gloss.
+
+
+The `morphemes` param can be skipped, if you just want to provide a source
+text and translation, without a gloss:
+
+#codeblock(
+"#gloss(
+    source: ([Trato de entender, debo comprender, qué es lo que ha hecho conmigo],),
+    source-style: emph,
+    translation: [I try to understand, I must comprehend, what she has done with me],
+)
+")
+
+
+Note that it is still necessary to wrap the `source` argument in an array of length one.
+
+Here is an example of a lengthy gloss that forces a line break:
+
+// adapted from https://brill.com/fileasset/downloads_static/static_publishingbooks_formatting_glosses_linguistic_examples.pdf
+#codeblock(
+"#gloss(
+    source:    ([Ich],[arbeite],[ein],[Jahr],[um],[das],[Geld], [zu],[verdienen,],[das], [dein],[Bruder], [an],[einem],[Wochenende],[ausgibt.]),
+    source-style: text.with(weight: \"bold\"),
+    morphemes: ([I],  [work],[  one], [year],[to],[the],[money],[to],[earn,],     [that],[your],[brother],[on],[one],  [weekend],   [spends.]),
+    translation: [\"I work one year to earn the money that your brother spends in one weekend\"]
+)", addl-bindings: (poss: poss, prog: prog, sg: sg, sbj: sbj))
+
+
+To add more than three glossing lines, there is an additional parameter
+`additional-lines` that can take a list of arbitrarily many more glossing
+lines, which will appear below those specified in the aforementioned
+parameters:
+
+#codeblock(
+"#gloss(
+    header: [Hunzib (van den Berg 1995:46)],
+    source: ([ождиг],[хо#super[н]хе],[мукъер]),
+    transliteration: ([oʒdig],[χõχe],[muqʼer]),
+    morphemes: ([ož-di-g],[xõxe],[m-uq'e-r]),
+    additional-lines: (
+        ([boy-#smallcaps[obl]-#smallcaps[ad]], [tree(#smallcaps[g4])], [#smallcaps[g4]-bend-#smallcaps[pret]]),
+        ([at boy], [tree], [bent]),
+    ),
+    translation: [\"Because of the boy, the tree bent.\"]
+)
+")
+
+//TODO add a custom numbering system that can handle example 18a-c of Kartvelian Morphosyntax and Number Agreement
+== Numbering Glosses
+
+The `gloss` function takes a boolean parameter `numbering` which will add an incrementing
+count to each gloss. A function `numbered-gloss` is exported for convenience; this is
+defined as simply `#let numbered-gloss = gloss.with(numbering: true)`, and is called with the
+same arguments as `gloss`:
+
+
+#codeblock(
+"#gloss(
+    source: ([გვ-ფრცქვნ-ი],),
+    transliteration: ([gv-prtskvn-i],),
+    morphemes: ([1#pl.#obj\-peel-#fmnt],),
+    translation: \"You peeled us\",
+    numbering: true,
+)
+
+#numbered-gloss(
+    source: ([მ-ფრცქვნ-ი],),
+    transliteration: ([m-prtskvn-i],),
+    morphemes: ([1#sg.#obj\-peel-#fmnt],),
+    translation: \"You peeled me\",
+)
+
+", addl-bindings: (pl: pl, obj: obj, sg: sg, fmnt: fmnt))
+
+The displayed number for numbered glosses is iterated for each numbered gloss
+that appears throughout the document. Unnumbered glosses do not increment the
+counter for the numbered glosses.
+
+The gloss count is controlled by the Typst counter variable `gloss-count`. This
+variable can be imported from the `leipzig-gloss` package and manipulated using the
+standard Typst counter functions to control gloss numbering:
+
+#codeblock(
+"#gloss-count.update(20)
+
+#numbered-gloss(
+    header: [from _Standard Basque: A Progressive Grammar_ by Rudolf de Rijk, quoting P. Charriton],
+    source: ([Bada beti guregan zorion handi baten nahia.],),
+    translation: [There always is in us a will for a great happiness.],
+)", addl-bindings: (gloss-count: gloss-count))
+
+References to individual examples can be achieved using the `label` argument and the referencing mechanism of Typst:
+
+#codeblock(
+"See @sorcerers:
+
+#numbered-gloss(
+    header: [Middle Welsh; modified from _Grammatical number in Welsh_ (1999) by Silva Nurmio (§~2.1.1)],
+    source: ([ac], [ny], [allvs], [y], [dewinyon], [atteb], [idav]),
+    morphemes: ([and], [#neg], [be_able.#smallcaps[pret].3#sg], [#smallcaps[def]], [sorcerer.#pl], [answer.#smallcaps[inf]], [to.3#sg.#smallcaps[m]]),
+    translation: [and the sorcerers could not answer him],
+    label: \"sorcerers\",
+    label-suppliment: [Example]
+)
+
+As we have seen in @sorcerers, […].", addl-bindings: (neg: neg, sg: sg, pl: pl))
+
+== Styling lines of a gloss
 
 Each of the aforementioned text parameters has a corresponding style parameter,
 formed by adding `-style` to its name: `header-style`, `source-style`,
@@ -95,8 +209,7 @@ to or within any given content block in the gloss. Formatting applied in this
 way will override any contradictory line-level formatting.
 
 #codeblock(
-"#example(
+"#gloss(
-  (
     header: [This text is about eating your head.],
     header-style: text.with(weight: \"bold\", fill: green),
     source: (text(fill:black)[I'm], [eat-ing], [your], [head]),
@@ -104,211 +217,9 @@ way will override any contradictory line-level formatting.
     morphemes: ([1#sg.#sbj\=to.be], text(fill:black)[eat-#prog], [2#sg.#poss], [head]),
     morphemes-style: text.with(fill: blue),
     translation: text(weight: \"bold\")[I'm eating your head!],
-  )
 )", addl-bindings: (prog: prog, sbj: sbj, poss: poss, sg: sg))
 
-//TODO add `line-styles` param
+//TODO add `line_styles` param
-
-An example for English which exhibits some additional styling, and uses imports from another file
-for common glossing abbreviations:
-
-#codeblock(
-"#example(
-  (
-    source: ([I'm], [eat-ing], [your], [head]),
-    source-style: (item) => text(fill: red)[#item],
-    morphemes: ([1#sg.#sbj\=to.be], [eat-#prog], [2#sg.#poss], [head]),
-    morphemes-style: text.with(size: 10pt, fill: blue),
-    translation: text(weight: \"semibold\")[I'm eating your head!],
-    translation-style: (item) => [\"#item\"],
-  )
-)
-", addl-bindings: (poss: poss, prog: prog, sg: sg, sbj: sbj))
-
-
-The `gloss()` function has three pre-defined parameters for glossing levels:
-`source`, `transliteration`, and `morphemes`. It also has two parameters
-for unaligned text: `header` for text that precedes the gloss, and
-`translation` for text that follows the gloss.
-
-
-The `morphemes` param can be skipped, if you just want to provide a source
-text and translation, without a gloss:
-
-#codeblock(
-"#example(
-  (
-    source: ([Trato de entender, debo comprender, qué es lo que ha hecho conmigo],),
-    source-style: emph,
-    translation: [I try to understand, I must comprehend, what she has done with me],
-  )
-)
-")
-
-
-Note that it is still necessary to wrap the `source` argument in an array of length one.
-
-Here is an example of a lengthy gloss that forces a line break:
-
-// adapted from https://brill.com/fileasset/downloads_static/static_publishingbooks_formatting_glosses_linguistic_examples.pdf
-#codeblock(
-"#example(
-  (
-    source:    ([Ich],[arbeite],[ein],[Jahr],[um],[das],[Geld], [zu],[verdienen,],[das], [dein],[Bruder], [an],[einem],[Wochenende],[ausgibt.]),
-    source-style: text.with(weight: \"bold\"),
-    morphemes: ([I],  [work],[  one], [year],[to],[the],[money],[to],[earn,],     [that],[your],[brother],[on],[one],  [weekend],   [spends.]),
-    translation: [\"I work one year to earn the money that your brother spends in one weekend\"]
-  )
-)", addl-bindings: (poss: poss, prog: prog, sg: sg, sbj: sbj))
-
-== Additional lines <additional-lines>
-
-To add more than three glossing lines, there is an additional parameter
-`additional-lines` that can take a list of arbitrarily many more glossing
-lines, which will appear below those specified in the aforementioned
-parameters:
-
-#codeblock(
-"#example(
-  (
-    header: [Hunzib (van den Berg 1995:46)],
-    source: ([ождиг],[хо#super[н]хе],[мукъер]),
-    transliteration: ([oʒdig],[χõχe],[muqʼer]),
-    morphemes: ([ož-di-g],[xõxe],[m-uq'e-r]),
-    additional-lines: (
-        ([boy-#smallcaps[obl]-#smallcaps[ad]], [tree(#smallcaps[g4])], [#smallcaps[g4]-bend-#smallcaps[pret]]),
-        ([at boy], [tree], [bent]),
-    ),
-    translation: [\"Because of the boy, the tree bent.\"]
-  )
-)
-")
-
-== Sub-examples
-
-Sub-examples can be achieved by adding more dictionaries of glossing fields, separated by commas.
-A global `header` field for the set can be added.
-
-#codeblock(
-"#example(
-  header: [Coptic; transliterated and glossed based on _Coptic in 20 lessons_ (2007) by Layton Bently (§~28)],
-  (
-    header: [Indefinite articles],
-    source: ([hen-maein], [mn-hen-špêre]),
-    morphemes: ([#indf.#pl\-sign], [with-#indf.#pl\-wonder]),
-    translation: [signs and wonders]
-  ),
-  (
-    header: [Definite articles],
-    source: ([m-maein], [mn-ne-špêre]),
-    morphemes: ([#def.#pl\-sign], [with-#def.#pl\-wonder]),
-    translation: [the signs and the wonders]
-  ),
-  (
-    header: [Definite pronouns],
-    source: ([nei-maein], [mn-nei-špêre]),
-    morphemes: ([#dem.#pl\-sign], [with-#dem.#pl\-wonder]),
-    translation: [these signs and these wonders]
-  ),
-)
-", addl-bindings: (indf: indf, pl: pl, sg: sg, def: def, dem: dem))
-
-
-
-//TODO add a custom numbering system that can handle example 18a-c of Kartvelian Morphosyntax and Number Agreement
-== Numbering Glosses
-
-The `example()` function takes a boolean parameter `numbering` which will add an incrementing
-count to each gloss. A function `numbered-example` is exported for convenience; this is
-defined as simply `#let numbered-example = example.with(numbering: true)`, and is called with the
-same arguments as `example()`:
-
-
-#codeblock(
-"#example(
-  (
-    source: ([გვ-ფრცქვნ-ი],),
-    transliteration: ([gv-prtskvn-i],),
-    morphemes: ([1#pl.#obj\-peel-#fmnt],),
-    translation: \"You peeled us\",
-  ),
-  numbering: true,
-)
-
-#numbered-example(
-  (
-    source: ([მ-ფრცქვნ-ი],),
-    transliteration: ([m-prtskvn-i],),
-    morphemes: ([1#sg.#obj\-peel-#fmnt],),
-    translation: \"You peeled me\",
-  )
-)
-
-", addl-bindings: (pl: pl, obj: obj, sg: sg, fmnt: fmnt))
-
-The displayed number for numbered glosses is iterated for each numbered gloss
-that appears throughout the document. Unnumbered glosses do not increment the
-counter for the numbered glosses.
-
-The gloss count is controlled by the Typst counter variable `example-count`. This
-variable can be imported from the `leipzig-gloss` package and manipulated using the
-standard Typst counter functions to control gloss numbering:
-
-#codeblock(
-"#example-count.update(20)
-
-#numbered-example(
-  (
-    header: [from _Standard Basque: A Progressive Grammar_ by Rudolf de Rijk, quoting P. Charriton],
-    source: ([Bada beti guregan zorion handi baten nahia.],),
-    translation: [There always is in us a will for a great happiness.],
-  )
-)", addl-bindings: (example-count: example-count))
-
-References to individual examples can be achieved using the `label` argument and the referencing mechanism of Typst:
-
-#codeblock(
-"See @sorcerers:
-
-#numbered-example(
-  (
-    header: [Middle Welsh; modified from _Grammatical number in Welsh_ (1999) by Silva Nurmio (§~2.1.1)],
-    source: ([ac], [ny], [allvs], [y], [dewinyon], [atteb], [idav]),
-    morphemes: ([and], [#neg], [be_able.#smallcaps[pret].3#sg], [#smallcaps[def]], [sorcerer.#pl], [answer.#smallcaps[inf]], [to.3#sg.#smallcaps[m]]),
-    translation: [and the sorcerers could not answer him],
-  ),
-  label: \"sorcerers\",
-  label-supplement: [Example]
-)
-
-As we have seen in @sorcerers, […].", addl-bindings: (neg: neg, sg: sg, pl: pl))
-
-Labelling uses the Typst #link("https://typst.app/docs/reference/model/figure/")[figure] document element. The `label-supplement`
-parameter fills in the `suppliment` parameter of a `figure`, which is `[example]` by default.
-Note that `label` and `label-supplement` are top-level arguments of `example()` and `numbered-example()`, not of the interlinear glosses surrounded by `(` and `)`.
-
-Labelling of sub-examples is possible as well, using the same `label` and `label-supplement` fields but within the parentheses surrounding the sub-example in question.
-
-#codeblock(
-"#numbered-example(
-    header: [Hausa; from _Toward a functional typology of adpositions_ (2022) by Zygmunt Frajzyngier (§~3.2)],
-    label: \"hausa\",
-    (
-        source: ([àkwai], [mutā̀nè], [dà], [yawā̀], [a], [kanṑ]),
-        morphemes: ([exist], [People], [#smallcaps[assc]], [many], [#pred], [Kano]),
-        translation: [There are a lot of people in Kano.],
-        label: \"people\"
-    ),
-    (
-        source: ([àkwai], [makar̃antā], [a], [nan], [gàrin]),
-        morphemes: ([exist], [school], [#pred], [#dem], [town]),
-        translation: [There is a school in this town.],
-        label: \"school\",
-    ),
-)
-
-In @hausa there are two sub-examples: @people deals with people and @school with a school.
-", addl-bindings: (pred: pred, dem: dem))
 
 = Standard Abbreviations
 
@@ -327,13 +238,11 @@ accessed either with Typst field access notation or by importing them from
 #codeblock(
 "#import abbreviations: obl, sg, prf
 
-#example(
+#gloss(
-  (
     header: [(from _Why Caucasian Languages?_, by Bernard Comrie, in _Endangered Languages of the Caucasus and Beyond_)],
     source: ([\[qálɐ-m], [∅-kw’-á\]], [ɬ’ə́-r]),
     morphemes: ([city-#obl], [3#sg\-go-#prf], [man-#abbreviations.abs]),
     translation: \"The man who went to the city.\"
-  )
 )", addl-bindings: (abbreviations: abbreviations), unevaled-first-line: "#import \"leipzig-gloss.typ\": abbreviations")
 
 
@@ -357,13 +266,11 @@ Custom abbreviations may be defined using the `abbreviations.emit-abbreviation`
 
 #let ts = emit-abbreviation(\"TS\")
 
-#example(
+#gloss(
-  (
     header: [(from _Georgian: A Structural Reference Grammar_, by George Hewitt)],
     source: ([g-nax-av-en],),
     morphemes: ([you#sub[2]-see(#fut)#sub[4]-#ts#sub[7]-they#sub[11]],),
     translation: \"they will see you\",
-  )
 )", addl-bindings: (abbreviations: abbreviations), unevaled-first-line: "#import \"leipzig-gloss.typ\": abbreviations")
 
 == Building used-abbreviations pages
@@ -379,127 +286,103 @@ These are the first twelve example glosses given in #link("https://www.eva.mpg.d
 along with the Typst markup needed to generate them:
 
 #{
-    example-count.update(0)
+    gloss-count.update(0)
 }
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Indonesian (Sneddon 1996:237)],
     source: ([Mereka], [di], [Jakarta], [sekarang.]),
     morphemes: ([they], [in], [Jakarta], [now]),
     translation: \"They are in Jakarta now\",
-  )
 )")
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Lezgian (Haspelmath 1993:207)],
     source: ([Gila], [abur-u-n], [ferma], [hamišaluǧ], [güǧüna], [amuq’-da-č.]),
     morphemes: ([now], [they-#obl\-#gen], [farm], [forever], [behind], [stay-#fut\-#neg]),
     translation: \"Now their farm will not stay behind forever.\",
-  )
 )", addl-bindings: (fut: fut, neg: neg, obl: obl, gen:gen))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [West Greenlandic (Fortescue 1984:127)],
     source: ([palasi=lu], [niuirtur=lu]),
     morphemes: ([priest=and], [shopkeeper=and]),
     translation: \"both the priest and the shopkeeper\",
-  )
 )")
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Hakha Lai],
     source: ([a-nii -láay],),
     morphemes: ([3#sg\-laugh-#fut],),
     translation: [s/he will laugh],
-  )
 )", addl-bindings: (sg: sg, fut: fut))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Russian],
     source: ([My], [s], [Marko], [poexa-l-i], [avtobus-om], [v], [Peredelkino]),
     morphemes: ([1#pl], [#com], [Marko], [go-#pst\-#pl], [bus-#ins], [#all], [Peredelkino]),
     additional-lines: (([we], [with], [Marko], [go-#pst\-#pl], [bus-by], [to], [Peredelkino]),),
     translation: \"Marko and I went to Perdelkino by bus\",
-  )
 )", addl-bindings: (com: com, pl: pl, ins: ins, all: all, pst:pst))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Turkish],
     source: ([çık-mak],),
     morphemes: ([come.out-#inf],),
     translation: \"to come out\",
-  )
 )", addl-bindings: (inf: inf))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Latin],
     source: ([insul-arum],),
     morphemes: ([island-#gen\-#pl],),
     translation: \"of the islands\",
-  )
 )", addl-bindings: (gen:gen, pl: pl))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [French],
     source: ([aux], [chevaux]),
     morphemes: ([to-#art\-#pl],[horse.#pl]),
     translation: \"to the horses\",
-  )
 )",addl-bindings: (art:art, pl:pl))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [German],
     source: ([unser-n], [Väter-n]),
     morphemes: ([our-#dat\-#pl],[father.#pl\-#dat.#pl]),
     translation: \"to our fathers\",
-  )
 )", addl-bindings: (dat:dat, pl:pl))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Hittite (Lehmann 1982:211)],
     source: ([n=an], [apedani], [mehuni],[essandu.]),
     morphemes: ([#smallcaps[conn]=him], [that.#dat.#sg], [time.#dat.#sg], [eat.they.shall]),
     translation: \"They shall celebrate him on that date\",
-  )
 )", addl-bindings: (pl:pl, sg:sg, dat:dat))
 
 #codeblock(
-"#numbered-example(
+"#numbered-gloss(
-  (
     header: [Jaminjung (Schultze-Berndt 2000:92)],
     source: ([nanggayan], [guny-bi-yarluga?]),
     morphemes: ([who], [2#du.#A.3#sg.#P\-#fut\-poke]),
     translation: \"Who do you two want to spear?\",
-  )
 )", addl-bindings: (du:du, sg:sg, fut:fut, A:A, P:P))
 
 
 #codeblock("
-#numbered-example(
+#numbered-gloss(
-  (
     header: [Turkish (cf. 6)],
     source: ([çık-mak],),
     morphemes: ([come_out-#inf],),
     translation: ['to come out'],
-  )
 )", addl-bindings: (inf: inf))

leipzig-gloss.typ

@@ -1,42 +1,44 @@
 #import "abbreviations.typ"
 
-// ╭─────────────────────╮
+#let gloss-count = counter("gloss_count")
-// │ Interlinear glosses │
-// ╰─────────────────────╯
 
-#let build-gloss(item-spacing, formatters, gloss-line-lists) = {
+#let build_gloss(item-spacing, formatters, gloss_line_lists) = {
-    assert(gloss-line-lists.len() > 0, message: "Gloss line lists cannot be empty")
+    assert(gloss_line_lists.len() > 0, message: "Gloss line lists cannot be empty")
 
-    let len = gloss-line-lists.at(0).len()
+    let len = gloss_line_lists.at(0).len()
 
-    for line in gloss-line-lists {
+    for line in gloss_line_lists {
         assert(line.len() == len)
     }
 
-    assert(formatters.len() == gloss-line-lists.len(), message: "The number of formatters and the number of gloss line lists should be equal")
+    assert(formatters.len() == gloss_line_lists.len(), message: "The number of formatters and the number of gloss line lists should be equal")
 
-    let make-item-box(..args) = {
+    let make_item_box(..args) = {
         box(stack(dir: ttb, spacing: 0.5em, ..args))
     }
 
-    for item-index in range(0, len) {
+    for item_index in range(0, len) {
         let args = ()
-        for (line-idx, formatter) in formatters.enumerate() {
+        for (line_idx, formatter) in formatters.enumerate() {
-            let formatter-fn = if formatter == none {
+            let formatter_fn = if formatter == none {
                 (x) => x
             } else {
                 formatter
             }
 
-            let item = gloss-line-lists.at(line-idx).at(item-index)
+            let item = gloss_line_lists.at(line_idx).at(item_index)
-            args.push(formatter-fn(item))
+            args.push(formatter_fn(item))
         }
-        make-item-box(..args)
+        make_item_box(..args)
         h(item-spacing)
     }
 }
 
-// Typesets the internal part of the interlinear glosses. This function does not deal with the external matters of numbering and labelling; which are handled by `example()`.
+// a workround so we can use `label` as a variable name where it is shadowed by the function param `label`
+// Once typst version 0.12 with https://github.com/typst/typst/pull/4038 is released we should be able
+// to replace this workaround with `std.label`
+#let cmdlabel = label 
+
 #let gloss(
     header: none,
     header-style: none,
@@ -49,8 +51,16 @@
     additional-lines: (), //List of list of content
     translation: none,
     translation-style: none,
+    label: none,
+    label-suppliment: [example],
+
     item-spacing: 1em,
+    gloss-padding: 2.0em, //TODO document these
+    left_padding: 0.5em,
+    numbering: false,
+    breakable: false,
 ) = {
+
     assert(type(source) == "array", message: "source needs to be an array; perhaps you forgot to type `(` and `)`, or a trailing comma?")
 
     if morphemes != none {
@@ -62,7 +72,8 @@
         assert(transliteration.len() == source.len(), message: "source and transliteration have different lengths")
     }
 
-  let gloss-items = {
+    let gloss_items = {
+
         if header != none {
             if header-style != none {
                 header-style(header)
@@ -73,24 +84,25 @@
         }
 
         let formatters = (source-style,)
-    let gloss-line-lists = (source,)
+        let gloss_line_lists = (source,)
 
         if transliteration != none {
             formatters.push(transliteration-style)
-      gloss-line-lists.push(transliteration)
+            gloss_line_lists.push(transliteration)
         }
 
         if morphemes != none {
             formatters.push(morphemes-style)
-      gloss-line-lists.push(morphemes)
+            gloss_line_lists.push(morphemes)
         }
 
         for additional in additional-lines {
             formatters.push(none) //TODO fix this
-      gloss-line-lists.push(additional)
+            gloss_line_lists.push(additional)
         }
 
-    build-gloss(item-spacing, formatters, gloss-line-lists)
+
+        build_gloss(item-spacing, formatters, gloss_line_lists)
 
         if translation != none {
             linebreak()
@@ -103,60 +115,12 @@
         }
     }
 
-  align(left)[#gloss-items]
-}
-
-
-
-// ╭─────────────────────╮
-// │ Linguistic examples │
-// ╰─────────────────────╯
-
-#let example-count = counter("example-count")
-
-#let example(
-    label: none,
-    label-supplement: [example],
-    gloss-padding: 2.5em, //TODO document these
-    left-padding: 0.5em,
-    numbering: false,
-    breakable: false,
-    ..args
-) = {
-    let add-subexample(subexample, count) = {
-        // Remove parameters which are not used in the `gloss`.
-        // TODO Make this functional, if (or when) it’s possible in Typst: filter out `label` and `label-supplement` when they are passed below.
-        let subexample-internal = subexample
-        if "label" in subexample-internal {
-            let _ = subexample-internal.remove("label")
-        }
-        if "label-supplement" in subexample-internal {
-            let _ = subexample-internal.remove("label-supplement")
-        }
-        par()[
-            #box()[
-                #figure(
-                    kind: "subexample",
-                    numbering: it => [#example-count.display()#count.display("a")],
-                    outlined: false,
-                    supplement: it => {if "label-supplement" in subexample {return subexample.label-supplement} else {return "example"}},
-                    stack(
-                        dir: ltr, //TODO this needs to be more flexible
-                        [(#context count.display("a"))],
-                        left-padding,
-                        gloss(..subexample-internal)
-                    )
-                ) #if "label" in subexample {std.label(subexample.label)}
-            ]
-        ]
-    }
-
     if numbering {
-        example-count.step()
+        gloss-count.step()
     }
 
-    let example-number = if numbering {
+    let gloss_number = if numbering {
-        [(#context example-count.display())]
+        [(#gloss-count.display())]
     } else {
         none
     }
@@ -164,37 +128,20 @@
     style(styles => {
         block(breakable: breakable)[
             #figure(
-                kind: "example",
+                kind: "ling-example",
-                numbering: it => [#example-count.display()],
+                supplement: label-suppliment,
-                outlined: false,
+                numbering: it => [#gloss-count.display()],
-                supplement: label-supplement,
                 stack(
                     dir: ltr, //TODO this needs to be more flexible
-                    left-padding,
+                    left_padding,
-                    [#example-number],
+                    [#gloss_number],
-                    gloss-padding - left-padding - measure([#example-number]).width,
+                    gloss-padding - left_padding - measure([#gloss_number],styles).width,
-                    {
+                    align(left)[#gloss_items],
-                        if args.pos().len() == 1 { // a simple example with no sub-examples
-                            gloss(..arguments(..args.pos().at(0)))
-                        }
-                        else { // containing sub-examples
-                            let subexample-count = counter("subexample-count")
-                            subexample-count.update(0)
-                            set align(left)
-                            if "header" in args.named() {
-                                par[#args.named().header]
-                            }
-                            for subexample in args.pos() {
-                                subexample-count.step()
-                                add-subexample(subexample, subexample-count)
-                            }
-                        }
-                    }
                 ),
-            ) #if label != none {std.label(label)}
+            ) #if label != none {cmdlabel(label)}
         ]
     }
     )
 }
 
-#let numbered-example = example.with(numbering: true)
+#let numbered-gloss = gloss.with(numbering: true)

typst.toml

@@ -1,12 +1,8 @@
 [package]
 name = "leipzig-glossing"
-version = "0.3.0"
+version = "0.2.0"
 entrypoint = "leipzig-gloss.typ"
-authors = ["Greg Shuflin <greg@everydayimshuflin.com>", "Other open-source contributors"]
+authors = ["Greg Shuflin", "Other open-source contributors"]
 license = "MIT"
 description = "Linguistic interlinear glosses according to the Leipzig Glossing rules"
 repository = "https://code.everydayimshuflin.com/greg/typst-lepizig-glossing"
-disciplines = ["linguistics"]
-categories = ["paper"]
-keywords = ["linguistics", "leipzig", "gloss", "glossing"]
-compiler = "0.11.0"