                              PieChart
                              XYSeries$XYSeriesRenderStyle
                              XChartPanel)
+           (org.knowm.xchart.style Styler$LegendPosition)
            (org.knowm.xchart.style.markers Circle
                                            Diamond
                                            None

              pairs)
       ~expr-sym)))

(defn xy-chart
  "Returns an xy-chart"
  [{:keys [width height title series]
    :or {width 640 height 500}}]
  {:pre [series]}
  (let [chart (XYChart. width height)]

   :scatter XYSeries$XYSeriesRenderStyle/Scatter
   :line XYSeries$XYSeriesRenderStyle/Line})

(def legend-positions
  {:inside-n Styler$LegendPosition/InsideN
   :inside-ne Styler$LegendPosition/InsideNE
   :inside-nw Styler$LegendPosition/InsideNW
   :inside-se Styler$LegendPosition/InsideSW
   :inside-sw Styler$LegendPosition/InsideSW
   :outside-e Styler$LegendPosition/OutsideE})

(defmacro ^:private doto-cond
  "Example:
  (doto-cond expr
