hackage2hwn-0.4: Main.hs

--------------------------------------------------------------------
-- |
-- Module    : hackage2hwn
-- Copyright : (c) Galois, Inc. 2007-2008
-- License   : BSD3
--
-- Maintainer: Don Stewart <dons@galois.com>
-- Stability : provisional
--
-- Pulls the RSS feed from Hackage, pretty prints it in a form suitable for
-- inclusion in the Haskell Weekly News.
--
--------------------------------------------------------------------

module Main (main) where

import Data.Maybe
import Data.List
import Data.Char

import Text.HTML.Download
import Text.HTML.TagSoup

import Text.Feed.Import
import Text.RSS.Syntax
import Text.Feed.Types

url = "http://hackage.haskell.org/packages/archive/recent.rss"

main = do
    putStrLn "'''Recent Package Updates''' [http://hackage.haskell.org/packages/archive/recent.rss http://haskell.org/sitewiki/images/0/09/Rss.png]\n"
    RSSFeed is <- (fromJust . parseFeedString) `fmap` openURL url
    mapM_ (putStr . pprRSS) (rssItems . rssChannel $ is)
    putStrLn $ "[http://hackage.haskell.org/packages/archive/pkg-list.html More...]"

pprRSS :: RSSItem -> String
pprRSS r = unlines
            [(";" ++ "[" ++ url ++ " "++  title ++ "]")
            ,(":" ++ synopsis)]
   where
     Just title    = rssItemTitle $ r
     Just url      = rssItemLink $ r
     synopsis = last [ e | TagText e <- parseTags
                             (fromJust . rssItemDescription $ r) ]