                                {:id "6" :label "6 Donec id elit non mi porta gravida at eget metus. Maecenas sed diam eget risus varius blandit" :short "Short label 6"}
                                {:id "7" :label "7 Donec id elit non mi porta gravida at eget metus. Maecenas sed diam eget risus varius blandit" :short "Short label 7"}])
         selections    (r/atom (set [(second @items)]))]
-    (case variation
-      "1" [(fn
-             []
-             [parameters-with
-               [v-box
-                :gap      "20px"
-                :align    :start
-                :children [[selection-list
-                            :width         "391px"      ;; manual hack for width of variation panel A+B 1024px
-                            :max-height    "95px"       ;; based on compact style @ 19px x 5 rows
-                            :model         selections
-                            :choices       items
-                            :label-fn      :label
-                            :as-exclusions as-exlcusion?
-                            :multi-select  multi-select?
-                            :disabled      disabled?
-                            :required      required?
-                            :on-change     #(do (println %) (reset! selections %))]]]
-               multi-select?
-               disabled?
-               required?
-               as-exlcusion?])])))
+    [options-with
+     width
+     [v-box ;; TODO: v-box required to constrain height of internal border.
+      :children [[selection-list
+                  :width         "391px"      ;; manual hack for width of variation panel A+B 1024px
+                  :max-height    "95px"       ;; based on compact style @ 19px x 5 rows
+                  :model         selections
+                  :choices       items
+                  :label-fn      :label
+                  :as-exclusions as-exlcusion?
+                  :multi-select  multi-select?
+                  :disabled      disabled?
+                  :required      required?
+                  :on-change     #(do (println %) (reset! selections %))]]]
+     multi-select?
+     disabled?
+     required?
+     as-exlcusion?]))
 
 
 (defn- notes
-  [_ width]
+  [width]
   [v-box
    :width (str width "px")
    :children [[:div.h4 "Parameters:"]

(ns re-demo.lists
  (:require [reagent.core          :as     r]
            [re-com.core           :refer  [label checkbox]]
            [re-com.box            :refer  [h-box v-box gap]]
            [re-com.dropdown       :refer  [single-dropdown]]
            [re-com.selection-list :refer  [selection-list]]
            [re-com.util           :refer  [golden-ratio-a golden-ratio-b]]))


(defn- parameters-with
  [content multi-select? disabled? required? as-exclusions?]
  (fn []
    (let [check-style {:font-size "small" :margin-top "1px"}]
      [v-box
       :gap      "20px"
       :align    :start
       :children [[label :style {:font-style "italic"} :label "boolean parameters:"]




(defn- list-with-options
  [width]
  (let [disabled?     (r/atom false)
        multi-select? (r/atom true)
        required?     (r/atom true)
