simplified vendor form.

src/cljs/auto_ap/forms/builder.cljs

@@ -73,6 +73,23 @@
                           [:label.label label]))
           [:div.control [raw-field {} child]]]))]))
 
+(defn horizontal-control []
+  (let [[label & children] (r/children (r/current-component))]
+    [:div.field.is-horizontal
+     (when label
+       [:div.field-label [:label.label label]])
+     [:div.field-body
+      (for [[i child] (map vector (range) children)]
+        ^{:key i}
+        [:div.field
+         child])]]))
+
+(defn horizontal-field []
+  (let [[label child] (r/children (r/current-component))]
+    [horizontal-control
+     label
+     [raw-field {} child]]))
+
 (defn section [{:keys [title]}]
   [:<>
    [:h4.is-4.title title]