Date: Mon, 26 Aug 2002 00:12:08 +0900 (JST) From: Hiroki Sato <hrs@jp.FreeBSD.org> To: blackend@FreeBSD.ORG Cc: freebsd-doc@FreeBSD.ORG Subject: Re: [PATCH] Support for links to Ports manual pages Message-ID: <20020826.001208.104026181.hrs@eos.ocn.ne.jp> In-Reply-To: <20020825154120.A21468@abigail.blackend.org> References: <20020825154120.A21468@abigail.blackend.org>
next in thread | previous in thread | raw e-mail | index | archive | help
Hi,
Marc Fonvieille <blackend@FreeBSD.ORG> wrote
in <20020825154120.A21468@abigail.blackend.org>:
blackend> Here's my patch against doc/share/sgml/freebsd.dsl
Sounds good to me, but URL strings should be created by
($create-refentry-xref-link$) defined in language-dependent
directories (mainly for the i18n purpose).
And, the latest version of DSSSL stylesheet (v1.7x) does not need
our own (element citerefentry) definition. It was updated to use
%citerefentry-link% instead, so I think we also need to use it.
A patch is attached for your information.
-- Hiroki SATO <hrs@eos.ocn.ne.jp>
Index: doc/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/ncvs/doc/share/sgml/freebsd.dsl,v
retrieving revision 1.64
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.64 freebsd.dsl
--- doc/share/sgml/freebsd.dsl 27 Feb 2002 04:56:44 -0000 1.64
+++ doc/share/sgml/freebsd.dsl 25 Aug 2002 14:18:08 -0000
@@ -108,38 +108,17 @@
(empty-sosofo))
($email-footer$))))
- (define %refentry-xref-link%
- ;; REFENTRY refentry-xref-link
- ;; PURP Generate URL links when cross-referencing RefEntrys?
- ;; DESC
- ;; If true, a web link will be generated, presumably
- ;; to an online man->HTML gateway. The text of the link is
- ;; generated by the $create-refentry-xref-link$ function.
- ;; /DESC
- ;; AUTHOR N/A
- ;; /REFENTRY
- #f)
-
- ; Empty function to quiet warnings
- (define ($create-refentry-xref-link$ refentrytitle manvolnum)
- (literal ""))
-
- (element citerefentry
- (let* ((refentrytitle (select-elements (children (current-node))
- (normalize "refentrytitle")))
- (manvolnum (select-elements (children (current-node))
- (normalize "manvolnum")))
- (href ($create-refentry-xref-link$
- (data refentrytitle)
- (data manvolnum))))
- (if %refentry-xref-link%
- (create-link (list (list "HREF" href))
- (if %refentry-xref-italic%
- ($italic-seq$)
- ($charseq$)))
- (if %refentry-xref-italic%
- ($italic-seq$)
- ($charseq$)))))
+ (define %citerefentry-link%
+ ;; REFENTRY citerefentry-link
+ ;; PURP Generate URL links when cross-referencing RefEntrys?
+ ;; DESC
+ ;; If true, a web link will be generated, presumably
+ ;; to an online man->HTML gateway. The text of the link is
+ ;; generated by the $generate-citerefentry-link$ function.
+ ;; /DESC
+ ;; AUTHOR N/A
+ ;; /REFENTRY
+ #f)
(element filename
(let* ((class (attribute-string (normalize "role"))))
Index: doc/en_US.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/ncvs/doc/en_US.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.14
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.14 freebsd.dsl
--- doc/en_US.ISO8859-1/share/sgml/freebsd.dsl 2 Sep 2001 02:37:50 -0000 1.14
+++ doc/en_US.ISO8859-1/share/sgml/freebsd.dsl 25 Aug 2002 14:13:46 -0000
@@ -50,12 +50,23 @@
(literal "''")))
<!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
+ (define %citerefentry-link% #t)
<!-- Specify how to generate the man page link HREF -->
- (define ($create-refentry-xref-link$ refentrytitle manvolnum)
- (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
- refentrytitle "&" "sektion=" manvolnum))
+ (define ($generate-citerefentry-link$)
+ (let* ((refentrytitle (select-elements (children (current-node))
+ (normalize "refentrytitle")))
+ (manvolnum (select-elements (children (current-node))
+ (normalize "manvolnum")))
+ (manpath (attribute-string (normalize "role")
+ (current-node))))
+ (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
+ (data refentrytitle)
+ "&" "sektion="
+ (data manvolnum)
+ "&" "manpath="
+ (if manpath manpath ""))))
+
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-doc" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20020826.001208.104026181.hrs>