From f1cdd51536601dcbc20c53596b543e2fa7cd6531 Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Thu, 17 Mar 2016 01:02:37 +0300
Subject: [PATCH] Move the donations page to a file in static/

---
 src/View.hs        | 43 ++-----------------------------------------
 static/donate.html | 12 ++++++++++++
 2 files changed, 14 insertions(+), 41 deletions(-)
 create mode 100644 static/donate.html

diff --git a/src/View.hs b/src/View.hs
index d46a50d..b085093 100644
--- a/src/View.hs
+++ b/src/View.hs
@@ -54,7 +54,6 @@ import Data.Text (Text)
 import NeatInterpolation
 -- Web
 import Lucid hiding (for_)
-import Lucid.Base (makeAttribute)
 
 -- Local
 import Types
@@ -186,46 +185,8 @@ renderDonate = doctypehtml_ $ do
     includeCSS "/css.css"
     renderTracking
 
-  -- TODO: move this into its own file in static/?
-  body_ $ do
-    toHtml $ renderMarkdownBlock [text|
-      Okay, the rules: if you donate *anything*, I'll spend some time working
-      on the site this day (adding content, implementing new features, etc).
-
-      (Of course, I'm planning to be working on the site anyway, donations
-      or not! However, I jump from project to project way too often (and
-      rarely manage to finish anything), so donating money is a good way to
-      make sure that I'd feel obligated to keep working on this one. If I
-      find out that it doesn't work as a motivation, I'll stop accepting
-      donations.)
-
-      Just in case, 1000 rub. is 14$ (or 12.5€), and you can choose any
-      amount below 15000 rub. (I'd put a Paypal button, but Paypal doesn't
-      allow receiving money in Belarus.)
-      |]
-    style_ [text|
-      #iframe-hold {
-        background: url(loading.svg) center center no-repeat; }
-      |]
-    div_ [id_ "iframe-hold"] $
-      iframe_ [
-        makeAttribute "frameborder" "0",
-        makeAttribute "allowtransparency" "true",
-        makeAttribute "scrolling" "no",
-        width_ "450",
-        height_ "197",
-        style_ "display:block;margin:auto;",
-        src_ "https://money.yandex.ru/embed/shop.xml\
-             \?account=410011616040682\
-             \&quickpay=shop\
-             \&payment-type-choice=on\
-             \&mobile-payment-type-choice=on\
-             \&writer=seller\
-             \&targets=Haskell+guide\
-             \&targets-hint=\
-             \&default-sum=1000\
-             \&button-text=04\
-             \&successURL=" ] ""
+  body_ $
+    toHtmlRaw =<< liftIO (readFile "static/donate.html")
 
 -- TODO: allow archiving items if they are in every way worse than the rest,
 -- or something (but searching should still be possible)
diff --git a/static/donate.html b/static/donate.html
new file mode 100644
index 0000000..ea59dc7
--- /dev/null
+++ b/static/donate.html
@@ -0,0 +1,12 @@
+<p>Okay, the rules: if you donate <i>anything</i>, I'll spend some time working on the site this day (adding content, implementing new features, etc). Of course, I'm planning to be working on the site anyway, donations or not! However, I jump from project to project way too often (and rarely manage to finish anything), so donating money is a good way to make sure that I'd feel obligated to keep working on this one. If I find out that it doesn't work as a motivation, I'll stop accepting donations.</p>
+
+<p>Just in case, 1000 rub. is 14$ (or 12.5€), and you can choose any amount below 15000 rub. (I'd put a Paypal button, but Paypal doesn't allow receiving money in Belarus.)</p>
+
+<style>
+#iframe-hold {
+  background: url(loading.svg) center center no-repeat; }
+</style>
+
+<div id="iframe-hold">
+<iframe frameborder="0" allowtransparency="true" scrolling="no" width="450" height="197" style="display:block;margin:auto;" src="https://money.yandex.ru/embed/shop.xml?account=410011616040682&quickpay=shop&payment-type-choice=on&mobile-payment-type-choice=on&writer=seller&targets=Haskell+guide&targets-hint=&default-sum=1000&button-text=04&successURL="></iframe>
+</div>