Add author email to feed

Signed-off-by: Rohan Jain <crodjer@gmail.com>
Zekt · Jul 13, 2012 · 1130d7e · 1130d7e
1 parent 3e6a8ba
commit 1130d7e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/data/templates/atom.xml b/data/templates/atom.xml
@@ -6,6 +6,7 @@
     <id>$root$$url$</id>
     <author>
         <name>$authorName$</name>
+        <email>$authorEmail$</email>
     </author>
     <updated>$updated$</updated>
     $body$

diff --git a/src/Hakyll/Web/Feed.hs b/src/Hakyll/Web/Feed.hs
@@ -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