Feeds.hs

{- This file is part of funbot.
 -
 - Written in 2015, 2016 by fr33domlover <fr33domlover@riseup.net>.
 -
 - ♡ Copying is an act of love. Please copy, reuse and share.
 -
 - The author(s) have dedicated all copyright and related and neighboring
 - rights to this software to the public domain worldwide. This software is
 - distributed without any warranty.
 -
 - You should have received a copy of the CC0 Public Domain Dedication along
 - with this software. If not, see
 - <http://creativecommons.org/publicdomain/zero/1.0/>.
 -}

{-# LANGUAGE OverloadedStrings #-}

-- | Add-feed and delete-feed commands
--
-- Add and remove news feeds to watch
module FunBot.Commands.Feeds
    ( cmdAddFeed
    , cmdDeleteFeed
    )
where

import Control.Monad (unless, when)
import Data.List (find, intercalate)
import Data.Monoid ((<>))
import Data.Settings.Types (showOption)
import Data.Text (Text)
import FunBot.History (quote, reportHistory')
import FunBot.Memos (submitMemo)
import FunBot.Settings
import FunBot.Settings.Sections.Channels (addChannel)
import FunBot.Settings.Sections.Feeds (addFeed, deleteFeed)
import FunBot.Settings.Sections.Repos
import FunBot.Settings.Sections.Shortcuts (addShortcut, deleteShortcut)
import FunBot.Types
import FunBot.UserOptions
import FunBot.Util (getHistoryLines, cmds, helps)
import Network.IRC.Fun.Bot.Behavior
import Network.IRC.Fun.Bot.Chat
import Network.IRC.Fun.Bot.State
import Network.IRC.Fun.Bot.Types
import Text.Read (readMaybe)
import Network.IRC.Fun.Types.Base

import qualified Data.CaseInsensitive as CI
import qualified Data.Text as T
import qualified Data.Text.Read as TR

respondAddFeed
    :: Maybe Channel
    -> Nickname
    -> [Text]
    -> (MsgContent -> BotSession ())
    -> BotSession ()
respondAddFeed mchan nick [label, url] send = do
    succ <- addFeed (FeedLabel $ CI.mk label) url
    if succ
        then send $ MsgContent "News feed added."
        else failBack mchan nick $ OtherFail "This label already exists."
respondAddFeed mchan nick args _send =
    failBack mchan nick $ WrongNumArgsN (Just $ length args) (Just 2)

cmdAddFeed = Command
    { cmdNames    = cmds ["feed+", "add-feed"]
    , cmdRespond  = respondAddFeed
    , cmdHelp     = helps
        [ ( "feed+ <label> <url>"
          , "add a news feed to watch and announce its new items to IRC \
            \channels. By default the list of IRC channels is empty; use the \
            \settings system (!set) to set one or more channels to which \
            \items will be announced."
          )
        ]
    , cmdExamples =
        [ "feed+ freepost http://freepo.st/rss/freepost"
        ]
    }

respondDeleteFeed
    :: Maybe Channel
    -> Nickname
    -> [Text]
    -> (MsgContent -> BotSession ())
    -> BotSession ()
respondDeleteFeed mchan nick [label] send = do
    succ <- deleteFeed $ FeedLabel $ CI.mk label
    if succ
        then send $ MsgContent "News feed removed."
        else failBack mchan nick $ OtherFail "No such label found."
respondDeleteFeed mchan nick args _send =
    failBack mchan nick $ WrongNumArgsN (Just $ length args) (Just 1)

cmdDeleteFeed = Command
    { cmdNames    = cmds ["feed-", "delete-feed"]
    , cmdRespond  = respondDeleteFeed
    , cmdHelp     = helps
        [ ( "feed- <label>"
          , "stop announcing items of the given news feed and remove its \
            \settings. If you just want to disable the feed, without deleting \
            \the settings, use the settings system to deactivate it."
          )
        ]
    , cmdExamples =
        [ "feed- freepost"
        ]
    }