From c114ff90f5589e4c97738893d2477eed7bd10f94 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 29 Dec 2017 20:04:08 +0100 Subject: Remove flattr things. --- haunt.scm | 10 ---------- posts/2010-03-28-elephly.skr | 1 - posts/2010-04-05-deng-hou.skr | 1 - posts/2010-08-17-tianshi.skr | 1 - posts/2010-10-14-chinese-tune-mda-epiano.skr | 1 - static/images/flattr.png | Bin 1124 -> 0 bytes 6 files changed, 14 deletions(-) delete mode 100644 static/images/flattr.png diff --git a/haunt.scm b/haunt.scm index f5a7025..91e9e81 100644 --- a/haunt.scm +++ b/haunt.scm @@ -32,15 +32,6 @@ (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))) @@ -229,7 +220,6 @@ in parentheses." ,(date->string* (post-date post)))) ,(photo-snippet post) ,(post-sxml post) - ,(flattr-snippet post) ,(license-snippet post) (p (@ (class "back")) (a (@ (href "/posts")) diff --git a/posts/2010-03-28-elephly.skr b/posts/2010-03-28-elephly.skr index 1372f9d..ad48662 100644 --- a/posts/2010-03-28-elephly.skr +++ b/posts/2010-03-28-elephly.skr @@ -1,7 +1,6 @@ (post :title "The Elephly" :date (string->date* "2010-03-28 00:00") - :flattr "390348/The-Elephly" :license "by-sa" :tags '("weird") diff --git a/posts/2010-04-05-deng-hou.skr b/posts/2010-04-05-deng-hou.skr index 274db87..faf9396 100644 --- a/posts/2010-04-05-deng-hou.skr +++ b/posts/2010-04-05-deng-hou.skr @@ -1,7 +1,6 @@ (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 diff --git a/posts/2010-08-17-tianshi.skr b/posts/2010-08-17-tianshi.skr index fe31247..1404145 100644 --- a/posts/2010-08-17-tianshi.skr +++ b/posts/2010-08-17-tianshi.skr @@ -1,7 +1,6 @@ (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 diff --git a/posts/2010-10-14-chinese-tune-mda-epiano.skr b/posts/2010-10-14-chinese-tune-mda-epiano.skr index 3be00ba..5a25737 100644 --- a/posts/2010-10-14-chinese-tune-mda-epiano.skr +++ b/posts/2010-10-14-chinese-tune-mda-epiano.skr @@ -2,7 +2,6 @@ :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 diff --git a/static/images/flattr.png b/static/images/flattr.png deleted file mode 100644 index 99cf2fd..0000000 Binary files a/static/images/flattr.png and /dev/null differ -- cgit v1.2.3