Changeset 29268 in project


Ignore:
Timestamp:
06/28/13 05:09:41 (8 years ago)
Author:
Ivan Raikov
Message:

testdrive: added links to tables ordered by properties in html output

Location:
release/4/testdrive/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/testdrive/trunk/testdrive.scm

    r29128 r29268  
    519519               (cons module-name
    520520                     (cons* `(version . ,(car version.path))
    521                             `(source . ,(link source-file
     521                            `(source . ,(link (pathname-strip-directory source-file)
    522522                                              (pathname-strip-directory source-file)))
    523523                            (alist-ref 'meta module-config)))
     
    541541    ,(map
    542542      (lambda (meta)
    543         (let ((sorted-meta-data (sort meta-data (meta-data< meta))))
    544           `((h1 ,(sprintf "Modules ordered by property ~A" meta))
     543        (let ((sorted-meta-data (sort meta-data (meta-data< meta)))
     544              (key (sprintf "orderedby~A" meta)))
     545          `((h1 (a (@ (id ,key)) ,(sprintf "Modules ordered by property ~A" meta)))
    545546            (table
    546              (tr . ,(map (lambda (x) `(th (b ,x))) (cons "Module" meta-headers)))
     547             (tr . ,(map (lambda (n href) `(th (a (@ (href ,href)) (b ,n))))
     548                         (cons "Module" meta-headers)
     549                         (cons "" (map (lambda (h) (sprintf "orderedby~A" h)) meta-headers))
     550                         ))
    547551             ,(modules-table sorted-meta-data meta-headers)
    548552             )
  • release/4/testdrive/trunk/testdrive.setup

    r29128 r29268  
    99
    1010  ; Assoc list with properties for the program:
    11   '((version 1.5)))
     11  '((version 1.6)))
    1212
Note: See TracChangeset for help on using the changeset viewer.