From 8d056968d0035e82b4753cf9d987622876888877 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Sun, 14 Dec 2014 20:38:37 +0100
Subject: [PATCH] Move snapshots and docs links to the top

---
 Handler/Package.hs       |  2 +-
 templates/package.hamlet | 40 ++++++++++------------------------------
 templates/package.lucius |  7 ++++++-
 3 files changed, 17 insertions(+), 32 deletions(-)

diff --git a/Handler/Package.hs b/Handler/Package.hs
index 1661caf..ee6446f 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -53,7 +53,7 @@ getPackageR pn = do
             <*> (map entityVal <$>
                  selectList [ModuleDocs ==. docsid] [Asc ModuleName])
 
-        return ( packages
+        return ( zip [0..] packages
                , downloads
                , recentDownloads
                , nLikes
diff --git a/templates/package.hamlet b/templates/package.hamlet
index 36ee319..a69e65a 100644
--- a/templates/package.hamlet
+++ b/templates/package.hamlet
@@ -6,8 +6,16 @@ $newline never
                #{pn} #
                <span .latest-version>
                  #{metadataVersion metadata} #
-                 <small>
-                     (current)
+            $forall (i,(version, title, slug, hasHaddocks)) <- packages
+               $if i /= 0
+                 , #
+               <a href=@{SnapshotR slug StackageHomeR}>#{fromMaybe title $ stripSuffix ", exclusive" title}
+               $if hasHaddocks
+                 \ (
+                 <a href=@{haddocksLink slug version}>
+                     #{version}
+                 )
+
     <div .row>
         <div .span12>
             <div .tags>
@@ -35,16 +43,6 @@ $newline never
                     #{nLikes}
                 \ likes #
                 <i .fa :liked:.fa-thumbs-up :not liked:.fa-thumbs-o-up #like title="#{likeTitle}">
-                $if downloads /= 0
-                    <span .downloads>
-                        $if downloads /= recentDownloads
-                            #{formatNum downloads} downloads #
-                            (#{formatNum recentDownloads} in the last 30 days)
-                        $else
-                            #{formatNum downloads} total downloads
-                $else
-                    <span .downloads>
-                        No downloads yet
             <div .authorship>
                 <span .license>
                     <a href="">
@@ -114,24 +112,6 @@ $newline never
                             #{name}
                 <div .bottom-gradient>
                     <i class="fa fa-angle-down">
-        $if False
-            <div .span6 .snapshots>
-               <table .table .snapshots>
-                   <thead>
-                       <th colspan=2>
-                           Package
-                       <th>
-                           Snapshot
-                   $forall (version, title, slug, hasHaddocks) <- packages
-                       <tr>
-                           <td>
-                               $if hasHaddocks
-                                 <a href=@{haddocksLink slug version}>
-                                     Docs
-                           <td>
-                               #{version}
-                           <td>
-                               <a href=@{SnapshotR slug StackageHomeR}>#{fromMaybe title $ stripSuffix ", exclusive" title}
 
 <div .markdown-container .readme-container>
     <div .container .content>
diff --git a/templates/package.lucius b/templates/package.lucius
index 1d9304f..7cafcc8 100644
--- a/templates/package.lucius
+++ b/templates/package.lucius
@@ -30,6 +30,11 @@ h3 {
 .fa-twittersquare {
   color: #0088cc
 }
+.tags {
+  margin-top: 0.5em;
+  border-top: 1px solid #ddd;
+  padding-top: 0.5em;
+}
 .social {
   margin-top: 0.5em;
   border-top: 1px solid #ddd;
@@ -209,5 +214,5 @@ h2.changes-title {
 
 /* https://github.com/fpco/stackage-server/issues/39 */
 div.plain-text {
-    white-space: pre-wrap;
+  white-space: pre-wrap;
 }