33 lines
922 B
Scheme
33 lines
922 B
Scheme
(configuration
|
|
(post-hook
|
|
(hook-cons
|
|
(lambda (_)
|
|
(use-modules (srfi srfi-19))
|
|
(format #t "started processing: ~a\n"
|
|
(date->string (current-date))))
|
|
(hook-gen make-printer-hook)
|
|
(hook-gen
|
|
make-each-script-hook
|
|
"cat '~~CONTENT~~' > \"/tmp/mailtest/~~OPT(newsgroup)~~.~~TITLE~~.~~DATE~~.txt\""
|
|
'("Dear User,\n"
|
|
"You are decent. Here are your news: \n\n"
|
|
"Title: ~~TITLE~~\nDate: ~~DATE~~\n"
|
|
"URL: ~~LINK~~\n\n"
|
|
"~~DESCRIPTION~~\n"))))
|
|
(store-size 250)
|
|
(entry
|
|
(name "guix ci")
|
|
(url "http://ci.guix.gnu.org/events/rss/")
|
|
(type rss)
|
|
(opts (("newsgroup" . "org.gnu.guix.ci"))))
|
|
(entry
|
|
(name "gentoo news")
|
|
(url "https://planet.gentoo.org/universe/rss20.xml")
|
|
(type rss)
|
|
(opts (("newsgroup" . "org.gentoo.planet"))))
|
|
(entry
|
|
(name "arch news")
|
|
(url "https://archlinux.org/feeds/news/")
|
|
(type rss)
|
|
(opts (("newsgroup" . "org.arch.news")))))
|