From c114ff90f5589e4c97738893d2477eed7bd10f94 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 29 Dec 2017 20:04:08 +0100 Subject: [PATCH] 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 99cf2fdc647fdf3542b3fd258454144562d2b22d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1124 zcmeAS@N?(olHy`uVBq!ia0vp^0w65F1|^ba+FL!}=H<(uFBb&ts4Tv`OjMg;iOZg&MU8lP7D;@TiHk z<(wDGhiARkYvW`)1q8o-ufBJ%Sy*`Gm8sg3C%5yLms>vwId$tLr=Vt9a!1&@HGF^n zS}&T?(RpN%Yv+;8>GJk%(^jrLJ>5KK#cF1UlzHa<91IQK({0{gSlHPal9iE>^X35K zQZLoDTkmZ@FA+Y|>(_oJUf!$BKfZ7tka%`}zP4^@sbd1qqH9hZ7cVZHB57z=V>s}+Pp~3jO^H1+{qv%eRoTL-?E_S?R@;xy&l?T zuQfe3VUbtmF_e+o7y6V!_YuDHgURoNY z#3h(_&TH1JUrU*ScGavEWqNRJZN;9|*+rLT!nBl#2 z-n^Q9D?K?}TpChO&zLz=KgOV~Lqlx!G~3U=zjs-3Fth}mYISTmG3WHv>+>xi|5o=; zGy4AC-1KQt$F->0KGP1nvUD7eJ)3u*FExCoX?DkqnbUPv+QxP;{M<7sC|l|L<}i*U zjg4(>_u}sRFW1^e!Ko;|zy?fHPm+f*42tPbz! zaN^<9TFc1bH^1+Ab#<-%Y+tqacW>{jO;8ZJcxy)T@t($dkMr}rHCqJMu3hf;_Liwp zkj}q37ruR~sk^;RSpC`g>$5Z_7v54>G4=eL5FM*`zx(WKG*}i1Twh;a{{E)1Rn$M- z|BQ@BIo>x__TL6(Th$WRh?11Vl2ohYqEsNoU}RuusB2)UYiJf?WMpMxVP$NhZD3(# kVDKx~_ZNzW-29Zxv`X9>x(&X%0W~mqy85}Sb4q9e0KldHB>(^b -- 2.29.2