83 lines
2.1 KiB
Haskell
83 lines
2.1 KiB
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE CPP #-}
|
|
---------------------------------------------------------
|
|
--
|
|
-- Module : Yesod.Helpers.AtomFeed
|
|
-- Copyright : Michael Snoyman
|
|
-- License : BSD3
|
|
--
|
|
-- Maintainer : Michael Snoyman <michael@snoyman.com>
|
|
-- Stability : Stable
|
|
-- Portability : portable
|
|
--
|
|
-- Generating atom news feeds.
|
|
--
|
|
---------------------------------------------------------
|
|
|
|
-- | Generation of Atom newsfeeds. See
|
|
-- <http://en.wikipedia.org/wiki/Atom_(standard)>.
|
|
module Yesod.Helpers.AtomFeed
|
|
( atomFeed
|
|
, atomLink
|
|
, RepAtom (..)
|
|
, module Yesod.Helpers.Feed
|
|
) where
|
|
|
|
import Yesod.Content
|
|
import Yesod.Handler
|
|
import Yesod.Widget
|
|
import Yesod.Helpers.Feed
|
|
|
|
newtype RepAtom = RepAtom Content
|
|
instance HasReps RepAtom where
|
|
chooseRep (RepAtom c) _ = return (typeAtom, c)
|
|
|
|
atomFeed :: Feed (Route master) -> GHandler sub master RepAtom
|
|
atomFeed = fmap RepAtom . hamletToContent . template
|
|
|
|
template :: Feed url -> Hamlet url
|
|
template arg =
|
|
#if __GLASGOW_HASKELL__ >= 700
|
|
[xhamlet|
|
|
#else
|
|
[$xhamlet|
|
|
#endif
|
|
\<?xml version="1.0" encoding="utf-8"?>
|
|
%feed!xmlns="http://www.w3.org/2005/Atom"
|
|
%title $feedTitle.arg$
|
|
%link!rel=self!href=@feedLinkSelf.arg@
|
|
%link!href=@feedLinkHome.arg@
|
|
%updated $formatW3.feedUpdated.arg$
|
|
%id @feedLinkHome.arg@
|
|
$forall feedEntries.arg entry
|
|
^entryTemplate.entry^
|
|
|]
|
|
|
|
entryTemplate :: FeedEntry url -> Hamlet url
|
|
entryTemplate arg =
|
|
#if __GLASGOW_HASKELL__ >= 700
|
|
[xhamlet|
|
|
#else
|
|
[$xhamlet|
|
|
#endif
|
|
%entry
|
|
%id @feedEntryLink.arg@
|
|
%link!href=@feedEntryLink.arg@
|
|
%updated $formatW3.feedEntryUpdated.arg$
|
|
%title $feedEntryTitle.arg$
|
|
%content!type=html $cdata.feedEntryContent.arg$
|
|
|]
|
|
|
|
-- | Generates a link tag in the head of a widget.
|
|
atomLink :: Route m
|
|
-> String -- ^ title
|
|
-> GWidget s m ()
|
|
atomLink u title = addHamletHead
|
|
#if __GLASGOW_HASKELL__ >= 700
|
|
[hamlet|
|
|
#else
|
|
[$hamlet|
|
|
#endif
|
|
%link!href=@u@!type=$typeAtom$!rel="alternate"!title=$title$
|
|
|]
|