diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-13 12:18:24 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-13 12:18:24 +0100 |
| commit | d129cdc775b728c700dcabe0fc9b600235b92284 (patch) | |
| tree | 140aadfa2b8cc23aba83de4fa2a186cffc350789 /web/site.hs | |
| parent | 1ceb5eb205438b3ff57fe74ada821d89695869d9 (diff) | |
| download | hakyll-d129cdc775b728c700dcabe0fc9b600235b92284.tar.gz | |
Partition tutorials into series and articles
Diffstat (limited to 'web/site.hs')
| -rw-r--r-- | web/site.hs | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/web/site.hs b/web/site.hs index 79578dd..2fca8e0 100644 --- a/web/site.hs +++ b/web/site.hs @@ -3,7 +3,7 @@ import Control.Applicative ((<$>)) import Control.Arrow (second) import Control.Monad (forM_) -import Data.List (isPrefixOf) +import Data.List (isPrefixOf, partition) import Data.Monoid (mappend) import Hakyll import System.FilePath (dropTrailingPathSeparator, splitPath) @@ -53,12 +53,16 @@ main = hakyllWith config $ do compile $ do tutorials <- loadAll "tutorials/*" itemTpl <- loadBody "templates/tutorial-item.html" - list <- applyTemplateList itemTpl defaultContext $ - chronological tutorials + let (series, articles) = partitionTutorials $ + chronological tutorials + + series' <- applyTemplateList itemTpl defaultContext series + articles' <- applyTemplateList itemTpl defaultContext articles let tutorialsCtx = - constField "title" "Tutorials" `mappend` - constField "tutorials" list `mappend` + constField "title" "Tutorials" `mappend` + constField "series" series' `mappend` + constField "articles" articles' `mappend` defaultContext makeItem "" @@ -102,3 +106,9 @@ hackage url (packageName, version') = second (drop 1) $ break (== '-') package (baseName : package : _) = map dropTrailingPathSeparator $ reverse $ splitPath url + + +-------------------------------------------------------------------------------- +-- | Partition tutorials into tutorial series & other articles +partitionTutorials :: [Item a] -> ([Item a], [Item a]) +partitionTutorials = partition $ matches (fromRegex "\\d*-.*") . itemIdentifier |