Changeset 5114 in project


Ignore:
Timestamp:
07/16/07 07:45:10 (13 years ago)
Author:
azul
Message:

Bug fix. Use svnwiki-report-progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • stream-wiki/trunk/extensions/image.scm

    r5062 r5114  
    118118(define (svnwiki-image-handler-render env)
    119119  (let-from-environment env (initial-header-depth path-in path static-url)
     120    (svnwiki-report-progress env "Image generate HTML: ~A~%" path)
    120121    (svnwiki-image-create-helper env)
    121122    (let ((random-id (random 100000)))
     
    174175                (<= size (* 0.9 (max x y))))
    175176              *svnwiki-image-sizes-list*))
    176     (list x y)))
     177    `((,x ,y))))
    177178
    178179(define svnwiki-image-sizes-env
     
    187188(define (svnwiki-image-update env)
    188189  (let-from-environment env (path-in path path-out)
     190    (svnwiki-report-progress env "Image update start: ~A~%" path)
    189191    (let* ((type-input (svnwiki-repository-property-get
    190192                         "svn:mime-type"
     
    196198        (for-each
    197199          (lambda (size)
     200            (svnwiki-report-progress env "Image render generate: ~A: ~A by ~A pixels~%" path (car size) (cadr size))
    198201            (system
    199202              (format #f "anytopnm ~A | pnmscale -xysize ~A ~A | pnmto~A >~A"
Note: See TracChangeset for help on using the changeset viewer.