diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-08-04 16:03:26 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-08-04 16:03:26 +0200 |
| commit | 7e247c4dd3bd3c24e4eb0bd3aae7d1618b0a9034 (patch) | |
| tree | 92b2b9cd9405c6e6f0e85e6e8f9e1565887c97ed | |
| parent | 06fa7aa2751c03bb2aad49e12b4273b9d97ebed8 (diff) | |
| download | dirty-haskell.org-7e247c4dd3bd3c24e4eb0bd3aae7d1618b0a9034.tar dirty-haskell.org-7e247c4dd3bd3c24e4eb0bd3aae7d1618b0a9034.tar.gz dirty-haskell.org-7e247c4dd3bd3c24e4eb0bd3aae7d1618b0a9034.tar.bz2 dirty-haskell.org-7e247c4dd3bd3c24e4eb0bd3aae7d1618b0a9034.tar.xz dirty-haskell.org-7e247c4dd3bd3c24e4eb0bd3aae7d1618b0a9034.zip | |
RSS link attributes
| -rw-r--r-- | provider/templates/default.html | 1 | ||||
| -rw-r--r-- | src/Site.hs | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/provider/templates/default.html b/provider/templates/default.html index 0476655..5bc0e9f 100644 --- a/provider/templates/default.html +++ b/provider/templates/default.html | |||
| @@ -11,6 +11,7 @@ | |||
| 11 | <![endif]--> | 11 | <![endif]--> |
| 12 | <link rel="stylesheet" href="/css/default.css"> | 12 | <link rel="stylesheet" href="/css/default.css"> |
| 13 | <link rel="stylesheet" href="/css/syntax.css"> | 13 | <link rel="stylesheet" href="/css/syntax.css"> |
| 14 | $if(rss)$<link rel="alternate" type="application/atom+xml" href="$rss$" title="Atom 1.0">$endif$ | ||
| 14 | </head> | 15 | </head> |
| 15 | <body> | 16 | <body> |
| 16 | $if(title)$ | 17 | $if(title)$ |
diff --git a/src/Site.hs b/src/Site.hs index cbdf2d8..241f596 100644 --- a/src/Site.hs +++ b/src/Site.hs | |||
| @@ -38,6 +38,7 @@ main = hakyllWith config $ do | |||
| 38 | compile $ do | 38 | compile $ do |
| 39 | let ctx = mconcat [ constField "title" tag | 39 | let ctx = mconcat [ constField "title" tag |
| 40 | , listField "posts" defaultContext $ chronological =<< loadAll pattern | 40 | , listField "posts" defaultContext $ chronological =<< loadAll pattern |
| 41 | , constField "rss" $ "/rss" </> tagTranslation tag <.> "rss" | ||
| 41 | , defaultContext | 42 | , defaultContext |
| 42 | ] | 43 | ] |
| 43 | makeItem "" | 44 | makeItem "" |
| @@ -62,6 +63,7 @@ main = hakyllWith config $ do | |||
| 62 | compile $ do | 63 | compile $ do |
| 63 | let ctx = mconcat [ listField "tags" defaultContext $ mapM (\(k, _) -> renderTag k tags) $ tagsMap tags | 64 | let ctx = mconcat [ listField "tags" defaultContext $ mapM (\(k, _) -> renderTag k tags) $ tagsMap tags |
| 64 | , constField "title" "Index" | 65 | , constField "title" "Index" |
| 66 | , constField "rss" "/rss/all-posts.rss" | ||
| 65 | , defaultContext | 67 | , defaultContext |
| 66 | ] | 68 | ] |
| 67 | item <- getResourceBody | 69 | item <- getResourceBody |