source: project/stream-wiki/trunk/extensions/contributor.scm @ 2952

Last change on this file since 2952 was 2952, checked in by azul, 13 years ago

Bug fixes, support or contributor:ignore and rating:ignore.

File size: 1.1 KB
1(define (contributor env)
2  (let-from-environment env (user password path-in path)
3    (when (string=? (get-props-parents-first "contributor:ignore" path-in path "no") "no")
4      (let ((history (get-history user password (svnwiki-make-pathname path-in path))))
5        (unless (stream-null? history)
6          (let ((author (third (stream-last history)))
7                (url (get-props-parents-first "contributor:url" path-in path #f)))
8            (svnwiki-render-bottom-span
9              env
10              (html-stream
11                ((span class "render-bottom-span render-bottom-span-contributor")
12                 "Contributed by "
13                 (if (string=? author user)
14                   ((if url
15                      (lambda (name) (html-stream ((a href url) name)))
16                      identity)
17                    (svnwiki-history-message-author (fifth (stream-last history))))
18                   (html-stream
19                     (b (if url
20                          (html-stream ((a href url) author))
21                          author)))))))))))))
23(set! *extensions*
24  `((contributor (render-bottom-span ,contributor))))
Note: See TracBrowser for help on using the repository browser.