Permalink
Browse files

Add the logo to the docs (closes #163)

  • Loading branch information...
1 parent 74f5d70 commit b1cb3a53640afa322efd45927a34599c88b96475 @bergmark bergmark committed Nov 18, 2012
Showing with 25 additions and 9 deletions.
  1. +14 −1 docs/home.css
  2. BIN docs/logo-large.png
  3. BIN docs/logo-small.png
  4. +11 −8 src/Docs.hs
View
@@ -25,6 +25,7 @@ h1 {
font-size: 2em;
margin-bottom:0;
padding-bottom:0;
+ margin-top:0;
color: #F40095
}
h2 {
@@ -36,6 +37,18 @@ h3 {
color: #948091;
font-style: italic;
}
+.head {
+ margin-top: 2em;
+}
+.head-logo {
+ height: 50px;
+ margin-top:5px;
+ float: left;
+}
+.head-text {
+ float: left;
+ margin-left: 1em;
+}
.subheadline {
font-size: 20px;
margin-bottom: 1em;
@@ -44,7 +57,7 @@ h3 {
/* Syntax highlighting */
.example { }
-.example pre { margin-top:0;
+.example pre { margin-top:0;
word-wrap: break-word; }
.example pre .diff { color:#555 }
.example pre code .title { color:#333 }
View
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
@@ -7,24 +7,24 @@
module Main where
-import Language.Fay (compileFromTo)
-import Language.Fay.Compiler (compileForDocs, compileViaStr)
-import Language.Fay.Types (CompileConfig (..),
- PrintState (..))
-
-
import Control.Monad
import qualified Data.ByteString.Lazy as L
import Data.Char
import Data.Default
import Data.Time
+import Language.Fay (compileFromTo)
+import Language.Fay.Compiler (compileForDocs, compileViaStr)
+import Language.Fay.Types (CompileConfig (..),
+ PrintState (..))
+
import Prelude hiding (div, head)
import System.FilePath
import Text.Blaze.Extra
import Text.Blaze.Html5 as H hiding (contents, map, style)
import Text.Blaze.Html5.Attributes as A hiding (title)
import Text.Blaze.Renderer.Utf8 (renderMarkup)
+
-- | Main entry point.
main :: IO ()
main = do
@@ -104,8 +104,11 @@ fork =
! alt "Fork me on GitHub"
theheading = do
- h1 "Fay programming language"
- div !. "subheadline" $ "A proper subset of Haskell that compiles to JavaScript"
+ div !. "head" $ do
+ img !. "head-logo" ! src "logo-large.png"
+ div !. "head-text" $ do
+ h1 "Fay programming language"
+ div !. "subheadline" $ "A proper subset of Haskell that compiles to JavaScript"
theexamples examples = do
a ! name "examples" $ return ()

0 comments on commit b1cb3a5

Please sign in to comment.