Refactor more generic.

.scalafmt.conf

@@ -3,7 +3,7 @@ version = "3.8.3"
 runner.dialect = scala3
 project.git = true
 
-preset = Scala.js
+# preset = Scala.js
 indent.defnSite = 2
 align.preset = more
 maxColumn = 120
@@ -28,4 +28,4 @@ fileOverride {
     runner.dialect = scala213
     rewrite.rules = [SortModifiers, PreferCurlyFors]
   }
-}
+}

src/Main.scala

@@ -1,8 +1,16 @@
-import org.scalajs.dom.*
+import scala.scalajs.js
+
+import org.scalajs.dom.HTMLElement
+import org.scalajs.dom.MutationObserver
+import org.scalajs.dom.MutationObserverInit
+import org.scalajs.dom.URL
+import org.scalajs.dom.document
+import org.scalajs.dom.window
 
 import core.*
 import garmin.*
-import plotly.given
+import garmin.read.given
+import plotly.{*, given}
 
 object Main:
 
@@ -14,9 +22,15 @@ object Main:
     MutationObserver: (smr, _) =>
       val url   = URL(window.location.href)
       val added = smr.flatMap(_.addedNodes).collect({ case e: HTMLElement => e }).toSeq
-      summon[Page[(Activities, Profile)]](url -> added)
+      Page[(Activities, Profile)](url -> added)
     .observe(document.querySelector("div.main-body"), init)
 
   end main
 
+  type Activity = Interval[js.Dynamic]
+  type X        = Distance
+  type Y        = Gauge.MeterPerBeat
+  type Y2       = Gauge.BeatPerMinute *: Gauge.StepPerMinute *: Gauge.Pace *: EmptyTuple
+  given CorrelatePlot[Activity] = CorrelatePlot[X, Y, Y2, Activity]
+
 end Main

src/core/Gauge.scala

@@ -0,0 +1,24 @@
+package core
+
+enum Gauge:
+  case MeterPerBeat
+  case BeatPerMinute
+  case StepPerMinute
+  case Pace
+
+  def label: String = this match
+    case MeterPerBeat  => "mpb"
+    case BeatPerMinute => "bpm"
+    case StepPerMinute => "spm"
+    case Pace          => "/km"
+end Gauge
+object Gauge:
+  type MeterPerBeat  = MeterPerBeat.type
+  type BeatPerMinute = BeatPerMinute.type
+  type StepPerMinute = StepPerMinute.type
+  type Pace          = Pace.type
+
+trait Distance
+trait Duration
+trait Timestamp
+trait Box

src/core/Read.scala

@@ -0,0 +1,7 @@
+package core
+
+opaque type Read[T, A, B] = A => B
+object Read:
+  def apply[T, A, B](a: A)(using r: Read[T, A, B]): B = r(a)
+
+  def apply[T, A, B](f: A => B): Read[T, A, B] = f

src/core/package.scala

@@ -4,6 +4,12 @@ import org.scalajs.dom.*
 
 type Mutation = (URL, Seq[HTMLElement])
 
+type NonEmpty[+A] = (A, List[A])
+extension [A](a: A) inline def single: NonEmpty[A] = a -> List.empty[A]
+
+type Interval[A] = NonEmpty[A]
+type History[A]  = NonEmpty[Interval[A]]
+
 trait Page[A] extends (Mutation => Option[Mutation])
 object Page:
   given any: Page[EmptyTuple] = Some(_)

src/garmin/Activities.scala

@@ -2,21 +2,17 @@ package garmin
 
 import java.util.NoSuchElementException as Complain
 
-
 import org.scalajs.dom.HTMLElement
 import org.scalajs.dom.document
 
 import core.*
-import core.metrics.*
-import core.service.Fetch
 import sourcecode.Name
 
-trait Activities
+sealed trait Activities
 object Activities:
-  given page(
-    using Initialize[HTMLElement],
-    Fetch[ActivityId, Intervals],
-    Inject[History]
+  given page(using
+    Initialize[HTMLElement],
+    Inject[List[ActivityId]]
   ): Page[Activities] =
     case (URL("/modern/activities", `activityType`("running")), `a.inline-edit-target`(_)) =>
       val es  = `a.inline-edit-target`.all(Seq(document)).toList

src/garmin/ActivityId.scala

@@ -7,36 +7,41 @@ import scala.scalajs.js
 import org.scalajs.dom.Request
 
 import core.*
-import core.metrics.*
 import core.service.Fetch
 
 opaque type ActivityId = String
 
 object ActivityId:
   def apply(s: String): ActivityId = s
 
-  given inject(using Fetch[ActivityId, Intervals], Inject[History]): Inject[List[ActivityId]] = (e, ids) =>
-    for history <- Future.sequence(ids.map(_.request)) if history.nonEmpty do history.filter(_.nonEmpty).inject(e)
-
-  given fetch(using Fetch[Request, js.Dynamic], Conversion[Get, Request]): Fetch[ActivityId, Intervals] = id =>
+  given inject(using
+    Fetch[ActivityId, Option[Interval[js.Dynamic]]],
+    Inject[History[js.Dynamic]]
+  ): Inject[List[ActivityId]] = (e, ids) =>
+    for case Some(h) :: t <- Future.sequence(ids.map(_.request)) do 
+      (h -> t.map(_.toList).flatten).inject(e)
+
+  given fetch(using
+    Fetch[Request, js.Dynamic],
+    Conversion[Get, Request]
+  ): Fetch[ActivityId, Option[Interval[js.Dynamic]]] = id =>
     inline def url      = s"https://connect.garmin.cn/activity-service/activity/$id/splits"
     inline def referrer = s"https://connect.garmin.cn/modern/activity/$id"
 
-    inline def isActive(t: js.UndefOr[String]): Boolean =
-      t == "ACTIVE" || t == "INTERVAL" || t == js.undefined
-
-    for
-      d <- Get(url, referrer).convert.request
-      laps = d.asInstanceOf[Splits].lapDTOs.toList
-    yield for l <- laps if isActive(l.intensityType)
-    yield l.asInstanceOf[Interval]
+    for d <- Get(url, referrer).convert.request
+    yield d.asInstanceOf[Splits].lapDTOs.toList.filter(_.isActive) match
+      case h :: t => Some(h -> t)
+      case _      => None
     end for
   end fetch
 
   private trait Lap extends js.Object:
     def intensityType: js.UndefOr[String]
 
+  extension (l: Lap) private inline def isActive =     
+    l.intensityType == "ACTIVE" || l.intensityType == "INTERVAL" || l.intensityType == js.undefined
+
   private trait Splits extends js.Object:
-    def lapDTOs: js.Array[Lap]
+    def lapDTOs: js.Array[Lap & js.Dynamic]
 
 end ActivityId

src/garmin/package.scala

@@ -5,7 +5,6 @@ import org.scalajs.dom.Element
 import org.scalajs.dom.URL
 import org.scalajs.dom.URLSearchParams
 
-
 private[garmin] object URL:
   def unapply(u: URL): Option[(String, URLSearchParams)] =
     Some(u.pathname, u.searchParams)

src/garmin/read/package.scala

@@ -0,0 +1,43 @@
+package garmin.read
+
+import scala.scalajs.js
+
+import core.*
+
+given Read[Gauge.BeatPerMinute, js.Dynamic, Double] = Read: a =>
+  a.averageHR.asInstanceOf[Double].round
+
+given Read[Gauge.StepPerMinute, js.Dynamic, Double] = Read: a =>
+  a.averageRunCadence.asInstanceOf[Double].round
+
+given Read[Distance, js.Dynamic, Double] = Read: a =>
+  a.distance.asInstanceOf[Double]
+
+given Read[Duration, js.Dynamic, Double] = Read: a =>
+  a.duration.asInstanceOf[Double]
+
+given Read[Timestamp, js.Dynamic, String] = Read: a =>
+  a.startTimeGMT.asInstanceOf[String]
+
+given [A](using
+  Read[Distance, A, Double],
+  Read[Duration, A, Double],
+  Read[Gauge.BeatPerMinute, A, Double]
+): Read[Gauge.MeterPerBeat, A, Double] = Read: a =>
+  val speed = Read[Distance, A, Double](a) / Read[Duration, A, Double](a)
+  val hr    = Read[Gauge.BeatPerMinute, A, Double](a)
+  speed * 60 / hr
+end given
+
+given [A](using
+  Read[Distance, A, Double],
+  Read[Duration, A, Double]
+): Read[Gauge.Pace, A, js.Date] = Read: a =>
+  inline val minute = 60
+  inline val hour   = (60 * minute)
+  inline def spm    = Read[Duration, A, Double](a) / Read[Distance, A, Double](a)
+  inline def spkm   = Math.round(spm * 1000).intValue
+  new js.Date(0, 0, 0, spkm / hour, spkm / minute, spkm % minute)
+end given
+
+extension (d: Double) private inline def round = js.Math.round(d)

src/plotly/Axis.scala

@@ -0,0 +1,57 @@
+package plotly
+
+import scala.scalajs.js
+
+import typings.plotlyJs.anon.PartialLayoutAxis
+import typings.plotlyJs.plotlyJsStrings.array
+import typings.plotlyJs.plotlyJsStrings.reversed
+import typings.plotlyJs.plotlyJsStrings.right
+import typings.plotlyJs.plotlyJsStrings.y2
+
+import core.*
+
+opaque type Axis[T] = List[PartialLayoutAxis]
+object Axis:
+
+  def apply[T](using a: Axis[T]): List[PartialLayoutAxis] = a
+
+  given [A]: Axis[EmptyTuple]                                       = Nil
+  given [H, T <: Tuple](using h: Axis[H], t: Axis[T]): Axis[H *: T] = h ::: t
+
+  given Axis[Gauge.MeterPerBeat] = PartialLayoutAxis()
+    .setOverlaying(y2)
+    .setTickformat(".2f")
+    .setTickmodeSync
+    :: Nil
+
+  given Axis[Gauge.BeatPerMinute] = PartialLayoutAxis()
+    .setSide(right)
+    :: Nil
+
+  given Axis[Gauge.StepPerMinute] = PartialLayoutAxis()
+    .setSide(right)
+    :: Nil
+
+  given Axis[Gauge.Pace] = PartialLayoutAxis()
+    .setSide(right)
+    .setTickformat("%M:%S")
+    .setAutorange(reversed)
+    :: Nil
+
+  given Axis[Distance] = PartialLayoutAxis()
+    .setTickformat("~s")
+    .setTicksuffix("m")
+    .setTickmode(array)
+    :: Nil
+
+  given (using ColorPalette): Axis[Box] = PartialLayoutAxis()
+    .setTickformat(".2f")
+    .setColorIndex(0)
+    :: Nil
+
+  extension (a: PartialLayoutAxis)
+    private inline def setTickmodeSync: PartialLayoutAxis =
+      a.asInstanceOf[js.Dynamic].tickmode = "sync"
+      a
+
+end Axis

src/plotly/ColorPalette.scala

@@ -1,29 +1,29 @@
 package plotly
 
-import scala.scalajs.js
-import scala.scalajs.js.JSConverters.*
+import scala.language.implicitConversions
 
 import typings.plotlyJs.anon.PartialLayout
+import typings.plotlyJs.anon.PartialLayoutAxis
 
-trait ColorPalette[A]:
-  def list: List[String]
-  extension (i: Int) inline def color                     = list(i % list.length)
-  extension (a: PartialLayout) inline def setColorPalette = a.setColorway(list.toJSArray)
-end ColorPalette
+import convs.given
+
+final class ColorPalette(list: List[String]):
+  extension (a: PartialLayoutAxis) inline def setColorIndex(i: Int) = a.setColor(list(i % list.length))
+  extension (a: PartialLayout) inline def setColorPalette           = a.setColorway(list)
 
 object ColorPalette:
-  given  ColorPalette[Common] with
-    val list: List[String] = List(
-        "#1f77b4",
-        "#ff7f0e",
-        "#2ca02c",
-        "#d62728",
-        "#9467bd",
-        "#8c564b",
-        "#e377c2",
-        "#7f7f7f",
-        "#bcbd22",
-        "#17becf"
+  given ColorPalette = ColorPalette:
+    List(
+      "#1f77b4",
+      "#ff7f0e",
+      "#2ca02c",
+      "#d62728",
+      "#9467bd",
+      "#8c564b",
+      "#e377c2",
+      "#7f7f7f",
+      "#bcbd22",
+      "#17becf"
     )
   end given
 end ColorPalette