Add GitHub button to Common.hs (#5)

* Add GitHub button to Common.hs

Replace ribbon for button

* Refactor to use H.iframe_ syntax

Author: dmjio

shared/Common.hs

@@ -304,19 +304,22 @@ home = template $
     ]
   ]
 -----------------------------------------------------------------------------
+githubStar :: View model action
+githubStar = H.iframe_
+    [ P.title_ "GitHub"
+    , P.height_ "30"
+    , P.width_ "170"
+    , P.scrolling_ "0"
+    , P.frameborder_ "0"
+    , P.src_ "https://ghbtns.com/github-btn.html?user=haskell-miso&repo=miso-websocket&type=star&count=true&size=large"
+    ]
+    []
+-----------------------------------------------------------------------------
 template :: View Model Action -> Model -> View Model Action
 template content m =
   H.div_
   []
-  [ H.a_
-    [ P.class_ "github-fork-ribbon left-top fixed"
-    , P.href_ "http://github.com/dmjio/miso"
-    , P.data_ "ribbon" "Fork me on GitHub"
-    , P.target_ "blank"
-    , P.rel_ "noopener"
-    , P.title_ "Fork me on GitHub"
-    ]
-    [ "Fork me on GitHub" ]
+  [ githubStar
   , hero content (m ^. uri) (m ^. navMenuOpen)
   , middle
   , footer