Remove flattr things.
authorRicardo Wurmus <rekado@elephly.net>
Fri, 29 Dec 2017 19:04:08 +0000 (20:04 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Fri, 29 Dec 2017 19:04:08 +0000 (20:04 +0100)
haunt.scm
posts/2010-03-28-elephly.skr
posts/2010-04-05-deng-hou.skr
posts/2010-08-17-tianshi.skr
posts/2010-10-14-chinese-tune-mda-epiano.skr
static/images/flattr.png [deleted file]

index f5a7025..91e9e81 100644 (file)
--- a/haunt.scm
+++ b/haunt.scm
                  (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"))
index 1372f9d..ad48662 100644 (file)
@@ -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")
 
index 274db87..faf9396 100644 (file)
@@ -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
index fe31247..1404145 100644 (file)
@@ -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
index 3be00ba..5a25737 100644 (file)
@@ -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 (file)
index 99cf2fd..0000000
Binary files a/static/images/flattr.png and /dev/null differ