62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
"" AS `updated`,
`author`,
`content_html` as `entry_contents`
FROM `notes` WHERE (NOT (`conceal` LIKE "%all%")) AND (NOT (`conceal` LIKE "%feed%")))
ORDER BY `published` DESC LIMIT ~a
---
)
(query-rows cache-conn (format select feed-item-limit)))
(define (vector->rss-item vec)
(match-define
(vector path title published updated author contents) vec)
(define entry-url (string-append feed-site-url web-root path))
(define update-ts
(cond [(non-empty-string? updated) updated]
|
|
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
"" AS `updated`,
`author`,
`content_html` as `entry_contents`
FROM `notes` WHERE (NOT (`conceal` LIKE "%all%")) AND (NOT (`conceal` LIKE "%feed%")))
ORDER BY `published` DESC LIMIT ~a
---
)
(query-rows (cache-conn) (format select feed-item-limit)))
(define (vector->rss-item vec)
(match-define
(vector path title published updated author contents) vec)
(define entry-url (string-append feed-site-url web-root path))
(define update-ts
(cond [(non-empty-string? updated) updated]
|
