Overview
| Comment: | Ensure grouped series listings are always sorted |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
205d635c0dd29bf77b22e5b9599733c9 |
| User & Date: | joel on 2020-03-01 23:28:07 |
| Other Links: | manifest | tags |
Context
|
2020-03-01
| ||
| 23:28 | Add a little line doodle to the footer check-in: e9be84e2 user: joel tags: trunk | |
| 23:28 | Ensure grouped series listings are always sorted check-in: 205d635c user: joel tags: trunk | |
|
2020-02-29
| ||
| 17:09 | Add credit for emblem to NOTICES check-in: 83ec0bcf user: joel tags: trunk | |
Changes
Modified cache.rkt from [eeff2fe2] to [cd0a6087].
| ︙ | ︙ | |||
211 212 213 214 215 216 217 |
(define (unfence html-str)
(regexp-replace* #px"<[\\/]{0,1}style>" html-str ""))
;;
;; ~~~ Fetching series ~~~
;;
(define (series-grouped-list)
| | > > | 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 |
(define (unfence html-str)
(regexp-replace* #px"<[\\/]{0,1}style>" html-str ""))
;;
;; ~~~ Fetching series ~~~
;;
(define (series-grouped-list)
(~> (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!)
(query-exec (cache-conn)
(~> (from cache:series #:as s)
|
| ︙ | ︙ |