write_one_letter_each.py

"""Writes a run of personal letters into one file, and lets its first sheet jump to any
of them.

The Python twin of the `write_one_letter_each` example in Rust. A mailing house
receives one PDF and has to know where each letter starts, how many sheets it runs to,
and which envelope it goes in. The file says it itself: each recipient is a document
part that claims the next so many sheets, counted rather than numbered by hand. The
index on the first sheet then leads to the part rather than to a page, so a letter that
gains a sheet moves nothing.

Both sets of words are held in `Words`, once per language, and `HQF_PDF_LANG` picks
which set is drawn.

Usage: python examples/write_one_letter_each.py [out.pdf] [font.ttf]
       HQF_PDF_LANG=fr python examples/write_one_letter_each.py
"""

from __future__ import annotations

from dataclasses import dataclass
from pathlib import Path

import _language
import _licence
import _out

import hqf_pdf


@dataclass(frozen=True)
class Words:
    """Every word the pages draw, in one language."""

    # What the file as a whole is called.
    title: str
    # What the file carries, said once at the top of the first sheet.
    lead: str
    # What the hierarchy says, said in grey at the foot of the first sheet.
    note: str
    # The heading above the list of recipients.
    index_heading: str
    # Who each of the four letters is for.
    recipients: tuple[str, str, str, str]
    # Where each of them is sent.
    towns: tuple[str, str, str, str]
    # The country every recipient is in.
    country: str
    # The word a reference is introduced by.
    reference: str
    # The word a subject is introduced by.
    subject: str
    # What each of the four letters is about.
    subjects: tuple[str, str, str, str]
    # How a letter opens.
    greeting: str
    # What every letter says.
    body: str
    # How a letter closes.
    closing: str
    # Who signs it.
    signer: str
    # What the signer does.
    signer_role: str
    # The heading of the sheet that follows the first letter.
    enclosure_title: str
    # What that sheet says.
    enclosure: str
    # The word a letter is called by.
    letter: str
    # The word a sheet is counted by.
    sheet: str
    # The word one sheet is counted by, in the middle of a line.
    sheet_one: str
    # The word several sheets are counted by, in the middle of a line.
    sheet_many: str


# The pages in English.
ENGLISH = Words(
    title="One letter each, in one file",
    lead=(
        "The five sheets that follow are four letters, and this index leads to them. "
        "No letter names a page number, and none had to: each recipient claims the "
        "next so many sheets, and the index leads to the recipient rather than to a "
        "sheet. Give the second letter another page and nothing above has to be "
        "counted again."
    ),
    note=(
        "Each entry of the index is a go-to document part action: it names the part "
        "that claims the sheet, not the sheet itself, so reading software following "
        "it lands on that recipient's first page wherever that page has moved to. A "
        "mailing house reads the same parts to know where to cut and what to fold."
    ),
    index_heading="Who this run is for",
    recipients=(
        "Baker and Sons",
        "Halden Joinery",
        "Westmill Dairy",
        "Corran Bookbinders",
    ),
    towns=("Bristol", "Kendal", "Truro", "Oban"),
    country="United Kingdom",
    reference="Our reference:",
    subject="Subject:",
    subjects=(
        "Your delivery window from September",
        "The crates returned in July",
        "Collection moved to Tuesdays",
        "The paper stock held for you",
    ),
    greeting="Dear Sir or Madam,",
    body=(
        "We are writing to every account served from this depot, because the round "
        "that reaches you changes at the end of the month. Nothing you have ordered is "
        "affected, and the prices agreed in March stand until they are next reviewed. "
        "Should the new arrangement not suit you, reply to this letter quoting the "
        "reference above and we will keep the old one for you until the end of the "
        "year."
    ),
    closing="Yours faithfully,",
    signer="R. Alderton",
    signer_role="Depot manager",
    enclosure_title="What changes, and when",
    enclosure=(
        "The round leaves the depot an hour earlier and calls in the reverse order, so "
        "an address served last is now served first. Deliveries falling on a public "
        "holiday move to the working day after it rather than the one before. An order "
        "placed after four in the afternoon travels on the round after next, which is "
        "one day later than it used to."
    ),
    letter="Letter",
    sheet="Sheet",
    sheet_one="sheet",
    sheet_many="sheets",
)

# The pages in French.
FRENCH = Words(
    title="Une lettre chacun, dans un seul fichier",
    lead=(
        ("Les cinq feuillets qui suivent forment quatre lettres, et le présent "
         "sommaire y mène. Aucune lettre n’indique de numéro de page, et aucune n’en a"
         " eu besoin : chaque destinataire prend les feuillets suivants, autant qu’il "
         "lui en faut, et le sommaire mène au destinataire plutôt qu’à un feuillet. "
         "Donnez une page de plus à la deuxième lettre : rien de ce qui précède n’est "
         "à recompter.")
    ),
    note=(
        ("Chaque ligne du sommaire est une action « aller à une partie » : elle nomme "
         "la partie qui revendique le feuillet, et non le feuillet lui-même, de sorte "
         "qu’un logiciel de lecture qui la suit tombe sur la première page de ce "
         "destinataire, où qu’elle soit passée. Un routeur lit les mêmes parties pour "
         "savoir où couper et quoi plier.")
    ),
    index_heading="À qui ce lot s’adresse",
    recipients=(
        "Boulangerie Petit",
        "Menuiserie Vallon",
        "Laiterie du Coteau",
        "Reliure du Port",
    ),
    towns=("Aix-en-Provence", "Annecy", "Quimper", "Sète"),
    country="France",
    reference="Nos références :",
    subject="Objet :",
    subjects=(
        "Votre créneau de livraison à partir de septembre",
        "Les caisses rendues en juillet",
        "Ramassage déplacé au mardi",
        "Le papier tenu à votre disposition",
    ),
    greeting="Madame, Monsieur,",
    body=(
        ("Nous écrivons à tous les clients rattachés à ce dépôt, car la tournée qui "
         "vous livre change à la fin du mois. Vos commandes ne sont pas concernées, et"
         " les prix convenus en mars restent valables jusqu’à leur prochaine révision."
         " Si la nouvelle organisation ne vous convient pas, répondez à ce courrier en"
         " rappelant la référence ci-dessus : nous maintiendrons l’ancienne pour vous "
         "jusqu’à la fin de l’année.")
    ),
    closing="Veuillez agréer nos salutations distinguées.",
    signer="R. Alderton",
    signer_role="Responsable du dépôt",
    enclosure_title="Ce qui change, et quand",
    enclosure=(
        ("La tournée quitte le dépôt une heure plus tôt et passe dans l’ordre "
         "inverse : une adresse desservie en dernier l’est désormais en premier. Une "
         "livraison qui tombe un jour férié est reportée au jour ouvré suivant plutôt "
         "qu’au précédent. Une commande passée après seize heures part avec la "
         "deuxième tournée qui suit, soit un jour plus tard qu’auparavant.")
    ),
    letter="Lettre",
    sheet="Feuillet",
    sheet_one="feuillet",
    sheet_many="feuillets",
)

# The pages in Dutch.
DUTCH = Words(
    title="Voor elk een brief, in één bestand",
    lead=(
        "De vijf bladen die volgen zijn vier brieven, en deze index leidt ernaar. "
        "Geen brief noemt een paginanummer, en dat hoefde ook niet: elke ontvanger "
        "krijgt de eerstvolgende bladen, en de index leidt naar de ontvanger in "
        "plaats van naar een blad. Geef de tweede brief een extra pagina en niets "
        "hierboven hoeft opnieuw geteld te worden."
    ),
    note=(
        "Elke regel van de index is een actie ga-naar-documentdeel: ze noemt het deel "
        "waartoe het blad behoort, niet het blad zelf, dus leessoftware die haar "
        "volgt, landt op de eerste pagina van die ontvanger waar die pagina ook "
        "naartoe is geschoven. Een verzendhuis leest dezelfde delen om te weten waar "
        "te snijden en wat te vouwen."
    ),
    index_heading="Voor wie deze oplage is",
    recipients=(
        "Baker and Sons",
        "Halden Joinery",
        "Westmill Dairy",
        "Corran Bookbinders",
    ),
    towns=("Bristol", "Kendal", "Truro", "Oban"),
    country="Verenigd Koninkrijk",
    reference="Ons kenmerk:",
    subject="Onderwerp:",
    subjects=(
        "Uw leveringsvenster vanaf september",
        "De in juli teruggestuurde kratten",
        "Ophaaldag verschoven naar dinsdag",
        "Het voor u gereserveerde papier",
    ),
    greeting="Geachte heer, mevrouw,",
    body=(
        "Wij schrijven aan elke klant die vanuit dit depot wordt beleverd, omdat de "
        "route die u bereikt aan het einde van de maand verandert. Niets van wat u "
        "besteld hebt, verandert, en de in maart afgesproken prijzen blijven gelden "
        "tot de volgende herziening. Past de nieuwe regeling u niet, antwoord dan op "
        "deze brief met het kenmerk hierboven en wij houden de oude voor u aan tot "
        "het einde van het jaar."
    ),
    closing="Met vriendelijke groet,",
    signer="R. Alderton",
    signer_role="Depotbeheerder",
    enclosure_title="Wat er verandert, en wanneer",
    enclosure=(
        "De route vertrekt een uur eerder uit het depot en rijdt in omgekeerde "
        "volgorde, dus een adres dat als laatste werd bediend, komt nu als eerste. "
        "Leveringen die op een feestdag vallen, schuiven naar de werkdag erna in "
        "plaats van de dag ervoor. Een bestelling na vier uur ’s middags gaat mee met "
        "de route na de volgende, een dag later dan vroeger."
    ),
    letter="Brief",
    sheet="Blad",
    sheet_one="blad",
    sheet_many="bladen",
)

# The pages in Portuguese.
PORTUGUESE = Words(
    title="Uma carta para cada um, num ficheiro",
    lead=(
        "As cinco folhas que se seguem são quatro cartas, e este índice leva a elas. "
        "Nenhuma carta nomeia um número de página, nem foi preciso: cada destinatário "
        "reclama as folhas que lhe cabem, e o índice leva ao destinatário e não a uma "
        "folha. Dê outra página à segunda carta e nada acima tem de ser recontado."
    ),
    note=(
        "Cada entrada do índice é uma ação de ir para uma parte do documento: nomeia "
        "a parte que reclama a folha, não a folha em si, por isso o programa de "
        "leitura que a segue chega à primeira página desse destinatário onde quer que "
        "ela tenha ido parar. Uma empresa de envios lê as mesmas partes para saber "
        "onde cortar e o que dobrar."
    ),
    index_heading="Para quem é esta tiragem",
    recipients=(
        "Baker and Sons",
        "Halden Joinery",
        "Westmill Dairy",
        "Corran Bookbinders",
    ),
    towns=("Bristol", "Kendal", "Truro", "Oban"),
    country="Reino Unido",
    reference="A nossa referência:",
    subject="Assunto:",
    subjects=(
        "A sua janela de entrega a partir de setembro",
        "As caixas devolvidas em julho",
        "A recolha passa para as terças-feiras",
        "O papel reservado para si",
    ),
    greeting="Exmos. Senhores,",
    body=(
        "Escrevemos a todos os clientes servidos a partir deste armazém, porque a "
        "volta que vos serve muda no fim do mês. Nada do que encomendaram é afetado, "
        "e os preços acordados em março mantêm-se até à próxima revisão. Se a nova "
        "organização não vos convier, respondam a esta carta citando a referência "
        "acima e manteremos a anterior até ao fim do ano."
    ),
    closing="Com os melhores cumprimentos,",
    signer="R. Alderton",
    signer_role="Chefe de armazém",
    enclosure_title="O que muda, e quando",
    enclosure=(
        "A volta sai do armazém uma hora mais cedo e passa pela ordem inversa, por "
        "isso uma morada servida em último é agora servida em primeiro. As entregas "
        "que calham num feriado passam para o dia útil seguinte e não para o "
        "anterior. Uma encomenda feita depois das quatro da tarde vai na volta a "
        "seguir à próxima, um dia mais tarde do que antes."
    ),
    letter="Carta",
    sheet="Folha",
    sheet_one="folha",
    sheet_many="folhas",
)

# The pages in Italian.
ITALIAN = Words(
    title="Una lettera a testa, in un file",
    lead=(
        "I cinque fogli che seguono sono quattro lettere, e questo indice porta a "
        "esse. Nessuna lettera nomina un numero di pagina, né è servito: ogni "
        "destinatario rivendica i fogli che gli spettano, e l’indice porta al "
        "destinatario e non a un foglio. Date un’altra pagina alla seconda lettera e "
        "niente qui sopra va ricontato."
    ),
    note=(
        "Ogni voce dell’indice è un’azione «vai a» verso una parte del documento: "
        "nomina la parte che rivendica il foglio, non il foglio stesso, così il "
        "programma di lettura che la segue arriva alla prima pagina di quel "
        "destinatario ovunque si sia spostata. Un’azienda di spedizioni legge le "
        "stesse parti per sapere dove tagliare e cosa piegare."
    ),
    index_heading="Per chi è questa tiratura",
    recipients=(
        "Baker and Sons",
        "Halden Joinery",
        "Westmill Dairy",
        "Corran Bookbinders",
    ),
    towns=("Bristol", "Kendal", "Truro", "Oban"),
    country="Regno Unito",
    reference="Nostro riferimento:",
    subject="Oggetto:",
    subjects=(
        "La vostra fascia di consegna da settembre",
        "Le casse rese a luglio",
        "Il ritiro passa al martedì",
        "La carta tenuta per voi",
    ),
    greeting="Gentili Signori,",
    body=(
        "Scriviamo a tutti i clienti serviti da questo deposito, perché il giro che "
        "vi raggiunge cambia a fine mese. Nulla di quanto avete ordinato ne risente, "
        "e i prezzi concordati a marzo restano validi fino alla prossima revisione. "
        "Se la nuova organizzazione non vi conviene, rispondete a questa lettera "
        "citando il riferimento qui sopra e vi manterremo la precedente fino alla "
        "fine dell’anno."
    ),
    closing="Distinti saluti,",
    signer="R. Alderton",
    signer_role="Responsabile del deposito",
    enclosure_title="Cosa cambia, e quando",
    enclosure=(
        "Il giro parte dal deposito un’ora prima e passa in ordine inverso, così un "
        "indirizzo servito per ultimo ora è servito per primo. Le consegne che cadono "
        "in un giorno festivo passano al giorno lavorativo successivo anziché al "
        "precedente. Un ordine fatto dopo le quattro del pomeriggio viaggia sul giro "
        "successivo al prossimo, un giorno più tardi di prima."
    ),
    letter="Lettera",
    sheet="Foglio",
    sheet_one="foglio",
    sheet_many="fogli",
)

# The pages in Spanish.
SPANISH = Words(
    title="Una carta para cada uno, en un archivo",
    lead=(
        "Las cinco hojas que siguen son cuatro cartas, y este índice lleva a ellas. "
        "Ninguna carta nombra un número de página, ni hizo falta: cada destinatario "
        "reclama las hojas que le tocan, y el índice lleva al destinatario y no a una "
        "hoja. Dé otra página a la segunda carta y no hay que volver a contar nada de "
        "arriba."
    ),
    note=(
        "Cada entrada del índice es una acción de ir a una parte del documento: "
        "nombra la parte que reclama la hoja, no la hoja misma, así que el programa "
        "de lectura que la sigue llega a la primera página de ese destinatario "
        "dondequiera que se haya movido. Una empresa de envíos lee las mismas partes "
        "para saber dónde cortar y qué doblar."
    ),
    index_heading="Para quién es esta tirada",
    recipients=(
        "Baker and Sons",
        "Halden Joinery",
        "Westmill Dairy",
        "Corran Bookbinders",
    ),
    towns=("Bristol", "Kendal", "Truro", "Oban"),
    country="Reino Unido",
    reference="Nuestra referencia:",
    subject="Asunto:",
    subjects=(
        "Su franja de entrega a partir de septiembre",
        "Las cajas devueltas en julio",
        "La recogida pasa a los martes",
        "El papel reservado para usted",
    ),
    greeting="Muy señores míos:",
    body=(
        "Escribimos a todas las cuentas servidas desde este almacén, porque la ruta "
        "que llega hasta ustedes cambia a final de mes. Nada de lo que han pedido se "
        "ve afectado, y los precios acordados en marzo se mantienen hasta su próxima "
        "revisión. Si el nuevo sistema no les conviene, respondan a esta carta "
        "citando la referencia de arriba y les mantendremos el anterior hasta final "
        "de año."
    ),
    closing="Atentamente,",
    signer="R. Alderton",
    signer_role="Jefe de almacén",
    enclosure_title="Qué cambia, y cuándo",
    enclosure=(
        "La ruta sale del almacén una hora antes y pasa en orden inverso, así que una "
        "dirección servida la última ahora es la primera. Las entregas que caen en "
        "festivo pasan al día hábil siguiente y no al anterior. Un pedido hecho "
        "después de las cuatro de la tarde va en la ruta siguiente a la próxima, un "
        "día más tarde que antes."
    ),
    letter="Carta",
    sheet="Hoja",
    sheet_one="hoja",
    sheet_many="hojas",
)

# The pages in German.
GERMAN = Words(
    title="Ein Brief pro Empfänger, in einer Datei",
    lead=(
        "Die fünf folgenden Blätter sind vier Briefe, und dieses Verzeichnis führt zu "
        "ihnen. Kein Brief nennt eine Seitenzahl, und keiner musste es: Jeder "
        "Empfänger beansprucht die nächsten Blätter, und das Verzeichnis führt zum "
        "Empfänger statt zu einem Blatt. Bekommt der zweite Brief eine weitere Seite, "
        "muss oben nichts neu gezählt werden."
    ),
    note=(
        "Jeder Eintrag des Verzeichnisses ist eine Aktion, die zu einem Dokumentteil "
        "springt: Sie nennt den Teil, der das Blatt beansprucht, nicht das Blatt "
        "selbst, also landet eine Lesesoftware, die ihr folgt, auf der ersten Seite "
        "dieses Empfängers, wohin diese Seite auch gerückt ist. Ein "
        "Versanddienstleister liest dieselben Teile, um zu wissen, wo zu schneiden "
        "und was zu falten ist."
    ),
    index_heading="Für wen dieser Lauf ist",
    recipients=(
        "Baker and Sons",
        "Halden Joinery",
        "Westmill Dairy",
        "Corran Bookbinders",
    ),
    towns=("Bristol", "Kendal", "Truro", "Oban"),
    country="Vereinigtes Königreich",
    reference="Unser Zeichen:",
    subject="Betreff:",
    subjects=(
        "Ihr Lieferfenster ab September",
        "Die im Juli zurückgegebenen Kisten",
        "Abholung auf dienstags verlegt",
        "Der für Sie reservierte Papiervorrat",
    ),
    greeting="Sehr geehrte Damen und Herren,",
    body=(
        "wir schreiben allen Kunden, die von diesem Depot beliefert werden, weil sich "
        "die Tour, die Sie erreicht, zum Monatsende ändert. Nichts von dem, was Sie "
        "bestellt haben, ist betroffen, und die im März vereinbarten Preise gelten "
        "bis zu ihrer nächsten Überprüfung. Sollte Ihnen die neue Regelung nicht "
        "passen, antworten Sie auf diesen Brief unter Angabe des obigen Zeichens, und "
        "wir behalten die alte für Sie bis zum Jahresende bei."
    ),
    closing="Mit freundlichen Grüßen",
    signer="R. Alderton",
    signer_role="Depotleitung",
    enclosure_title="Was sich ändert, und wann",
    enclosure=(
        "Die Tour verlässt das Depot eine Stunde früher und fährt in umgekehrter "
        "Reihenfolge, also wird eine bisher zuletzt belieferte Adresse jetzt zuerst "
        "beliefert. Lieferungen, die auf einen Feiertag fallen, rücken auf den "
        "Werktag danach statt auf den davor. Eine nach vier Uhr nachmittags "
        "aufgegebene Bestellung fährt mit der übernächsten Tour, einen Tag später als "
        "bisher."
    ),
    letter="Brief",
    sheet="Blatt",
    sheet_one="Blatt",
    sheet_many="Blätter",
)

# Every language the example is written in. A language is added by writing its own set
# of words and naming it here.
WORDS = {_language.ENGLISH: ENGLISH, _language.FRENCH: FRENCH, _language.GERMAN: GERMAN, _language.SPANISH: SPANISH, _language.ITALIAN: ITALIAN, _language.PORTUGUESE: PORTUGUESE, _language.DUTCH: DUTCH}

# The left edge of everything on the pages.
LEFT = 72.0

# How wide a block of text is.
WIDTH = 451.0

# The reference each letter is written under.
REFERENCES = ("CT-4711", "CT-4712", "CT-4713", "CT-4714")

# How many sheets each letter runs to. The first carries an enclosure; the others are a
# single sheet.
SHEETS = (2, 1, 1, 1)


def first_sheets() -> list[int]:
    """The first sheet of each letter, counting the index as sheet zero.

    This is the same running count the parts themselves are given, said once so that
    the index and the hierarchy cannot drift apart."""
    first = []
    cursor = 1
    for run in SHEETS:
        first.append(cursor)
        cursor += run
    return first


def block(
    content: hqf_pdf.Content,
    handle: hqf_pdf.FontHandle,
    size: float,
    top: float,
    text: str,
) -> float:
    """Sets a block of words at `top`, and hands back the ordinate it ends at."""
    flow = hqf_pdf.TextFlow(handle, size)
    lines = flow.break_lines(text, WIDTH)
    # The binding opens the text object itself, so opening another here would write a
    # pair of operators its twin in Rust does not.
    flow.draw(content, lines, LEFT, top, WIDTH)
    return top - flow.height(lines)


def index_line(
    content: hqf_pdf.Content,
    handle: hqf_pdf.FontHandle,
    top: float,
    text: str,
) -> tuple[float, hqf_pdf.Rect]:
    """Sets one line of the index, and hands back the ordinate it ends at together with
    the rectangle it covers."""
    flow = hqf_pdf.TextFlow(handle, 10.5)
    lines = flow.break_lines(text, WIDTH)
    boxes = flow.line_boxes(lines, LEFT, top, WIDTH)
    flow.draw(content, lines, LEFT, top, WIDTH)
    return top - flow.height(lines), boxes[0]


def entry(words: Words, index: int) -> str:
    """How a letter is announced in the index."""
    sheets = words.sheet_many if SHEETS[index] > 1 else words.sheet_one
    return (
        f"{words.recipients[index]} — {words.towns[index]}"
        f" — {REFERENCES[index]} — {SHEETS[index]} {sheets}"
    )


def foot(
    content: hqf_pdf.Content,
    words: Words,
    text: hqf_pdf.FontHandle,
    index: int,
    sheet: int,
) -> None:
    """Draws the foot of a sheet: which letter it belongs to, and where it stands in
    it."""
    flow = hqf_pdf.TextFlow(text, 8.0)
    line = (
        f"{words.letter} {index + 1}/{len(SHEETS)} — {words.recipients[index]}"
        f" — {words.sheet} {sheet + 1}/{SHEETS[index]}"
    )
    content.set_fill(hqf_pdf.Rgb.gray(0.45))
    flow.draw(content, flow.break_lines(line, WIDTH), LEFT, 56.0, WIDTH)
    content.set_fill(hqf_pdf.Rgb.gray(0.0))


def index_sheet(
    words: Words, text: hqf_pdf.FontHandle
) -> tuple[hqf_pdf.Content, list[hqf_pdf.Link]]:
    """Draws the index sheet, and hands back the links its entries carry."""
    content = hqf_pdf.Content()
    top = block(content, text, 17.0, 782.0, words.title) - 12.0
    top = block(content, text, 9.5, top, words.lead) - 26.0
    top = block(content, text, 13.0, top, words.index_heading) - 14.0

    links = []
    for index, first in enumerate(first_sheets()):
        below, covered = index_line(content, text, top, entry(words, index))
        # The link names the part that claims that sheet, not the sheet: the recipient
        # is what a reader is after, and the part is what says where the recipient
        # begins.
        links.append(covered.link_to_part(first))
        top = below - 7.0

    content.set_fill(hqf_pdf.Rgb.gray(0.35))
    block(content, text, 8.5, top - 20.0, words.note)
    content.set_fill(hqf_pdf.Rgb.gray(0.0))
    return content, links


def letter_sheet(
    words: Words, text: hqf_pdf.FontHandle, index: int
) -> hqf_pdf.Content:
    """Draws the sheet one letter is written on."""
    content = hqf_pdf.Content()
    top = block(content, text, 13.0, 782.0, words.recipients[index]) - 6.0
    whereabouts = f"{words.towns[index]}, {words.country}"
    top = block(content, text, 9.0, top, whereabouts) - 22.0

    heading = f"{words.reference} {REFERENCES[index]}"
    top = block(content, text, 9.0, top, heading) - 6.0
    about = f"{words.subject} {words.subjects[index]}"
    top = block(content, text, 10.0, top, about) - 20.0

    top = block(content, text, 9.5, top, words.greeting) - 12.0
    top = block(content, text, 9.5, top, words.body) - 22.0
    top = block(content, text, 9.5, top, words.closing) - 20.0
    top = block(content, text, 9.5, top, words.signer) - 4.0
    block(content, text, 8.5, top, words.signer_role)

    foot(content, words, text, index, 0)
    return content


def enclosure_sheet(words: Words, text: hqf_pdf.FontHandle) -> hqf_pdf.Content:
    """Draws the sheet enclosed with the first letter."""
    content = hqf_pdf.Content()
    top = block(content, text, 13.0, 782.0, words.enclosure_title) - 14.0
    block(content, text, 9.5, top, words.enclosure)
    foot(content, words, text, 0, 1)
    return content


def stated(words: Words, index: int) -> hqf_pdf.PartData:
    """What one letter states about itself, for whatever sends it."""
    return hqf_pdf.PartData(
        entries=[
            ("Recipient", words.recipients[index]),
            ("Town", words.towns[index]),
            ("Reference", REFERENCES[index]),
            ("Sheets", SHEETS[index]),
        ]
    )


def hierarchy(words: Words) -> hqf_pdf.DocumentParts:
    """The hierarchy: the index, then one part per recipient, each taking the sheets
    that follow rather than naming them."""
    parts = [
        hqf_pdf.DocumentPart(
            next_pages=1,
            data=hqf_pdf.PartData(entries=[("Section", "Index")]),
        )
    ]
    parts.extend(
        hqf_pdf.DocumentPart(next_pages=SHEETS[index], data=stated(words, index))
        for index in range(len(SHEETS))
    )
    return hqf_pdf.DocumentParts(hqf_pdf.DocumentPart(children=parts))


def build(words: Words, font: Path) -> bytes:
    """Draws the index and the four letters, and says which sheets belong to whom."""
    doc = hqf_pdf.Document()
    doc.set_license(_licence.licensed())
    # The hierarchy of document parts, and the action that leads to one, are written on
    # PDF 2.0 and on nothing earlier.
    doc.set_version(hqf_pdf.Version.V2_0)
    text = doc.add_font(hqf_pdf.Font.from_path(font))

    drawn, links = index_sheet(words, text)
    index = hqf_pdf.Page.a4()
    index.set_content(drawn)
    for link in links:
        index.add_link(link)
    doc.add_page(index)

    for letter in range(len(SHEETS)):
        sheet = hqf_pdf.Page.a4()
        sheet.set_content(letter_sheet(words, text, letter))
        doc.add_page(sheet)
        if SHEETS[letter] > 1:
            enclosed = hqf_pdf.Page.a4()
            enclosed.set_content(enclosure_sheet(words, text))
            doc.add_page(enclosed)

    doc.set_document_parts(hierarchy(words))
    return doc.to_bytes()


def main() -> None:
    """Writes the index and the four letters."""
    language = _language.from_environment()
    words = _language.words_of(WORDS, language)

    # A named file is written as named; the default one carries the language, so the two
    # languages do not overwrite each other in `tmp/`.
    out = _out.output_path(
        Path(_language.file_name("one_letter_each.pdf", language)).stem
    )

    data = build(words, _out.font_path())

    Path(out).parent.mkdir(parents=True, exist_ok=True)
    Path(out).write_bytes(data)
    print(f"wrote {out}: {len(data)} bytes")


if __name__ == "__main__":
    main()