(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"))
(post
:title "The Elephly"
:date (string->date* "2010-03-28 00:00")
- :flattr "390348/The-Elephly"
:license "by-sa"
:tags '("weird")
(post
:title "Deng Hou"
:date (string->date* "2010-04-05 00:00")
- :flattr "325437"
:tags '("music" "chinese")
(p [When we were told that during our appearance on “Jia Ting Yan Bo
(post
:title "“Tianshi” on Alto Stick"
:date (string->date* "2010-08-17 00:00")
- :flattr "472329/Tianshi-on-Alto-Stick"
:tags '("music" "video" "chinese" "alto stick" "chapman stick")
(p [When my colleague was in the middle of preparations for getting
:title "Chinese Tune / The mdaEPiano"
:date (string->date* "2010-10-14 00:00")
:photo "mda-epiano-coding.jpg"
- :flattr "72898/LV2-port-of-the-mda-E-Piano-VSTi"
:tags '("code" "music")
(p [In the past two days (actually, mornings and evenings) I have