crossref - add support for algorithm (alg-) theorem, thanks @jeremy9959

Author: cscheid

src/resources/filters/customnodes/theorem.lua

@@ -40,11 +40,16 @@ theorem_types = {
     style = "definition",
     title = "Example",
   },
-  exr  = {
+  exr = {
     env = "exercise",
     style = "definition",
     title = "Exercise"
-  }
+  },
+  alg = {
+    env = "algorithm",
+    style = "plain",
+    title = "Algorithm"
+  },
 }
 
 function has_theorem_ref(el)

tests/docs/smoke-all/crossrefs/theorem/algorithm.qmd

@@ -0,0 +1,47 @@
+---
+format:
+  typst:
+    keep-typ: true
+_quarto:
+  tests:
+    html:
+      ensureHtmlElements:
+        - 
+          - "a.quarto-xref"
+        - []
+    latex:
+      ensureFileRegexMatches:
+        -
+          - "hypertarget{alg-gcd}"
+          - "label{alg-gcd}"
+          - "Alg.~\\\\ref\\{alg-gcd\\}"
+          - "alg.~\\\\ref\\{alg-gcd\\}"
+        - []
+    typst:
+      ensureTypstFileRegexMatches:
+        - 
+          - "#ref\\(<alg-gcd>, supplement: \\[alg.\\]\\)"
+          - "#ref\\(<alg-gcd>, supplement: \\[Alg.\\]\\)"
+          - "#algorithm\\(\"Euclid\"\\)"
+        - []
+    markdown:
+      ensureFileRegexMatches:
+        -
+          - "\\[alg. 1\\]\\(#alg-gcd\\)\\{.quarto-xref\\}" # note the non-breaking space in "alg. 1"
+          - '\[\*\*Algorithm 1 \(Euclid\)\*\*\]\{.theorem-title\}'
+---
+
+::: {#alg-gcd}
+
+## Euclid
+
+```
+gcd(a, b) =
+  if b == 0 then return a
+  return gcd(b, a mod b)
+```
+
+:::
+
+
+See @alg-gcd. @Alg-gcd has been known since the antiquity.