module Shakebook.Feed (
asAtomEntry
, buildFeed
) where
import Data.Aeson
import Development.Shake
import RIO
import RIO.List.Partial
import qualified RIO.Text as T
import qualified RIO.Text.Lazy as TL
import Shakebook.Conventions
import Shakebook.Data
import Text.Atom.Feed as Atom
import Text.Atom.Feed.Export
asAtomEntry :: Value -> Atom.Entry
asAtomEntry x = (Atom.nullEntry (viewUrl x) (Atom.TextString $ viewTitle x) (viewPostTimeRaw x)) {
Atom.entryContent = Just $ Atom.TextContent (viewContent x) }
buildFeed :: Text -> Text -> [Value] -> FilePath -> Action ()
buildFeed title baseUrl xs out = do
let fs = asAtomEntry <$> dateSortPosts xs
let t = Atom.nullFeed baseUrl (Atom.TextString title) $ Atom.entryUpdated (head fs)
case textFeed (t { Atom.feedEntries = fs }) of
Just a -> writeFile' out (T.unpack . TL.toStrict $ a)
Nothing -> return ()