use pattern labels in generated documentation

AmpersandTarski · Oct 12, 2023 · 3c1d8ed · 3c1d8ed
1 parent 9ad2684
commit 3c1d8ed
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Ampersand/Output/ToPandoc/SharedAmongChapters.hs b/src/Ampersand/Output/ToPandoc/SharedAmongChapters.hs
@@ -124,7 +124,7 @@ hyperTarget :: (HasOutputLanguage env) => env -> FSpec -> CustomSection -> Eithe
 hyperTarget env fSpec a =
   case a of
     XRefConceptualAnalysisPattern {} -> Left . hdr $ (text . l) (NL "Thema: ", EN "Theme: ") <> (singleQuoted . str . tshow . mkId . refStuff $ a)
-    XRefSharedLangTheme (Just pat) -> (Left . hdr . text . text1ToText . tName) pat
+    XRefSharedLangTheme (Just pat) -> (Left . hdr . text . label) pat
     XRefSharedLangTheme Nothing -> (Left . hdr . text . l) (NL "Overig", EN "Remaining")
     XRefSharedLangRelation d -> Right $ spanWith (xSafeLabel a, [], []) (str . tshow $ d)
     --   Left $ divWith (xSafeLabel a,[],[])

diff --git a/testing/Travis/testcases/Misc/Arbeidsduur.adl b/testing/Travis/testcases/Misc/Arbeidsduur.adl
@@ -179,7 +179,7 @@ VIOLATION (TXT "Deze beslissing dient genomen te worden door", SRC arbeidsrelati
 ENDPATTERN
 
 --[Proces: Verzoek behandelen]-----------------------------
-PATTERN VerzoekBehandelen
+PATTERN VerzoekBehandelen LABEL "Verzoek behandelen"
 
 ROLE Werkgever MAINTAINS BeslissenOverVerzoek
 PURPOSE RULE BeslissenOverVerzoek REF "Artikel 2 lid 10"
@@ -211,7 +211,7 @@ VIOLATION (TXT "Beslissing van ", SRC door, TXT ", op ", SRC op, TXT " vereist e
 ENDPATTERN
 
 --[Proces: Rekenen met datums]-----------------------------
-PATTERN RekenenMetDatums
+PATTERN RekenenMetDatums LABEL "Rekenen met datums"
 PURPOSE PATTERN RekenenMetDatums
 {+De wet spreekt over tijdsverschillen van minstens vier maanden, of minstens een jaar. Dat vereist het kunnen rekenen met tijden. Omdat Ampersand dat nog niet goed kan, is een proces gedefinieerd dat deze berekeningen uitvoert. Dit proces is hier verder niet gedocumenteerd.+}
 
@@ -255,7 +255,7 @@ VIOLATION (TXT "{EX} datimeEQL;datumEQV;Datum;", SRC I, TXT ";", TGT I
 ENDPATTERN
 
 --[Proces: geautomatiseerde procesondersteuning]-----------
-PATTERN GeautomatiseerdeProcesondersteuning
+PATTERN GeautomatiseerdeProcesondersteuning LABEL "Geautomatiseerde procesondersteuning"
 PURPOSE PATTERN GeautomatiseerdeProcesondersteuning
 {+
 Menselijke procesuitvoerders moeten zoveel mogelijk worden ontlast van handelingen die ook geautomatiseerd kunnen worden uitgevoerd.