From 28cf201a064ba46895a2c94b80d53ab55d009ead Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Sat, 20 Feb 2016 00:09:49 +0300
Subject: [PATCH] Style text buttons differently

---
 src/Main.hs    | 9 +++------
 static/css.css | 6 ++++++
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 700a676..c72c8cd 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -209,7 +209,6 @@ renderCategoryHeading category =
   h2_ $ do
     -- TODO: make category headings anchor links
     toHtml (category^.title)
-    " "
     textButton "edit" $ js_startCategoryHeadingEdit [category^.catId]
 
 renderCategoryHeadingEdit :: Category -> Html ()
@@ -218,7 +217,6 @@ renderCategoryHeadingEdit category =
     let handler = js_submitCategoryHeadingEdit
                     (category^.catId, js_thisValue)
     input_ [type_ "text", value_ (category^.title), submitFunc handler]
-    " "
     textButton "cancel" $ js_cancelCategoryHeadingEdit [category^.catId]
 
 renderCategory :: Category -> Html ()
@@ -417,10 +415,9 @@ textButton
   :: Text    -- ^ Button text
   -> Text    -- ^ Onclick handler
   -> Html ()
-textButton caption handler = span_ $ do
-  "["
-  a_ [href_ "javascript:void(0)", onclick_ handler] (toHtml caption)
-  "]"
+textButton caption handler =
+  span_ [class_ "textButton"] $
+    a_ [href_ "javascript:void(0)", onclick_ handler] (toHtml caption)
 
 lucid :: Html a -> ActionT IO a
 lucid = html . TL.toStrict . renderText
diff --git a/static/css.css b/static/css.css
index 76bdb82..20560da 100644
--- a/static/css.css
+++ b/static/css.css
@@ -10,3 +10,9 @@
 
 .pros, .cons {
   margin: 0px 5px; }
+
+.textButton {
+  margin-left: 1em; }
+
+.textButton::before {content: "[";}
+.textButton::after  {content: "]";}