Changeset 13637 in project


Ignore:
Timestamp:
03/10/09 04:38:07 (11 years ago)
Author:
Ivan Raikov
Message:

Bug fixes in the eggref-specific code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/egg-post-commit/trunk/egg-post-commit.scm

    r13633 r13637  
    3535(define *wiki-page*)
    3636(define *wiki-dir* (make-pathname (current-directory) "wiki"))
     37
     38(define (eggref-dir eggname)
     39  (and *major-version*
     40       (let* ((eggref-base (make-pathname +wiki-dir+ +eggref-path+))
     41              (eggref-mver (make-pathname eggref-base (->string *major-version*))))
     42         (make-pathname eggref-mver eggname))))
    3743
    3844(define categories
     
    254260                (p (b "Note: ")
    255261                   "This is taken from "
    256                    ((a href
    257                        (or (and *major-version* (format #f "~A/~A/~A/~A" +wiki-url+ +eggref-path+ *major-version* egg))
    258                            (format #f "~A/~A" +wiki-url+ egg))
    259                            )
     262                   ((a href (or (eggref-dir egg) (format #f "~A/~A" +wiki-url+ egg)) )
    260263                    "the Chicken Wiki")
    261264                   ", where a more recent version could be available.")
    262265                 (wiki->html
    263266                  (port->stream
    264                    (open-input-file (make-pathname *wiki-dir* egg)))
     267                   (open-input-file (eggref-dir egg)))
    265268                  stream-null
    266269                  ""
     
    324327             (pp meta)
    325328             (cond ((assq 'doc-from-wiki meta)
    326                     (cond ((file-exists? (make-pathname *wiki-dir* eggname))
    327                            (print "Create HTML from wiki")
    328                            (make-html-from-wiki egg-dir eggname))
    329                           (else (print "wiki page missing: " eggname))))
     329                    (cond ((and (eggref-dir eggname) (file-exists? (eggref-dir eggname)))
     330                            (print "Create HTML from wiki")
     331                            (make-html-from-wiki egg-dir eggname))
     332                           (else (print "wiki page missing: " eggname))))
    330333                   ((assq 'eggdoc meta) =>
    331334                    (lambda (edoc)
Note: See TracChangeset for help on using the changeset viewer.