8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(require txexpr
racket/match
racket/file
racket/date
racket/string
db/base
"dust.rkt"
"crystalize.rkt")
(provide main)
(define feed-author default-authorname)
(define feed-author-email "joel@jdueck.net")
(define feed-title "The Local Yarn (Beta)")
(define feed-site-url "https://thelocalyarn.com")
|
|
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(require txexpr
racket/match
racket/file
racket/date
racket/string
db/base
"dust.rkt"
"cache.rkt")
(provide main)
(define feed-author default-authorname)
(define feed-author-email "joel@jdueck.net")
(define feed-title "The Local Yarn (Beta)")
(define feed-site-url "https://thelocalyarn.com")
|
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
|
