Overview
| Comment: | Fix article+note listing query so date ordering actually works |
|---|---|
| Timelines: | family | ancestors | descendants | both | deta-refactor |
| Files: | files | file ages | folders |
| SHA3-256: |
fc820f2f615bc19cbad43bbd004fccb4 |
| User & Date: | joel on 2020-01-13 00:37:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-01-13
| ||
| 00:52 | Fix series caching check-in: 624e5e2b user: joel tags: deta-refactor | |
| 00:37 | Fix article+note listing query so date ordering actually works check-in: fc820f2f user: joel tags: deta-refactor | |
| 00:27 | Redo everything cache-related check-in: 62f4a12e user: joel tags: deta-refactor | |
Changes
Modified crystalize.rkt from [64b7e340] to [e20fefa6].
| ︙ | ︙ | |||
356 357 358 359 360 361 362 |
(~> (from cache:note #:as N)
(select (fragment (ast:as (ast:qualified "N" html-field) "html"))
N.published
N.series-page)))))
#:as a)
(where-series s)
(limit ,lim)
| | | 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 |
(~> (from cache:note #:as N)
(select (fragment (ast:as (ast:qualified "N" html-field) "html"))
N.published
N.series-page)))))
#:as a)
(where-series s)
(limit ,lim)
(order-by ([a.published ,ord]))
(project-onto listing-schema)))
;; Get all the a list of the HTML all the results in a query
(define (listing-htmls list-query)
(for/list ([l (in-entities cache-conn list-query)])
(listing-html l)))
|
| ︙ | ︙ |