[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] Proposed egg-post-commit changes.

From: Robin Lee Powell
Subject: [Chicken-users] Proposed egg-post-commit changes.
Date: Sun, 16 Mar 2008 12:50:03 -0700
User-agent: Mutt/1.5.17+20080114 (2008-01-14)

So I mentioned in an earlier mail that I'd like to do 2-fork
documentation: wiki for general docs and examples and so on, and
mole-generated docs for actual function definitions.

Turns out egg-post-commit won't allow this.  I've got some suggested
changes here, first to the .meta file, then to egg-post-commit.scm

These are totally untested, because I tried to get
egg-post-commit to work on my system and it just kept getting more
and more scary/baroque, and eventually I gave up.

I've updated caketext/1.5 to use this tag, so if someone (Mario?)
could try this new code out on the egg build box, I'd be very


- .meta ----------------------------

; The following is used to add additional documents to the install,
; so the auto-generated or wiki documents can like to them.  All
; file names listed here will have "[egg]-" added to the front, so
; if you put "doc.html" here, make sure "mpeg3-doc.html" exists.

; (documentation "doc.html")

- ----------------------------------

Index: egg-post-commit.scm
--- egg-post-commit.scm (revision 9794)
+++ egg-post-commit.scm (working copy)
@@ -359,6 +359,18 @@
                      (system* "csi -s ~a >~a"
                               (make-pathname egg-dir (cadr edoc))
                               (make-pathname egg-dir eggname "html")) ) ) )
+            ; Install additional documentation, if any.
+            (cond
+              ((assq 'documentation meta)
+               =>
+               (lambda (docs)
+                 (for-each
+                   (lambda (doc)
+                     (let ([doc-full (conc eggname "-" doc)])
+                     (print "Installying additional docs: " doc-full)
+                     (set! eggfiles (cons (make-pathname egg-dir doc-full)))))
+                   (cdr docs)))))
             (print "Creating egg...")
             (if files
                 (system* "D=`pwd`; cd ~a; ~a cfz $D/~a ~a ~a 2>&1"

Lojban Reason #17:
Proud Supporter of the Singularity Institute - ***

reply via email to

[Prev in Thread] Current Thread [Next in Thread]