Add support for typstyle

CHANGELOG.md

@@ -3,6 +3,13 @@
 All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog].
 
+## Unreleased
+### Formatters
+* [`typstyle`](https://github.com/Enter-tainer/typstyle) for
+  [typst](https://typst.app/) ([#313]).
+
+[#313]: https://github.com/radian-software/apheleia/pull/313
+
 ## 4.2 (released 2024-08-03)
 ### Changes
 * Custom Emacs Lisp formatting functions have the option to report an

apheleia-formatters.el

@@ -194,6 +194,7 @@
     (rustfmt . ("rustfmt" "--quiet" "--emit" "stdout"))
     (terraform . ("terraform" "fmt" "-"))
     (treefmt . ("treefmt" "--stdin" filepath))
+    (typstyle . ("typstyle"))
     (xmllint . ("xmllint" "--format" "-"))
     (yapf . ("yapf"))
     (yq-csv . ("yq" "--prettyPrint" "--no-colors"
@@ -364,6 +365,8 @@ rather than using this system."
     (tuareg-mode . ocamlformat)
     (typescript-mode . prettier-typescript)
     (typescript-ts-mode . prettier-typescript)
+    (typst-mode . typstyle)
+    (typst-ts-mode . typstyle)
     (web-mode . prettier)
     (yaml-mode . prettier-yaml)
     (yaml-ts-mode . prettier-yaml)

test/formatters/installers/typstyle.bash

@@ -0,0 +1,4 @@
+ver="$(latest_release Enter-tainer/typstyle)"
+
+wget "https://github.com/Enter-tainer/typstyle/releases/download/${ver}/typstyle-x86_64-unknown-linux-gnu " -O /usr/local/bin/typstyle
+chmod +x /usr/local/bin/typstyle

test/formatters/samplecode/typstyle/in.typ

@@ -0,0 +1,10 @@
+#{
+    let (title,
+        _) = query(heading.where(level:
+        1)).map(e => (
+    e.body,
+      e.location()
+          .page(),
+        )).rev().find(((_, v)) => v
+        <= page)
+}

test/formatters/samplecode/typstyle/out.typ

@@ -0,0 +1,9 @@
+#{
+  let (title, _) = query(heading.where(level: 1))
+    .map(e => (
+        e.body,
+        e.location().page(),
+      ))
+    .rev()
+    .find(((_, v)) => v <= page)
+}