[Added alternating color bars to projects table
Dino Morelli <dino@ui3.info>**20140323151845
 Ignore-this: bb59eba320f46addec937a1488d610a7
] hunk ./src/Projmd/Template.hs 33
-formatAllProjects ps = T.unlines $
-   "<table>" :  map formatProject ps ++ ["</table>"]
+formatAllProjects ps =
+   let colors = cycle ["#EDEAE1", "white"]
+   in T.unlines $ "<table>" :  map formatProject (zip colors ps)
+         ++ ["</table>"]
hunk ./src/Projmd/Template.hs 39
-formatProject :: Project -> T.Text
-formatProject p = T.pack $ printf
-   "   <tr><td>[%s](%s)</td><td>%s</td><td>[source](%s)</td></tr>"
-   (pName p) (pPage p) (pSynopsis p) (pSource p)
+formatProject :: (String, Project) -> T.Text
+formatProject (bgcol, p) = T.pack $ printf
+   "   <tr style='background-color: %s;'><td>[%s](%s)</td><td>%s</td><td>[source](%s)</td></tr>"
+   bgcol (pName p) (pPage p) (pSynopsis p) (pSource p)