Changeset 15367 in project for release/4/qwiki/trunk/qwiki-sxml.scm


Ignore:
Timestamp:
08/08/09 15:18:53 (12 years ago)
Author:
sjamaan
Message:

Add history viewing functionality

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-sxml.scm

    r15360 r15367  
    4141(import chicken scheme)
    4242
    43 (use sxpath-lolevel sxml-transforms doctype uri-generic)
     43(use posix sxpath-lolevel sxml-transforms doctype uri-generic)
    4444
    4545(define qwiki-basic-transformation-rules
     
    5353                      (page-specific-links)
    5454                      ,@(sxml:content-raw page))))))
     55    ;; Maybe this should be done in multiple steps to make it more "hookable"
     56    (history
     57     *macro* . ,(lambda (history items)
     58                  `(table
     59                    (tr (th "revision")
     60                        (th "author")
     61                        (th "date")
     62                        (th "description"))
     63                    ,@(map (lambda (item)
     64                             `(tr (td (url ,(string-append
     65                                             "?action=show&rev="
     66                                             (number->string (car item)))
     67                                           ,(car item)))
     68                                  (td ,(cadr item))
     69                                  (td ,(time->string (caddr item)))
     70                                  (td ,(cadddr item))))
     71                           items))))
    5572    (page-specific-links
    5673     *macro* . ,(lambda _
Note: See TracChangeset for help on using the changeset viewer.