projects
/
software
/
elephly-net.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
55cdc87
)
Remove flattr things.
author
Ricardo Wurmus
<rekado@elephly.net>
Fri, 29 Dec 2017 19:04:08 +0000
(20:04 +0100)
committer
Ricardo Wurmus
<rekado@elephly.net>
Fri, 29 Dec 2017 19:04:08 +0000
(20:04 +0100)
haunt.scm
patch
|
blob
|
history
posts/2010-03-28-elephly.skr
patch
|
blob
|
history
posts/2010-04-05-deng-hou.skr
patch
|
blob
|
history
posts/2010-08-17-tianshi.skr
patch
|
blob
|
history
posts/2010-10-14-chinese-tune-mda-epiano.skr
patch
|
blob
|
history
static/images/flattr.png
[deleted file]
patch
|
blob
|
history
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