Fix the generation of the HTML manual page link according to new
doc/share/sgml/freebsd.dsl Signaled by: bmah
This commit is contained in:
parent
f2f03122c3
commit
e353d3a1e0
@ -66,10 +66,12 @@
|
||||
(define %refentry-xref-link% #t)
|
||||
|
||||
<!-- Specify how to generate the man page link HREF -->
|
||||
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
|
||||
(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="
|
||||
refentrytitle "&" "sektion=" manvolnum
|
||||
"&" "manpath=FreeBSD+5.0-current"))
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
|
||||
(define (toc-depth nd)
|
||||
(if (string=? (gi nd) (normalize "book"))
|
||||
|
@ -61,10 +61,12 @@
|
||||
(define %refentry-xref-link% #t)
|
||||
|
||||
<!-- Specify how to generate the man page link HREF -->
|
||||
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
|
||||
(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="
|
||||
refentrytitle "&" "sektion=" manvolnum
|
||||
"&" "manpath=FreeBSD+5.0-current"))
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
]]>
|
||||
|
||||
(define (toc-depth nd)
|
||||
|
@ -68,10 +68,12 @@
|
||||
(define %refentry-xref-link% #t)
|
||||
|
||||
<!-- Specify how to generate the man page link HREF -->
|
||||
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
|
||||
(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="
|
||||
refentrytitle "&" "sektion=" manvolnum
|
||||
"&" "manpath=FreeBSD+5.0-current"))
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
]]>
|
||||
|
||||
(define (toc-depth nd)
|
||||
|
@ -68,10 +68,12 @@
|
||||
(define %refentry-xref-link% #t)
|
||||
|
||||
<!-- Specify how to generate the man page link HREF -->
|
||||
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
|
||||
(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="
|
||||
refentrytitle "&" "sektion=" manvolnum
|
||||
"&" "manpath=FreeBSD+5.0-current"))
|
||||
(data r) "&" "sektion=" (data m)
|
||||
"&" "manpath=FreeBSD+5.0-current")))
|
||||
]]>
|
||||
|
||||
(define (toc-depth nd)
|
||||
|
Loading…
x
Reference in New Issue
Block a user