17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(schema-out cache:article)
(schema-out cache:note)
(schema-out cache:index-entry)
(schema-out listing)
delete-article!
delete-notes!
delete-index-entries!
save-index-entries!
articles
articles+notes
listing-htmls
fenced-listing
unfence)
;; Cache DB and Schemas
|
|
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(schema-out cache:article)
(schema-out cache:note)
(schema-out cache:index-entry)
(schema-out listing)
delete-article!
delete-notes!
delete-index-entries!
save-cache-things!
articles
articles+notes
listing-htmls
fenced-listing
unfence)
;; Cache DB and Schemas
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(define (delete-index-entries! page)
(query-exec (cache-conn)
(~> (from cache:index-entry #:as e)
(where (= e.page ,(format "~a" page)))
delete)))
(define (save-index-entries! es)
(void (apply insert! (cache-conn) es)))
;;
;; ~~~ Fetching articles and notes ~~~
;;
;; (Private use) Conveniece function for the WHERE `series-page` clause
|
|
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(define (delete-index-entries! page)
(query-exec (cache-conn)
(~> (from cache:index-entry #:as e)
(where (= e.page ,(format "~a" page)))
delete)))
(define (save-cache-things! es)
(void (apply insert! (cache-conn) es)))
;;
;; ~~~ Fetching articles and notes ~~~
;;
;; (Private use) Conveniece function for the WHERE `series-page` clause
|
