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

[Robin Lee Powell]

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
itself.

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
grateful.

-Robin

- .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: http://en.wikipedia.org/wiki/Buffalo_buffalo
Proud Supporter of the Singularity Institute - http://singinst.org/
http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/