summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.ur10
1 files 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>