Index: crystalize.rkt ================================================================== --- crystalize.rkt +++ crystalize.rkt @@ -177,14 +177,14 @@ ;; Return a combined list of articles and notes sorted by date (define (list/articles+notes type #:series [s #t] #:limit [limit -1] [order "DESC"]) (define select #<<@@@@@ SELECT `~a` FROM - (SELECT `~a`, `published` FROM `articles` + (SELECT `~a`, `published`, `series_pagenode` FROM `articles` UNION SELECT - `~a`,`date` AS `published` FROM `notes` - ~a ORDER BY `published` ~a LIMIT ~a) + `~a`,`date` AS `published`, `series_pagenode` FROM `notes`) + ~a ORDER BY `published` ~a LIMIT ~a @@@@@ ) (query-list (sqltools:dbc) (format select type type type (where/series s) order limit))) ;; Return a list of articles only, sorted by date