~alcinnz/bureaucromancy: Add preview for text entry, multi-line support.

6 files changed, 16 insertions(+), 1 deletions(-)

M src/Text/HTML/Form.hs
M tpl/latin1-accent-lower.html
M tpl/latin1-accent.html
M tpl/latin1-symbol.html
M tpl/latin1-upper.html
M tpl/latin1.html

M src/Text/HTML/Form.hs => src/Text/HTML/Form.hs +1 -1

@@ 223,7 223,7 @@ parseInput el | _:_ <- laxElement "input" el = Just Input {
         },
 
         checked = False,
-        multiple = False,
+        multiple = True,
         formAction = Nothing,
         formEnctype = Nothing,
         formMethod = Nothing,

M tpl/latin1-accent-lower.html => tpl/latin1-accent-lower.html +3 -0

@@ 1,6 1,9 @@
 {% extends "base.html" %}
 
 {%- block control -%}<section>
+  <p><span style="white-space: pre">{{ input.value }}</span>
+    {% if input.multiple %}<a href=":%0A{{Q}}">↲</a>{% endif %}</p>
+  <hr />
   <p><a href="..">abc</a> | <a href="../latin1-upper/{{Q}}">ABC</a> |
       <a href="../latin1-symbol/{{Q}}">!@#</a> | <strong>àêï</strong> |
       <a href="../latin1-accent/{{Q}}">ÀÊÏ</a></p>

M tpl/latin1-accent.html => tpl/latin1-accent.html +3 -0

@@ 1,6 1,9 @@
 {% extends "base.html" %}
 
 {%- block control -%}<section>
+  <p><span style="white-space: pre">{{ input.value }}</span>
+    {% if input.multiple %}<a href=":%0A{{Q}}">↲</a>{% endif %}</p>
+  <hr />
   <p><a href="..">abc</a> | <a href="../latin1-upper/{{Q}}">ABC</a> |
       <a href="../latin1-symbol/{{Q}}">!@#</a> |
       <a href="../latin1-accent-lower/{{Q}}">àêï</a> |

M tpl/latin1-symbol.html => tpl/latin1-symbol.html +3 -0

@@ 1,6 1,9 @@
 {% extends "base.html" %}
 
 {%- block control -%}<section>
+  <p><span style="white-space: pre">{{ input.value }}</span>
+    {% if input.multiple %}<a href=":%0A{{Q}}">↲</a>{% endif %}</p>
+  <hr />
   <p><a href="..{{Q}}">abc</a> | <a href="../latin1-upper/{{Q}}">ABC</a> |
       <strong>!@#</strong> | <a href="../latin1-accent-lower/{{Q}}">àêï</a> |
       <a href="../latin1-accent/{{Q}}">ÀÊÏ</a></p>

M tpl/latin1-upper.html => tpl/latin1-upper.html +3 -0

@@ 1,6 1,9 @@
 {% extends "base.html" %}
 
 {%- block control -%}<section>
+  <p><span style="white-space: pre">{{ input.value }}</span>
+    {% if input.multiple %}<a href=":%0A{{Q}}">↲</a>{% endif %}</p>
+  <hr />
   <p><a href="..{{Q}}">abc</a> | <strong>ABC</strong> |
       <a href="../latin1-symbol/{{Q}}">!@#</a> |
       <a href="../latin1-accent-lower/{{Q}}">àêï</a> |

M tpl/latin1.html => tpl/latin1.html +3 -0

@@ 1,6 1,9 @@
 {% extends "base.html" %}
 
 {%- block control -%}<section>
+  <p><span style="white-space: pre">{{ input.value }}</span>
+    {% if input.multiple %}<a href=":%0A{{Q}}">↲</a>{% endif %}</p>
+  <hr />
   <p><strong>abc</strong> | <a href="latin1-upper/{{Q}}">ABC</a> |
       <a href="latin1-symbol/{{Q}}">!@#</a> |
       <a href="latin1-accent-lower/{{Q}}">àêï</a> |