diff options
Diffstat (limited to 'da_DK.ISO8859-1/share/sgml')
| -rw-r--r-- | da_DK.ISO8859-1/share/sgml/freebsd.dsl | 29 |
1 files changed, 4 insertions, 25 deletions
diff --git a/da_DK.ISO8859-1/share/sgml/freebsd.dsl b/da_DK.ISO8859-1/share/sgml/freebsd.dsl index 005cafdae5..43501ab3fd 100644 --- a/da_DK.ISO8859-1/share/sgml/freebsd.dsl +++ b/da_DK.ISO8859-1/share/sgml/freebsd.dsl @@ -13,6 +13,10 @@ <!-- HTML only .................................................... --> <![ %output.html; [ + + <!-- Generate links to HTML man pages --> + (define %refentry-xref-link% #t) + (define ($email-footer$) (make sequence (make element gi: "p" @@ -40,31 +44,6 @@ (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">."))))) - - - <!-- Convert " ... " to `` ... '' in the HTML output. --> - (element quote - (make sequence - (literal "``") - (process-children) - (literal "''"))) - - <!-- Generate links to HTML man pages --> - (define %refentry-xref-link% #t) - - <!-- Specify how to generate the man page link HREF --> - (define ($create-refentry-xref-link$ #!optional (n (current-node))) - (let* ((r (select-elements (children n) (normalize "refentrytitle"))) - (m (select-elements (children n) (normalize "manvolnum"))) - (v (attribute-string (normalize "vendor") n)) - (u (string-append "http://www.FreeBSD.org/cgi/man.cgi?query=" - (data r) "&" "sektion=" (data m)))) - (case v - (("current") (string-append u "&" "manpath=FreeBSD+5.0-current")) - (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0")) - (("netbsd") (string-append u "&" "manpath=NetBSD+1.5")) - (("ports") (string-append u "&" "manpath=FreeBSD+Ports")) - (else u)))) ]]> <!-- More aesthetically pleasing chapter headers for print output --> |