Index: cache.rkt ================================================================== --- cache.rkt +++ cache.rkt @@ -213,11 +213,13 @@ ;; ;; ~~~ Fetching series ~~~ ;; (define (series-grouped-list) - (~> (for/list ([row (in-entities (cache-conn) (from cache:series #:as s))]) row) + (~> (for/list ([row (in-entities (cache-conn) + (order-by (from cache:series #:as s) + ([s.noun-plural #:asc])))]) row) (group-list-by cache:series-noun-plural _ string-ci=?))) ;; Preloads the SQLite cache with info about each series. ;; I may not actually need this but I’m leaving it for now. (define (preheat-series!)