Add transition note about wiki

Author: chrisdone

src/HL/View/Home.hs

@@ -23,6 +23,7 @@ homeV vids =
           community url vids
           features
           sponsors
+          transition
           events
           div_ [class_ "mobile"] $
                (navigation False [] cur url))
@@ -101,6 +102,16 @@ community url vids =
           li_ (a_ [class_ "vid-thumbnail",href_ u,title_ n]
                   (img_ [src_ thumb]))
 
+-- | Information for people to help transition from the old site to the new locations.
+transition :: Html ()
+transition =
+  div_ [class_ "transition"]
+       (container_
+          (row_ (span6_ [class_ "col-md-6"]
+                        (do h1_ "Psst! Looking for the wiki?"
+                            p_ (do "This is the new Haskell home page! The wiki has moved to "
+                                   a_ [href_ "https://wiki.haskell.org"] "wiki.haskell.org.")))))
+
 -- | Events section.
 -- TODO: Take events section from Haskell News?
 events :: Html ()

static/css/hl.css

@@ -549,6 +549,34 @@ h2 {
   text-decoration: none;
 }
 
+
+/* * * * * * * * * * * * * * * * * * * *
+   Transition
+   */
+
+.page-home .transition {
+  background: #1b2332;
+  color: #f0f0f0;
+  padding-top: 2em;
+  padding-bottom: 2em;
+}
+.page-home .transition h1 {
+  margin-bottom: 1em;
+  font-size: 1.5em;
+  font-weight: bold;
+}
+.page-home .wrap {
+  padding-bottom: 0;
+}
+.page-home .footer {
+  background: #1b2332;
+}
+.page-home .transition a:hover {
+  color: #71a9d9;
+  text-decoration: none;
+}
+
+
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    Responsiveness
    */