]> へ質問を投稿する前に") (create-link (list (list "HREF" "http://www.FreeBSD.org/docs.html")) (literal "解説文書")) (literal "をお読みください.") (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "FreeBSD ") (literal (entity-text "release.branch")) (literal " をお使いの方は, ぜひ ") (literal "<") (create-link (list (list "HREF" "mailto:current@FreeBSD.org")) (literal "current@FreeBSD.org")) (literal "> メーリングリストに参加ください."))) (make element gi: "p" attributes: (list (list "align" "center")) (literal "この文書の原文に関するお問い合わせは <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal "> まで, ") (make empty-element gi: "br") (literal "日本語版に関するお問い合わせは, <") (create-link (list (list "HREF" "mailto:doc-jp@jp.FreeBSD.org")) (literal "doc-jp@jp.FreeBSD.org")) (literal "> まで電子メールでお願いします.")))))) (element quote (make sequence (literal "``") (process-children) (literal "''"))) (define %refentry-xref-link% #t) (define ($create-refentry-xref-link$ refentrytitle manvolnum) (string-append "http://www.FreeBSD.org/cgi/man.cgi?query=" refentrytitle "&" "sektion=" manvolnum "&" "manpath=FreeBSD+5.0-current")) ]]> (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 3 3))