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


Ignore:
Timestamp:
08/07/09 14:53:07 (12 years ago)
Author:
sjamaan
Message:

Update to use latest sxml-fu version

File:
1 edited

Legend:

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

    r15352 r15360  
    4141(import chicken scheme)
    4242
    43 (use sxpath-lolevel sxml-transforms doctype)
     43(use sxpath-lolevel sxml-transforms doctype uri-generic)
    4444
    4545(define qwiki-basic-transformation-rules
    46   `((wiki-page *macro* . ,(lambda page
    47                             `((xhtml-1.0-strict)
    48                               (html
    49                                (head
    50                                 (title ,(or (sxml:attr 'title page)
    51                                             "qwiki")))
    52                                (body ,@(sxml:content-raw page))))))))
     46  `((wiki-page
     47     *macro* . ,(lambda page
     48                  `((xhtml-1.0-strict)
     49                    (html
     50                     (head
     51                      (title ,(or (sxml:attr 'title page) "qwiki")))
     52                     (body
     53                      (page-specific-links)
     54                      ,@(sxml:content-raw page))))))
     55    (page-specific-links
     56     *macro* . ,(lambda _
     57                  `(ul (@ (class "page-specific-links"))
     58                       (li (url "?action=show" "show"))
     59                       (li (url "?action=edit" "edit"))
     60                       (li (url "?action=history" "history")))))
     61    ,@alist-conv-rules))
    5362
    5463)
Note: See TracChangeset for help on using the changeset viewer.