 ;;**************************************************************************************************
 
 (defn ui-list-group [list-groups-items & [class+]]
-  (apply dom/div #js {:className (str "list-group"
+  (apply dom/div #js {:className (str "list-group "
                                       (or class+ "col-xs-12 col-sm-12 col-md-12 col-lg-12"))
                       :style #js {:marginTop 10}}
          list-groups-items))




(defn ui-list-group--counts-by [text f points & [nil-text]]
  (let [items (->> points
                   (group-by f)
                   seq)]

     (reduce
      (fn [a [gi items]]
        (conj a (ui-list-group-item
                 {:text (or gi nil-text) :badge (count items)
                  :type (if (nil? gi) :warning :default)})))
      [(ui-list-group-item {:text text :active? true :badge (count points)})]
      items))))







