                  val (.getData dt "value")
                  dVal (.getData dt "displayValue")]
              (do
-               (swap! controller/selected-columns conj {:value val :displayValue dVal :aggregate aggr})
+               (swap! controller/selected-columns
+                      conj
+                      {:value val :displayValue dVal :aggregate aggr})
                (.remove (-> % .-target .-classList) "highlighted")))
           :on-drag-over #(.preventDefault %)
           :style {:display "inline-block"

   [:div {:style {:height "22px"}} "Series Grouping"]
   [:div
    (for [gr @controller/selected-groupings]
      [:div.white-border-top {:style {:padding "2px 4px"}} (format-measure-dimension gr)
       [:a {:href "#"
            :on-click #(do
                         (swap! controller/selected-groupings set/difference #{gr})
                         (.preventDefault %))
            :style {:float "right" :font-weight "bold"}}
        "X"]])
    [:div.white-border-top]]
   [:div {:id "series-grouping-drop-place"
          :on-drag-enter
          #(do 
             (.preventDefault %)
             (set! (.-effectAllowed (.-dataTransfer %)) "copy")
             (.add (-> % .-target .-classList) "highlighted"))


(defn init-right-menu-chart-types []
  [:div.row.white-border {:id "designer-right-menu--types"
                          :style {:height "40%"}}
   [:h4 (str "Chart Type: " @controller/selected-chart-type)]
   (let [c-types @controller/chart-types]
     [:div.container-fluid {:style {:padding "0"}}
