Finish bringing support for the vendor attribute to the stylesheets
used for the release documentation.
This commit is contained in:
parent
5cacf8a62b
commit
c72dce584c
@ -68,10 +68,15 @@
|
||||
<!-- 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"))))
|
||||
(string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
(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
|
||||
(("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 (string-append u "&" "manpath=FreeBSD+5.0-current")))))
|
||||
|
||||
(define (toc-depth nd)
|
||||
(if (string=? (gi nd) (normalize "book"))
|
||||
|
@ -63,10 +63,15 @@
|
||||
<!-- 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"))))
|
||||
(string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
(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
|
||||
(("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 (string-append u "&" "manpath=FreeBSD+5.0-current")))))
|
||||
]]>
|
||||
|
||||
(define (toc-depth nd)
|
||||
|
@ -70,10 +70,15 @@
|
||||
<!-- 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"))))
|
||||
(string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
(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
|
||||
(("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 (string-append u "&" "manpath=FreeBSD+5.0-current")))))
|
||||
]]>
|
||||
|
||||
(define (toc-depth nd)
|
||||
|
@ -70,10 +70,15 @@
|
||||
<!-- 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"))))
|
||||
(string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
(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
|
||||
(("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 (string-append u "&" "manpath=FreeBSD+5.0-current")))))
|
||||
]]>
|
||||
|
||||
(define (toc-depth nd)
|
||||
|
Loading…
x
Reference in New Issue
Block a user