word edit: inline style for multiple consecutive inputs

diff --git a/writer.plp b/writer.plp
index 62d26d762d0f27f78f12fbd7981a56b797f75a2d..cf19db4904e583610886c58e1e8257186954c4e2 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -28,7 +28,7 @@ form > ul > li > label {
 }
 form > ul > li > label + * {
        /* td */
-       width: 32em;
+       width: 40em;
 }
 
 input,select {
@@ -48,6 +48,7 @@ select {
 #thumbpreview {
        width: 300px;
        align-self: start;
+       flex-shrink: 0;
 }
 
 ul.popup {
@@ -78,6 +79,13 @@ h1 {
 }
 .inline .inline {
        display: flex;
+       margin: 0;
+}
+.inline.multiinput {
+       flex-wrap: wrap;
+}
+.multiinput > input {
+       width: 10em;
 }
 
 #nav > ul,
@@ -295,12 +303,14 @@ package Shiar_Sheet::FormRow {
                                (map {
                                        sprintf('<label for="%s">%s</label>', $col, $_)
                                } $attr->{-label} // ()),
+                               ref $val ne 'ARRAY' ? () : '<span class="inline multiinput">',
                                (map {
                                        sprintf('<input name="%s" value="%s" />', $col, EscapeHTML($_))
                                } ref $val eq 'ARRAY' ? @{$val} : ()),
                                sprintf('<input id="%s" name="%1$s" value="%s"%s />',
                                        $col, ref $val eq 'ARRAY' ? '' : EscapeHTML($val), $html
                                ),
+                               ref $val ne 'ARRAY' ? () : '</span>',
                                (map {
                                        sprintf '<img id="%spreview" src="/%s" alt="%s"%s />',
                                                $col, $_, $row->{form}, $col eq 'source' ? ' hidden' : '';