Changeset 2279 in project


Ignore:
Timestamp:
11/04/06 21:32:08 (15 years ago)
Author:
azul
Message:

Delicious.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • stream-wiki/trunk/extensions/links.scm

    r2182 r2279  
    1111    "Reddit"))
    1212
     13(define (link-delicious data)
     14  (html-stream
     15    ((span class "render-bottom" id "delicious")
     16     ((a href (format #f "http://del.icio.us/post?url=~A~A&title=~A"
     17                      (data 'static-url)
     18                      (data 'path)
     19                      (svn-propget "svnwiki:title" (svnwiki-make-pathname path-in path-current) "" "" '())))
     20      "del.icio.us"))))
     21
    1322(set! *extensions*
    1423  `((digg   (files-actions-links ,link-digg-it))
     24    (delicious (files-render-bottom ,link-delicious))
    1525    (reddit (files-actions-links ,link-reddit))))
Note: See TracChangeset for help on using the changeset viewer.