Changeset 18172 in project


Ignore:
Timestamp:
05/23/10 13:00:40 (9 years ago)
Author:
azul
Message:

html fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-image/trunk/svnwiki-image.scm

    r14996 r18172  
    193193)
    194194
    195 (define (svnwiki-image-show-sizes-link env function random-id extra-params)
     195(define (image-sizes-javascript env)
     196  (format #f "[~{[~{~A~^, ~}]~^, ~}]" (svnwiki-image-sizes-env env)))
     197
     198(define (call-with-sizes env function random-id extra-params)
    196199  (let-from-environment env (path path-out-real)
    197     (format #f "svnwikiImage.~A('~A', [~{[~{~A~^, ~}]~^, ~}], '~A'~A);"
     200    (format #f "svnwikiImage.~A('~A', ~A, '~A'~A);"
    198201            function
    199202            random-id
    200             (svnwiki-image-sizes-env env)
     203            (image-sizes-javascript env)
    201204            (make-link-url path-out-real path #f)
    202205            extra-params)))
     
    226229            ;(format #f "</h~A>" initial-header-depth)
    227230            ((ul class "svnwiki-image-links" id (format #f "svnwiki-image-links-~A" random-id))
    228              (li ((a href (format #f "javascript:~A" (svnwiki-image-show-sizes-link env "showSizes" random-id ""))) "Change view size")))
     231             (li ((a href (format #f "javascript:~A" (call-with-sizes env "showSizes" random-id ""))) "Change view size")))
    229232            ((div id (format #f "svnwikiImageSizes~A" random-id)))
    230             (let ((src (format #f "~A-~A" (make-link-url path-out-real path #f) (apply max (svnwiki-image-default-size env)))))
    231               (html-stream
    232                 ((a href src
    233                     id (format #f "svnwikiImageLink~A" random-id))
    234                  ((img src src
    235                        id (format #f "svnwikiImage~A" random-id)
    236                        ; TODO: Use svnwiki:title as the alt parameter.
    237                        alt (last (string-split path "/")))))
    238                 ((script type "text/javascript")
    239                  (svnwiki-image-show-sizes-link
    240                    env
    241                    "initImageView"
    242                    random-id
    243                    (format #f ", '~A', '~A'" path (make-link-url path-out-real "xsvnwiki-tags" #f))))))
     233            ((div id (format #f "svnwiki-image-~A" random-id))
     234             (let ((src (format #f "~A-~A" (make-link-url path-out-real path #f) (apply max (svnwiki-image-default-size env)))))
     235               (html-stream
     236                 ((a href src
     237                     id (format #f "svnwikiImageLink~A" random-id))
     238                  ((img src src
     239                        id (format #f "svnwikiImage~A" random-id)
     240                        ; TODO: Use svnwiki:title as the alt parameter.
     241                        alt (last (string-split path "/"))))
     242                 ((script type "text/javascript")
     243                  (call-with-sizes
     244                    env
     245                    "initImageView"
     246                    random-id
     247                    (format #f ", '~A', '~A'" path (make-link-url path-out-real "xsvnwiki-tags" #f)))
     248                  (stream-concatenate
     249                    (call-extensions-delay
     250                      (environment
     251                        env
     252                        ((sizes (image-sizes-javascript env))
     253                         (image-id random-id)))
     254                      'init-image-view-script)))))))
    244255            (let ((author (get-props-parents-first "svnwiki:image:author" path-in path #f))
    245256                  (author-url (get-props-parents-first "svnwiki:image:author-url" path-in path #f)))
Note: See TracChangeset for help on using the changeset viewer.