diff options
| -rw-r--r-- | guix-data-service/model/channel-news.scm | 65 |
1 files changed, 63 insertions, 2 deletions
diff --git a/guix-data-service/model/channel-news.scm b/guix-data-service/model/channel-news.scm index 985737d..c2d826d 100644 --- a/guix-data-service/model/channel-news.scm +++ b/guix-data-service/model/channel-news.scm @@ -5,6 +5,67 @@ -(define (channel-news-entries->channel-new-entry-ids channel-news-entries) - ) +(define (channel-news-entries->channel-news-entry-ids conn channel-news-entries) + (insert-missing-data-and-return-all-ids + conn + "channel_news_entries" + '("commit" "tag") + (map (match-lambda + (($ <channel-news-entry> commit tag) + (list commit tag))) + channel-news-entries))) +(define (insert-channel-news-entry-text conn text) + (insert-missing-data-and-return-all-ids + conn + "channel_news_entry_text" + '("lang" "text") + (map (match-lambda + ((lang . text) + (list lang text))) + text))) + +(define (insert-channel-news-entries conn channel-news-entries) + (define select-channel-news-entries + " +SELECT channel_news_entries.id, + channel_news_entries.commit, + channel_news_entries.tag, + ( + SELECT ARRAY_AGG( + channel_news_entry_titles.channel_news_entry_text_id + ORDER BY channel_news_entry_titles.channel_news_entry_text_id + ) + FROM channel_news_entry_titles + WHERE channel_news_entry_id = channel_news_entries.id + ) AS title_text, + ( + SELECT ARRAY_AGG( + channel_news_entry_bodies.channel_news_entry_text_id + ORDER BY channel_news_entry_bodies.channel_news_entry_text_id + ) + FROM channel_news_entry_bodies + WHERE channel_news_entry_id = channel_news_entries.id + ) AS body_text +FROM channel_news_entries +ORDER BY id") + + (define existing + (exec-query->vhash conn + select-channel-news-entries + cdr + (lambda (result) + (string->number (first result))))) + + (map + (match-lambda + (($ <channel-news-entry> commit tag title body) + (let ((title-ids + (sort (insert-channel-news-entry-text conn title) + <)) + (body-ids + (sort (insert-channel-news-entry-text conn body) + <))) + + )) + channel-news-entries)) |