diff --git a/TODO.org b/TODO.org
index 98966dc..e4b09e1 100644
--- a/TODO.org
+++ b/TODO.org
@@ -23,7 +23,7 @@
In order to implement this, a reasonable size refactor needs to take place. Below is a list
of things to be completed in order to successfully achieve the aforementioned goals.
-*** TODO Fix issue with tag and pagination page generation <>
+*** TODO [1/3] Fix issue with tag and pagination page generation <>
Currently URLs to paginated pages (which includes the blog and tag pages) are broken. They
generate "/tags/*.html" instead of "/tags/*1.html".
@@ -33,6 +33,15 @@
artifact of pagination. It contains all blog posts (contained in "/blog1.html" through
"/blogN.html").
+**** TODO Blog pagination
+**** DONE Tag pages pagination
+ CLOSED: [2015-08-13 Thu 22:26]
+**** TODO Tag cloud and tagField are broken
+ After fixing the [[Tag pages pagination]] issue, another issue cropped up. Namely:
+
+ - tagCloud :: all links in tag cloud are to "/" instead of their respective tag page
+ - tagField :: nothing seems to be generated at all (no links to tags in blog posts)
+
*** Complete
**** CANCELED Modify nav URLs using javascript once page is loaded
CLOSED: [2015-08-13 Thu 01:47]
diff --git a/src/site.hs b/src/site.hs
index 0d86a20..265b1dd 100644
--- a/src/site.hs
+++ b/src/site.hs
@@ -321,7 +321,7 @@ paginateTagsRules loc tags =
(\n -> fromCapture (fromGlob $ loc ++ "/" ++ tag ++ "*.html") (show n))
paginateRules paginatedTaggedPosts $ \pageNum pattern -> do
- route idRoute
+ route $ gsubRoute " " (const "-") `composeRoutes` setExtension "html"
compile $ do
pages <- sortByM pageWeight =<< loadAll ("pages/*" .&&. hasVersion "nav-gen")
posts <- recentFirst =<< loadAllSnapshots pattern "content"
@@ -346,15 +346,11 @@ paginateTagsRules loc tags =
>>= loadAndApplyTemplate "templates/default.html" indexCtx
rulesExtraDependencies [tagsDependency tags] $ do
- create [tagsMakeId tags tag] $ do
- route $ gsubRoute " " (const "-")
- compile $ makeItem ("" :: String)
-
- version "rss" $ do
- route $ gsubRoute " " (const "-") `composeRoutes` setExtension "xml"
- compile $ loadAllSnapshots (fromList identifiers) "content"
- >>= fmap (take 10) . recentFirst
- >>= renderAtom (feedConfiguration $ Just tag) (bodyField "description" <> defaultContext)
+ create [fromFilePath $ "tags/" ++ tag ++ ".xml"] $ do
+ route $ gsubRoute " " (const "-") `composeRoutes` setExtension "xml"
+ compile $ loadAllSnapshots (fromList identifiers) "content"
+ >>= fmap (take 10) . recentFirst
+ >>= renderAtom (feedConfiguration $ Just tag) (bodyField "description" <> defaultContext)
postCtx :: Context String
postCtx = dateField "date" "%B %e, %Y" <>