diff options
| author |  Benjamin Barenblat <benjamin@barenblat.name> | 2016-08-16 20:47:42 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <benjamin@barenblat.name> | 2016-08-16 20:47:42 -0400 |
| commit | 65eb70a72630062ac543acd0121a3db12725ff32 (patch) | |
| tree | f98111fe94e7e88cb8f620244157ef96aba21f45 | |
| parent | eb4c69f4606bcae608abe661375b5e90fb8b1be3 (diff) | |
Add checkboxes
| -rw-r--r-- | main.ur | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -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> |