From 36c8ac370567b3f24537a734e8a0091aaa10739f Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Fri, 26 Feb 2016 14:07:03 +0300
Subject: [PATCH] More TODOs

---
 src/Main.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 1ca8407..41df479 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -415,6 +415,7 @@ renderRoot globalState = do
   renderCategoryList (globalState^.categories)
   -- TODO: perhaps use infinite scrolling/loading?
   -- TODO: add links to source and donation buttons
+  -- TODO: maybe add a button like “give me random category that is unfinished”
 
 renderCategoryList :: [Category] -> HtmlT IO ()
 renderCategoryList cats =
@@ -516,6 +517,7 @@ renderItemInfo editable item =
         emptySpan "1em"
         textButton "edit details" $
           JS.setItemInfoMode (this, item^.uid, InEdit)
+        -- TODO: maybe some space here?
       InEdit -> do
         let handler s = JS.submitItemInfo (this, item^.uid, s)
         form_ [onFormSubmit handler] $ do
@@ -557,8 +559,10 @@ renderItemTraits editable item =
               thisNode
             textInput [placeholder_ "add pro"] $
               JS.addPro (listNode, item^.uid, inputValue) <> clearInput
+      -- TODO: maybe add a separator explicitly? instead of CSS
       div_ [class_ "traits-group"] $ do
         p_ "Cons:"
+        -- TODO: maybe add a line here?
         case editable of
           Normal ->
             ul_ $ mapM_ (renderTrait Normal (item^.uid)) (item^.cons)
@@ -626,6 +630,9 @@ button value attrs handler =
     handler' = fromJS handler
 
 -- A text button looks like “[cancel]”
+-- 
+-- TODO: consider dotted links instead?
+-- TODO: text button links shouldn't be marked as visited
 textButton
   :: Text         -- ^ Button text
   -> JS           -- ^ Onclick handler