50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
SELECT `path`, `title`, `published`, `updated`, `author`, `entry_contents` FROM
(SELECT `page` AS `path`,
`title_plain` AS `title`,
`published`,
`updated`,
`author`,
`doc_html` AS `entry_contents`
FROM `articles`
UNION
SELECT `page` || '#' || `html_anchor` AS `path`,
`title_plain` AS `title`,
`published`,
"" AS `updated`,
`author`,
`content_html` as `entry_contents`
FROM `notes`)
ORDER BY `published` DESC LIMIT ~a
---
)
(query-rows cache-conn (format select feed-item-limit)))
(define (vector->rss-item vec)
(match-define
|
|
|
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
SELECT `path`, `title`, `published`, `updated`, `author`, `entry_contents` FROM
(SELECT `page` AS `path`,
`title_plain` AS `title`,
`published`,
`updated`,
`author`,
`doc_html` AS `entry_contents`
FROM `articles` WHERE (NOT (`conceal` LIKE "%all%")) AND (NOT (`conceal` LIKE "%feed%"))
UNION
SELECT `page` || '#' || `html_anchor` AS `path`,
`title_plain` AS `title`,
`published`,
"" 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
|
