273
274
275
276
277
278
279
280
281
282
283
284
|
(void
(thread
(lambda ()
(call-with-transaction
(cache-conn)
(lambda ()
(cache-index-entries! pagenode doc)
(insert-one! (cache-conn)
(make-cache:article
#:title-plain title
#:conceal (maybe-meta 'conceal)
#:page pagenode))))))))
|
>
|
|
273
274
275
276
277
278
279
280
281
282
283
284
285
|
(void
(thread
(lambda ()
(call-with-transaction
(cache-conn)
(lambda ()
(cache-index-entries! pagenode doc)
(delete-article! pagenode)
(insert-one! (cache-conn)
(make-cache:article
#:title-plain title
#:conceal "blog,feed"
#:page pagenode))))))))
|