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 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 (["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))) |
| |
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)))
|