       title (.setTitle title)
       (-> styling :x-axis :title) (.setXAxisTitle (-> styling :x-axis :title))
       (-> styling :y-axis :title) (.setYAxisTitle (-> styling :y-axis :title))))))
+
+(extend-type CategoryChart
+  Chart
+  (add-series! [chart s-name data]
+    (if (sequential? data)
+      (apply add-raw-series chart s-name data)
+      (let [{:keys [x y error-bars style]} data
+            {:keys [marker-color marker-type
+                    line-color line-style line-width
+                    fill-color show-in-legend? render-style]} style]
+        (doto-cond
+         (if error-bars
+           (add-raw-series chart s-name x y error-bars)
+           (add-raw-series chart s-name x y))
+         render-style (.setChartCategorySeriesRenderStyle (category-render-styles render-style))
+         marker-color (.setMarkerColor (colors marker-color marker-color))
+         marker-type (.setMarker (markers marker-type marker-type))
+         line-color (.setLineColor (colors line-color line-color))
+         line-style (.setLineStyle (strokes line-style line-style))
+         line-width (.setLineWidth (float line-width))
+         fill-color (.setFillColor (colors fill-color fill-color))
+         (not (nil? show-in-legend?)) (.setShowInLegend (boolean show-in-legend?)))))))
 
 (defn category-chart*
   "Returns a raw category chart. Prefer `category-chart` unless you

      theme (.setTheme (themes theme theme))
      render-style (.setDefaultSeriesRenderStyle (xy-render-styles render-style)))
     (doseq [[s-name data] series]
       (if-let [render-style (-> data :style :render-style)]
         (add-series! chart s-name
                      (assoc-in data [:style :xy-render-style]
                                render-style))
         (add-series! chart s-name data)))
     (doto (.getStyler chart)
       (set-default-style! styling)
       (set-axes-style! styling))

         ;; Need to rebind this one. We could probably omit it from the keys
         ;; entry at the top, if it's not used for documentation purposes.
         annotation-distance (:annotation-distance styling)]
     (doseq [[s-name data] series]
       (add-series! chart s-name data))
     (doto-cond
      (.getStyler chart)
      theme (.setTheme (themes theme theme))
