   > \"July\"
   "
   [date-format date]
-  (.format (goog.i18n.DateTimeFormat. (or (date-formats date-format) date-format))  date))
+  (if (nil? date) nil 
+      (.format (goog.i18n.DateTimeFormat. (or (date-formats date-format) date-format))  date)))
 
 (defn str-to-date-and-format [date-format alt-string s]
   (if (nil? s) alt-string

;;**************************************************************************************************

(defn ui-list-group [list-groups-items & [class+]]
  (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 [points f
                                {:keys [text nil-text]
                                 :or {text "метка в заголовке"
                                      nil-text "не указано"}}]
  (let [items (->> points
                   (group-by f)
                   seq)]
