Remove flattr things.

1 files changed, 0 insertions, 10 deletions

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"))