]> (define %refentry-xref-link% #t) (define (gentext-fr-nav-prev prev) (make sequence (literal "Pr\U-00E9;c\U-00E9;dent"))) (define ($email-footer$) (make sequence (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Ce document, ainsi que d'autres peut être téléchargé sur ") (make element gi: "a" attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc")) (literal "ftp.FreeBSD.org/pub/FreeBSD/doc/")) (literal "."))) (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Pour toutes questions à propos de FreeBSD, lisez la ") (make element gi: "a" attributes: (list (list "href" "http://www.freebsd.org/docs.html")) (literal "documentation")) (literal " avant de contacter <") (make element gi: "a" attributes: (list (list "href" "mailto:questions@FreeBSD.org")) (literal "questions@FreeBSD.org")) (literal ">.") (make empty-element gi: "br") (literal "Pour les questions sur cette documentation, contactez <") (make element gi: "a" attributes: (list (list "href" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">."))))) ]]> (define (local-fr-label-title-sep) (list (list (normalize "warning") "\U-00A0;: ") ))