Local Yarn Code

"Check-in [fc820f2f]"
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: fc820f2f615bc19cbad43bbd004fccb4a293d8029a12d57d02260ae0edea0864
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)))