1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
{-# language OverloadedStrings #-}
{-# language RecordWildCards #-}
{-# language NamedFieldPuns #-}
{-# language DeriveGeneric #-}
module Main where
import Data.Text (Text)
import Data.Text.Lazy.IO as TIO
import Text.RSS.Syntax
import Text.Feed.Types (Feed(RSSFeed))
import Text.Feed.Export (textFeed)
import qualified Data.Aeson as Json
import Data.Aeson (FromJSON)
import GHC.Generics (Generic)
import qualified Data.ByteString.Lazy as BS
-- | Info from the config file
data Config = Config
{ channelName :: Text
, channelURL :: Text
}
deriving (Show, Generic)
instance FromJSON Config where
data Channel = Channel
{ channelInfo :: ChannelInfo
, channelItems :: [ItemInfo]
}
deriving (Show, Generic)
instance FromJSON Channel where
-- | Info fetched from the channel
data ChannelInfo = ChannelInfo
{ channelDescription :: Text
, channelLastUpdate :: DateString -- TODO
, channelImage :: Maybe () --RSSImage
}
deriving (Show, Generic)
instance FromJSON ChannelInfo where
-- | Info of each channel item
data ItemInfo = ItemInfo
{ itemTitle :: Text
, itemDescription :: Text
, itemYoutubeLink :: Text
, itemCategory :: Text
, itemTags :: [Text]
, itemURL :: Text
, itemSizeBytes :: Integer
, itemHash :: Text
}
deriving (Show, Generic)
instance FromJSON ItemInfo where
-- main = print $ textFeed $ RSSFeed $ toRSS
-- (ChannelInfo
-- { channelDescription = "description"
-- , channelLastUpdate = "some date"
-- , channelImage = nullImage "imageURL" "imageTitle" "imageLink"
-- })
-- []
main :: IO ()
main = do
input <- BS.getContents
let (Right rss) = Json.eitherDecode input
let exConfig = (Config
{ channelName = "channel name"
, channelURL = "channel url"
})
let (Just feed) = textFeed $ RSSFeed $ toRSS exConfig rss
TIO.putStr feed
toRSS :: Config -> Channel -> RSS
toRSS Config{..} Channel{channelInfo, channelItems} =
let ChannelInfo{..} = channelInfo in
(nullRSS channelName channelURL)
{ rssChannel = (nullChannel channelName channelURL)
{ rssDescription = channelDescription
, rssLastUpdate = Just channelLastUpdate
, rssImage = Nothing --channelImage TODO
, rssGenerator = Just "youtube2audiopodcast"
, rssItems = map rssItem channelItems
}
}
where
rssItem ItemInfo{..} = (nullItem itemTitle)
{ rssItemLink = Just itemYoutubeLink
, rssItemDescription = Just itemDescription
-- rssItemAuthor =
, rssItemCategories =
map (\name -> RSSCategory
{ rssCategoryDomain = Nothing
, rssCategoryAttrs = []
, rssCategoryValue = name
}) $ itemCategory : itemTags
, rssItemEnclosure = Just $ RSSEnclosure
{ rssEnclosureURL = itemURL
, rssEnclosureLength = Just itemSizeBytes
, rssEnclosureType = "audio/opus"
, rssEnclosureAttrs = []
}
, rssItemGuid = Just $ RSSGuid
{ rssGuidPermanentURL = Just False
, rssGuidAttrs = []
, rssGuidValue = itemHash
}
-- TODO: date conversion
-- https://tools.ietf.org/html/rfc822#section-5.1
-- , rssItemPubDate
}
|
