Add a clay tutorial

1 files changed, 5 insertions, 1 deletions

diff --git a/web/site.hs b/web/site.hs
index 2fca8e0..0f99af2 100644
--- a/web/site.hs
+++ b/web/site.hs
@@ -3,6 +3,7 @@
 import           Control.Applicative ((<$>))
 import           Control.Arrow       (second)
 import           Control.Monad       (forM_)
+import           Data.Char           (isDigit)
 import           Data.List           (isPrefixOf, partition)
 import           Data.Monoid         (mappend)
 import           Hakyll
@@ -111,4 +112,7 @@ hackage url
 --------------------------------------------------------------------------------
 -- | Partition tutorials into tutorial series & other articles
 partitionTutorials :: [Item a] -> ([Item a], [Item a])
-partitionTutorials = partition $ matches (fromRegex "\\d*-.*") . itemIdentifier
+partitionTutorials = partition $ \i ->
+    case splitPath (toFilePath $ itemIdentifier i) of
+        [_, (x : _)] -> isDigit x
+        _            -> False