module Imm.Config where
import Imm.Feed
import Imm.Types
import qualified Data.Text.Lazy as T
import System.FilePath
import Text.Feed.Query
import Text.Feed.Types
defaultSettings :: Settings
defaultSettings = Settings {
mStateDirectory = (</> "state") . mConfiguration,
mFeedGroups = [],
mFromBuilder = \(item, feed) -> maybe (getFeedTitle feed) id $ getItemAuthor item,
mSubjectBuilder = \(item, _feed) -> T.pack . maybe "Untitled" id $ getItemTitle item,
mBodyBuilder = \(item, _feed) -> contentBuilder item
}
contentBuilder :: Item -> T.Text
contentBuilder item =
T.unlines $ map (flip ($) item) [T.pack . getItemLinkNM, getItemContent]