fix(citation): close the final review's blocking findings

The branch was RED and reported green. `dune test` exited 1: test/cli.t
pinned the pre-fix output `kings_1 19:3-8`, which the previous commit had
already fixed to `1 Reg 19:3-8`. The gate command piped dune through
`tail`, so it reported tail's exit status, and cram prints its diff
BEFORE the alcotest summary, so the two lines shown were the passing
ones. Verify with `dune test; echo $?`, never through a pipe.

A style file's own `book` key was unreachable. sigla_book resolved
against a hardcoded "abbr" and the result was applied unconditionally,
so the documented `[sigla] book = full` could never win. Render gains
book_string, and the style's own value is now the default that a flag or
config overrides. The unit test pinned style_of_fields correctly while
the wiring defeated it.

`lang --check` filtered the reference set to the celebration prefix, so
a file with no [bible] section at all reported a clean bill of health --
contradicting both the reason the keys change was made and lang.ml's own
comment. It now reports missing book names too.

The token test missed a FOURTH citation-bearing file: adjustments.sexp
writes citations as `Set_citation`, not `(reference ...)`. Its 16
citations all parse, so nothing was broken, but nothing was checking.
The first attempt at this fix read the file and extracted NOTHING -- the
marker stopped before the opening quote, so every payload was the part
label -- which is recorded in the code rather than left as a trap.

Also: colitur-config(5) claimed a trailing period the data does not
carry, and two la.ini scan quotes silently corrected OCR damage
("Ionae 3, I - I O", "Epistolse") while presenting themselves as
verbatim. Both are now marked as corrections.

2 files changed, 11 insertions, 0 deletions

diff --git a/lib/citation/render.ml b/lib/citation/render.ml
index c66a0ca..79aaa86 100644
--- a/lib/citation/render.ml
+++ b/lib/citation/render.ml
@@ -20,6 +20,7 @@ let default_style =
 let part_sep st = st.part_sep
 let range st = st.range
 let book_sep st = st.book_sep
+let book_string st = match st.book with `Full -> "full" | `Abbr -> "abbr"
 
 (* Arabic -> Roman, for the {chapter_roman} placeholder. Lifted from
    [Colitur_render.View.roman_numeral], which prints "Hebdomada I" week
diff --git a/lib/citation/render.mli b/lib/citation/render.mli
index d741931..274900c 100644
--- a/lib/citation/render.mli
+++ b/lib/citation/render.mli
@@ -44,5 +44,15 @@ val range : style -> string
     [\textasciitilde{}]. *)
 val book_sep : style -> string
 
+(** The style's own book form, as the string a config file would write
+    (["full"] or ["abbr"]).
+
+    Exists so a caller can use the STYLE's value as the default when
+    resolving the [sigla_book] setting. Resolving against a hardcoded
+    ["abbr"] instead makes a style file's own [book] key unreachable --
+    the value is always overwritten before it can apply -- which is what
+    shipped until this accessor existed. *)
+val book_string : style -> string
+
 val render :
   style -> names:(Book.id -> [ `Full | `Abbr ] -> string) -> Parse.t -> string