1 files changed, 22 insertions, 0 deletions
diff --git a/lib/citation/sigla.ml b/lib/citation/sigla.ml
new file mode 100644
index 0000000..a4f4555
--- /dev/null
+++ b/lib/citation/sigla.ml
@@ -0,0 +1,22 @@
+(* SPDX-License-Identifier: AGPL-3.0-or-later *)
+
+type t =
+  | Verbatim
+  | Styled of {
+      style : Render.style;
+      tradition : Book.tradition;
+      names : Book.id -> [ `Full | `Abbr ] -> string;
+    }
+
+let verbatim = Verbatim
+let make ~style ~tradition ~names = Styled { style; tradition; names }
+
+let format t s =
+  match t with
+  | Verbatim -> s
+  | Styled { style; tradition; names } -> (
+      match Parse.parse s with
+      | Error _ -> s
+      | Ok c ->
+          let c = { c with Parse.book = Book.map tradition c.Parse.book } in
+          Render.render style ~names c)