Use the new create-link procedure instead of (make element gi: "A" ...).

This commit is contained in:
Dima Dorfman 2001-06-02 23:06:17 +00:00
parent c99472149c
commit 87f7d3708c
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=9529
4 changed files with 26 additions and 32 deletions
en_US.ISO8859-1
books/porters-handbook
share/sgml
en_US.ISO_8859-1
books/porters-handbook
share/sgml

View file

@ -1,4 +1,4 @@
<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.1 2000/05/09 00:30:11 nik Exp $ -->
<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.2 2000/06/08 02:01:00 jim Exp $ -->
<!-- Local DSSSL file for the Porter's Handbook. This is so we can include
a link to the -ports mailing list at the bottom of the HTML files,
@ -16,16 +16,14 @@
(define ($email-footer$)
(make sequence
(literal "For questions about the FreeBSD ports system, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:ports@freebsd.org"))
(create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
(literal "ports@freebsd.org"))
(literal ">.")
(make empty-element gi: "br")
(literal "For questions about this documentation, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:doc@freebsd.org"))
(literal "doc@freebsd.org"))
(literal ">.")))
(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
(literal "doc@freebsd.org"))
(literal ">.")))
<!-- Convert " ... " to `` ... '' in the HTML output. -->
(element quote

View file

@ -1,4 +1,4 @@
<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.6 2001/03/24 09:42:02 nik Exp $ -->
<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.7 2001/04/15 19:09:31 dd Exp $ -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
@ -17,26 +17,25 @@
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "This, and other documents, can be downloaded from ")
(make element gi: "a"
attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc"))
(create-link
(list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
(literal "ftp.FreeBSD.org/pub/FreeBSD/doc/"))
(literal ".")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "For questions about FreeBSD, read the ")
(make element gi: "a"
attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
(create-link
(list (list "HREF" "http://www.FreeBSD.org/docs.html"))
(literal "documentation"))
(literal " before contacting <")
(make element gi: "a"
attributes: (list (list "href" "mailto:questions@FreeBSD.org"))
(create-link
(list (list "HREF" "mailto:questions@FreeBSD.org"))
(literal "questions@FreeBSD.org"))
(literal ">.")
(make empty-element gi: "br")
(literal "For questions about this documentation, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:doc@FreeBSD.org"))
(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
(literal "doc@FreeBSD.org"))
(literal ">.")))))

View file

@ -1,4 +1,4 @@
<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.1 2000/05/09 00:30:11 nik Exp $ -->
<!-- $FreeBSD: doc/en_US.ISO_8859-1/books/porters-handbook/freebsd.dsl,v 1.2 2000/06/08 02:01:00 jim Exp $ -->
<!-- Local DSSSL file for the Porter's Handbook. This is so we can include
a link to the -ports mailing list at the bottom of the HTML files,
@ -16,16 +16,14 @@
(define ($email-footer$)
(make sequence
(literal "For questions about the FreeBSD ports system, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:ports@freebsd.org"))
(create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
(literal "ports@freebsd.org"))
(literal ">.")
(make empty-element gi: "br")
(literal "For questions about this documentation, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:doc@freebsd.org"))
(literal "doc@freebsd.org"))
(literal ">.")))
(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
(literal "doc@freebsd.org"))
(literal ">.")))
<!-- Convert " ... " to `` ... '' in the HTML output. -->
(element quote

View file

@ -1,4 +1,4 @@
<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.6 2001/03/24 09:42:02 nik Exp $ -->
<!-- $FreeBSD: doc/en_US.ISO_8859-1/share/sgml/freebsd.dsl,v 1.7 2001/04/15 19:09:31 dd Exp $ -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
@ -17,26 +17,25 @@
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "This, and other documents, can be downloaded from ")
(make element gi: "a"
attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc"))
(create-link
(list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
(literal "ftp.FreeBSD.org/pub/FreeBSD/doc/"))
(literal ".")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "For questions about FreeBSD, read the ")
(make element gi: "a"
attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
(create-link
(list (list "HREF" "http://www.FreeBSD.org/docs.html"))
(literal "documentation"))
(literal " before contacting <")
(make element gi: "a"
attributes: (list (list "href" "mailto:questions@FreeBSD.org"))
(create-link
(list (list "HREF" "mailto:questions@FreeBSD.org"))
(literal "questions@FreeBSD.org"))
(literal ">.")
(make empty-element gi: "br")
(literal "For questions about this documentation, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:doc@FreeBSD.org"))
(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
(literal "doc@FreeBSD.org"))
(literal ">.")))))