From 65eb70a72630062ac543acd0121a3db12725ff32 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <benjamin@barenblat.name>
Date: Tue, 16 Aug 2016 20:47:42 -0400
Subject: Add checkboxes

---
 main.ur | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/main.ur b/main.ur
index bab2cac..57471cd 100644
--- a/main.ur
+++ b/main.ur
@@ -23,9 +23,15 @@ scripts specified in the .urp file. *)
 val forceJavaScript = <xml><script code={return ()} /></xml>
 
 fun renderNextAction action =
-  <xml>
+  c <- fresh;
+  return <xml>
     <li class="mdl-list__item">
       <span class="mdl-list__item-primary-content">
+        <span class="mdl-list__item-icon">
+          <label class="mdl-checkbox mdl-js-checkbox mdl-js-ripple-effect" for={c}>
+            <ccheckbox id={c} class="mdl-checkbox__input" />
+          </label>
+        </span>
         {[action.Nam]}
       </span>
     </li>
@@ -33,7 +39,7 @@ fun renderNextAction action =
 
 
 val main =
-  actionItems <- queryX1 (SELECT * FROM nextAction) renderNextAction;
+  actionItems <- queryX1' (SELECT * FROM nextAction) renderNextAction;
   setHeader (blessResponseHeader "X-UA-Compatible") "IE=edge";
   return <xml>
     <head>
-- 
cgit v1.2.3

