(src ,(string-append "/images/posts/" meta))))
'())))
-(define (flattr-snippet post)
- (let ((meta (post-ref post 'flattr)))
- (if meta
- `(a (@ (href ,(string-append "http://flattr.com/thing/" meta)))
- (img (@ (title "Flattr this")
- (alt "Flattr this")
- (src "http://api.flattr.com/button/flattr-badge-large.png"))))
- '())))
-
;; TODO: use license
(define (license-snippet post)
(let ((meta (post-ref post 'license)))
,(date->string* (post-date post))))
,(photo-snippet post)
,(post-sxml post)
- ,(flattr-snippet post)
,(license-snippet post)
(p (@ (class "back"))
(a (@ (href "/posts"))