Index: egg-post-commit.scm =================================================================== --- egg-post-commit.scm (revision 3700) +++ egg-post-commit.scm (working copy) @@ -84,7 +84,7 @@ (string-substitute* str '(("felix" . - "[[felix winkelmann]]")))) + "felix winkelmann")))) (define (make-egg-index-page) (define (t->d t) @@ -95,15 +95,15 @@ (error "Invalid entry, no egg declaration" ii)))] [htmlfile (make-pathname #f (->string (car info)) "html")] ) (print - "[[" - (if (assq 'doc-from-wiki (cdr info)) - (car info) - (conc "http://www.call-with-current-continuation.org/eggs/" htmlfile "|" - (car info) ) ) - "]]" + "" (cadr (assq 'license ii)) - "" (cleanup-links (->string (cadr (assq 'author ii)))) ""))) + "\"/>\n"))) (print "[[tags: eggs]]\n[[toc:]]\n\n" "== Eggs Unlimited\n\n"