Display count for tags list/sort by that count (#26)

Handler/Tag.hs

@@ -7,10 +7,11 @@ import           Import
 
 getTagListR :: Handler Html
 getTagListR = do
-    tags <- fmap (map (\(E.Value v) -> v)) $ runDB $
+    tags <- fmap (zip [0::Int ..] . (map (\(E.Value v,E.Value i) -> (v,i::Int)))) $ runDB $
-        E.selectDistinct $ E.from $ \tag -> do
+        E.select $ E.from $ \tag -> do
-            E.orderBy [E.asc (tag E.^. TagTag)]
+            E.groupBy (tag E.^. TagTag)
-            return (tag E.^. TagTag)
+            E.orderBy [E.desc (E.count (tag E.^. TagTag) :: E.SqlExpr (E.Value Int))]
+            return (tag E.^. TagTag, E.count (tag E.^. TagTag))
     defaultLayout $ do
         setTitle "Stackage tags"
         $(widgetFile "tag-list")

templates/tag-list.hamlet

@@ -1,7 +1,11 @@
+$newline never
 <div .container>
     <h1>Tags
-    <ul .tags>
+    <p .tags>
-        $forall tag <- tags
+        $forall (i,(tag,count)) <- tags
-            <li>
+            $if i /= 0
+                , #
+            <span .tag>
                 <a href=@{TagR tag}>
-                    #{tag}
+                    #{tag} #
+            <span .count>(#{count})

templates/tag-list.lucius

@@ -10,3 +10,7 @@
 h1 {
   margin-bottom: 0.5em;
 }
+
+.count {
+  color: #666;
+}

templates/tag.hamlet

@@ -2,7 +2,7 @@ $newline never
 
 <div .container>
     <h1>
-        Packages tagged: #{tag} (
+        Tag: #{tag} (
         <a href=@{TagListR}>
             all tags
         )