 
 (defn circle-for-ping [ping]
   [:ellipse {:rx    2
-             :ry    12
-             :style {:opacity "0.1"}
-             :fill  "black"}])
+             :ry    2
+             :style {:opacity "0.5"}
+             :fill  "#396AB1"}])
 
 (declare matrix-plot-view)
 

                                        :range [margin (- height margin)])
        density-yscale (c2.scale/linear :domain [0 24]
                                        :range [(- height margin) margin])
        count-scale    (c2.scale/linear :domain [0 (js/Math.round (* 0.75 count))]
                                        :range [(- height margin) margin])]
    [:svg {:style {:width (str width "px") :height (str height "px")}}
     [axes xscale yscale density-yscale count-scale width height margin min-day max-day]
     [:g
      ^{:key "hist"} [histogram xscale density-yscale height margin]
      ^{:key "matrix"} [matrix xscale yscale]
      ^{:key "cumulative"} [cumulative xscale count-scale width height margin]]]))

(defn tag-table-row-view [tag count tag-% minutes active? time-per-day]
  [:tr (if active?

    (matrix-plot-view @count @width @height @min-day @max-day)))

(defn time-axis [yscale]
  [:g {:style {:stroke "#396AB1"}}
   (c2.svg/axis yscale
                (range 0 (* 24 60 60) (* 4 60 60))
                :orientation :right
                :formatter #(str (/ % 60 60) ":00"))])

(defn hist-axis [density-yscale]
  [:g {:style {:stroke "#DA7C30"}}
   (c2.svg/axis density-yscale
                [0 8 16 24]
                :orientation :left
                :text-margin 25
                :label-margin 40
                :label "Hours (per day)")])

(defn days-axis [xscale]
  (c2.svg/axis
   xscale
   (let [[r0 r1] (:domain xscale)]
     (butlast (range r0 r1 (js/Math.round (/ (- r1 r0) 10)))))
   :orientation :bottom
   :text-margin 25
   :label-margin 43
   :major-tick-width 12
   :formatter format-day-to-time
   :label "Date"))

(defn cum-axis [yscale]
  [:g {:style {:stroke "#3E9651"}}
   (c2.svg/axis
    yscale
    (timbre/spy (conj (:ticks (c2.ticks/search (:domain yscale))) (second (:domain yscale))))
    :orientation :right
    :label "Hours (cum)")])

(defn axes [xscale yscale density-yscale count-scale width height margin min-day max-day]
  [:g {:style       {:stroke       "black"
