◊(Local Yarn Code "Check-in [205d635c]")

Overview
Comment:Ensure grouped series listings are always sorted
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 205d635c0dd29bf77b22e5b9599733c939caa4b2416d115dda375d026da66541
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
218


219
220
221
222
223
224
225
(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) (from cache:series #:as s))]) 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)







|
>
>







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)