Date: Sat, 22 Feb 2003 20:12:41 +0900 (JST) From: Hiroki Sato <hrs@eos.ocn.ne.jp> To: nik@FreeBSD.ORG Cc: des@ofug.org, doc@FreeBSD.ORG Subject: Re: piecemeal articles Message-ID: <20030222.201241.59738178.hrs@eos.ocn.ne.jp> In-Reply-To: <20030219160648.GD6403@clan.nothing-going-on.org> References: <20030204201507.GA86389@nathan.ruhr.de> <20030205.053129.78764236.hrs@eos.ocn.ne.jp> <20030219160648.GD6403@clan.nothing-going-on.org>
next in thread | previous in thread | raw e-mail | index | archive | help
[-- Attachment #1 --]
Nik Clayton <nik@FreeBSD.ORG> wrote
in <20030219160648.GD6403@clan.nothing-going-on.org>:
nik> Adding a link back and forth between the split and non-split versions is
nik> something that I've been meaning to do for ages.
I made a patch to add such links using (*-titlepage-separator).
It is somewhat ugly, but what do you think?
nik> But then, shouldn't we perhaps also have links to the other formats as
nik> well (PS, PDF, etc...)?
nik>
nik> I'm not sure.
Yes, I like something like that. But I think it would not be simple
as adding a link to choose split/single html docs.
Anyway, I will try to work on this, too. Any comments/objections?
--
| Hiroki SATO <hrs@eos.ocn.ne.jp> / <hrs@FreeBSD.org>
[-- Attachment #2 --]
Index: freebsd.dsl
===================================================================
RCS file: /home/ncvs/doc/share/sgml/freebsd.dsl,v
retrieving revision 1.69
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.69 freebsd.dsl
--- freebsd.dsl 16 Feb 2003 14:59:30 -0000 1.69
+++ freebsd.dsl 22 Feb 2003 11:07:17 -0000
@@ -76,6 +76,54 @@
(normalize "legalnotice")
(normalize "isbn")))
+
+ (define (make-docformat-navi tlist)
+ (let ((rootgi (gi (sgml-root-element))))
+ (make element gi: "DIV"
+ attributes: '(("CLASS" "DOCFORAMTNAVI"))
+ (literal "[ ")
+ (make-docformat-navi-link rootgi tlist)
+ (literal " ]"))))
+
+ (define (make-docformat-navi-link rootgi tlist)
+ (make sequence
+ (cond
+ ((null? tlist) (empty-sosofo))
+ ((null? (car tlist)) (empty-sosofo))
+ ((not (symbol? (car tlist))) (empty-sosofo))
+ ((equal? (car tlist) 'html-split)
+ (make sequence
+ (create-link (list (list "href" "./index.html"))
+ (literal "Split HTML"))
+ (if (not (null? (cdr tlist)))
+ (make sequence
+ (literal " / ")
+ (make-docformat-navi-link rootgi (cdr tlist)))
+ (empty-sosofo))))
+ ((equal? (car tlist) 'html-single)
+ (make sequence
+ (create-link (list (list "href"
+ (string-append "./" (case-fold-down rootgi) ".html")))
+ (literal "Single HTML"))
+ (if (not (null? (cdr tlist)))
+ (make sequence
+ (literal " / ")
+ (make-docformat-navi-link rootgi (cdr tlist)))
+ (empty-sosofo))))
+ (else (empty-sosofo)))))
+
+ (define (article-titlepage-separator side)
+ (make sequence
+ (make-docformat-navi '(html-split html-single))
+ (make empty-element gi: "HR")))
+
+ (define (book-titlepage-separator side)
+ (if (equal? side 'recto)
+ (make sequence
+ (make-docformat-navi '(html-split html-single))
+ (make empty-element gi: "HR"))
+ (empty-sosofo)))
+
<!-- This is the text to display at the bottom of each page.
Defaults to nothing. The individual stylesheets should
redefine this as necessary. -->
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20030222.201241.59738178.hrs>