19
20
21
22
23
24
25
26
27
28
29
|
19
20
21
22
23
24
25
26
27
28
29
|
-
+
|
(schema-out cache:index-entry)
(schema-out listing)
delete-article!
delete-notes!
delete-index-entries!
save-index-entries!
save-cache-things!
articles
articles+notes
listing-htmls
fenced-listing
unfence)
|
107
108
109
110
111
112
113
114
115
116
117
|
107
108
109
110
111
112
113
114
115
116
117
|
-
+
|
(query-exec (cache-conn)
(~> (from cache:index-entry #:as e)
(where (= e.page ,(format "~a" page)))
delete)))
(define (save-index-entries! es)
(define (save-cache-things! es)
(void (apply insert! (cache-conn) es)))
;;
;; ~~~ Fetching articles and notes ~~~
;;
|
