From owner-freebsd-doc Sat Feb 22 3:17:28 2003 Delivered-To: freebsd-doc@freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 3A2DF37B401; Sat, 22 Feb 2003 03:17:25 -0800 (PST) Received: from smtp.eos.ocn.ne.jp (eos.ocn.ne.jp [211.6.83.117]) by mx1.FreeBSD.org (Postfix) with ESMTP id 1863043FBD; Sat, 22 Feb 2003 03:17:24 -0800 (PST) (envelope-from hrs@eos.ocn.ne.jp) Received: from mail.allbsd.org (p30156-adsao12honb4-acca.tokyo.ocn.ne.jp [219.161.183.156]) by smtp.eos.ocn.ne.jp (Postfix) with ESMTP id 323BD250A; Sat, 22 Feb 2003 20:17:21 +0900 (JST) Received: from localhost (alph.allbsd.org [192.168.0.10]) by mail.allbsd.org (8.12.6/3.7W/DomainMaster) with ESMTP id h1MBFCJ8090633; Sat, 22 Feb 2003 20:15:13 +0900 (JST) (envelope-from hrs@eos.ocn.ne.jp) Date: Sat, 22 Feb 2003 20:12:41 +0900 (JST) Message-Id: <20030222.201241.59738178.hrs@eos.ocn.ne.jp> To: nik@FreeBSD.ORG Cc: des@ofug.org, doc@FreeBSD.ORG Subject: Re: piecemeal articles From: Hiroki Sato 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> X-PGPkey-fingerprint: BDB3 443F A5DD B3D0 A530 FFD7 4F2C D3D8 2793 CF2D X-Mailer: Mew version 2.2 on Emacs 20.7 / Mule 4.0 (HANANOEN) Mime-Version: 1.0 Content-Type: Multipart/Mixed; boundary="--Next_Part(Sat_Feb_22_20:12:41_2003_818)--" Content-Transfer-Encoding: 7bit Sender: owner-freebsd-doc@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.org ----Next_Part(Sat_Feb_22_20:12:41_2003_818)-- Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit Nik Clayton 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 / ----Next_Part(Sat_Feb_22_20:12:41_2003_818)-- Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="doc.diff" 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))) + ----Next_Part(Sat_Feb_22_20:12:41_2003_818)---- To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-doc" in the body of the message