Remove flattr things.

diff --git a/haunt.scm b/haunt.scm
index f5a7025add598e0253589f28f8084017732fe3ad..91e9e81ff2fc94acf69c60d37d9255e3851ef0b1 100644 (file)
--- a/haunt.scm
+++ b/haunt.scm
@@ -32,15 +32,6 @@
                  (src ,(string-append "/images/posts/" meta))))
         '())))
 
                  (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)))
 ;; 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)
                      ,(date->string* (post-date post))))
              ,(photo-snippet post)
              ,(post-sxml post)

-             ,(flattr-snippet post)

              ,(license-snippet post)
              (p (@ (class "back"))
                 (a (@ (href "/posts"))
              ,(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 1372f9d37e7ce46acdae0a88595d0d76ff22fedb..ad486626b47d5137aea26b2577adfa66f59a7c36 100644 (file)
--- 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")
 (post
  :title "The Elephly"
  :date (string->date* "2010-03-28 00:00")

- :flattr "390348/The-Elephly"

  :license "by-sa"
  :tags '("weird")
 
  :license "by-sa"
  :tags '("weird")
 

diff --git a/posts/2010-04-05-deng-hou.skr b/posts/2010-04-05-deng-hou.skr
index 274db87b4a798a1d80c863379c55fb75fc5dffcd..faf93960f4fb737b6f428b4c5795ce0ec198dd21 100644 (file)
--- 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")
 (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
  :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 fe3124716319d44719f89dd4aab30626f1b905d4..140414527319aa89f869775926ae88865efa651e 100644 (file)
--- 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")
 (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
  :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 3be00ba2f9d70ce0c47638eddb36a6abeca02911..5a2573727d0963f8d033f44ff8760ab1f9d1dba8 100644 (file)
--- 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"
  :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
  :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