Something went wrong. Try again.
karitham.dev website! atproto & fancy ssg + csr & blog articles karitham.dev
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191// The plays-stats.json contract — the file shape produced by the// `parse-plays stats` tool (tools/parse-plays/src/stats.rs) and// consumed by the SSG at build time.//// File shape:// {// "ranges": {// "1m": { "artists": [...], "albums": [...], "tracks": [...] },// "6m": { ... },// "1y": { ... },// "all": { ... }// }// }//// Each grid item:// { "name": "...", "artist": "...", "plays": 123,// "ms_played": 456, "image": "https://...", "url": "https://..." }// `artist`, `image` and `url` are omitted when empty.
import gleam/dynamicimport gleam/dynamic/decodeimport gleam/jsonimport gleam/listimport gleam/result
pub type Range { OneMonth SixMonths OneYear AllTime}
pub fn all_ranges() -> List(Range) { [OneMonth, SixMonths, OneYear, AllTime]}
/// JSON key; also the `data-range` attribute value in the view.pub fn range_key(range: Range) -> String { case range { OneMonth -> "1m" SixMonths -> "6m" OneYear -> "1y" AllTime -> "all" }}
pub fn range_label(range: Range) -> String { case range { OneMonth -> "1 month" SixMonths -> "6 months" OneYear -> "1 year" AllTime -> "all time" }}
pub type StatsData { StatsData(ranges: List(#(Range, RangeStats)))}
pub type RangeStats { RangeStats( artists: List(StatsItem), albums: List(StatsItem), tracks: List(StatsItem), )}
pub type StatsItem { StatsItem( name: String, artist: String, plays: Int, ms_played: Int, image: String, url: String, )}
pub fn empty_stats() -> StatsData { StatsData(ranges: [])}
pub fn empty_range_stats() -> RangeStats { RangeStats(artists: [], albums: [], tracks: [])}
pub fn stats_data_decoder() -> decode.Decoder(StatsData) { use ranges <- decode.field("ranges", decode.dynamic) decode.success(StatsData(ranges: decode_ranges(ranges)))}
/// Decode each of the four range keys from the `ranges` object,/// defaulting to empty when a key is missing.fn decode_ranges(ranges: dynamic.Dynamic) -> List(#(Range, RangeStats)) { list.map(all_ranges(), fn(range) { let decoded = decode.run( ranges, decode.optionally_at( [range_key(range)], empty_range_stats(), range_stats_decoder(), ), ) #(range, result.unwrap(decoded, empty_range_stats())) })}
fn range_stats_decoder() -> decode.Decoder(RangeStats) { use artists <- decode.field("artists", decode.list(stats_item_decoder())) use albums <- decode.field("albums", decode.list(stats_item_decoder())) use tracks <- decode.field("tracks", decode.list(stats_item_decoder())) decode.success(RangeStats(artists:, albums:, tracks:))}
fn stats_item_decoder() -> decode.Decoder(StatsItem) { use name <- decode.field("name", decode.string) use artist <- decode.optional_field("artist", "", decode.string) use plays <- decode.field("plays", decode.int) use ms_played <- decode.field("ms_played", decode.int) use image <- decode.optional_field("image", "", decode.string) use url <- decode.optional_field("url", "", decode.string) decode.success(StatsItem(name:, artist:, plays:, ms_played:, image:, url:))}
/// Is there anything to show? The view hides the aside when false.pub fn is_empty(stats: StatsData) -> Bool { stats.ranges |> list.all(fn(pair) { let #(_, range_stats) = pair list.is_empty(range_stats.artists) && list.is_empty(range_stats.albums) && list.is_empty(range_stats.tracks) })}
/// Encode `StatsData` back to the plays-stats.json shape. Mirrors the/// decoder so the cross-language contract test can round-trip the/// golden fixture; optional fields are omitted when empty, exactly/// like `tools/parse-plays` writes them.pub fn encode_stats(data: StatsData) -> String { json.object([ #( "ranges", json.object( list.map(data.ranges, fn(pair) { let #(range, rs) = pair #( range_key(range), json.object([ #("artists", json.array(from: rs.artists, of: encode_item)), #("albums", json.array(from: rs.albums, of: encode_item)), #("tracks", json.array(from: rs.tracks, of: encode_item)), ]), ) }), ), ), ]) |> json.to_string}
fn encode_item(item: StatsItem) -> json.Json { json.object( [ #("name", json.string(item.name)), #("plays", json.int(item.plays)), #("ms_played", json.int(item.ms_played)), ] |> list.append(encode_optional(item)), )}
fn encode_optional(item: StatsItem) -> List(#(String, json.Json)) { [ case item.artist { "" -> [] a -> [#("artist", json.string(a))] }, case item.image { "" -> [] i -> [#("image", json.string(i))] }, case item.url { "" -> [] u -> [#("url", json.string(u))] }, ] |> list.flatten}