Permalink
Browse files

Add author email to feed

Signed-off-by: Rohan Jain <crodjer@gmail.com>
  • Loading branch information...
1 parent 3e6a8ba commit 1130d7e610b18a1975843f4ae219b7e7e80ae300 @crodjer crodjer committed Apr 3, 2012
Showing with 4 additions and 0 deletions.
  1. +1 −0 data/templates/atom.xml
  2. +3 −0 src/Hakyll/Web/Feed.hs
View
@@ -6,6 +6,7 @@
<id>$root$$url$</id>
<author>
<name>$authorName$</name>
+ <email>$authorEmail$</email>
</author>
<updated>$updated$</updated>
$body$
View
@@ -45,6 +45,8 @@ data FeedConfiguration = FeedConfiguration
feedDescription :: String
, -- | Name of the feed author.
feedAuthorName :: String
+ , -- | Email of the feed author.
+ feedAuthorEmail :: String
, -- | Absolute root URL of the feed site (e.g. @http://jaspervdj.be@)
feedRoot :: String
} deriving (Show, Eq)
@@ -65,6 +67,7 @@ createFeed feedTemplate itemTemplate url configuration items =
$ trySetField "title" (feedTitle configuration)
$ trySetField "description" (feedDescription configuration)
$ trySetField "authorName" (feedAuthorName configuration)
+ $ trySetField "authorEmail" (feedAuthorEmail configuration)
$ trySetField "root" (feedRoot configuration)
$ trySetField "url" url
$ fromBody body

0 comments on commit 1130d7e

Please sign in to comment.