Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add the logo to the docs (closes #163)

  • Loading branch information...
commit b1cb3a53640afa322efd45927a34599c88b96475 1 parent 74f5d70
@bergmark bergmark authored
View
15 docs/home.css
@@ -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
BIN  docs/logo-large.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
BIN  docs/logo-small.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
19 src/Docs.hs
@@ -7,17 +7,16 @@
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
@@ -25,6 +24,7 @@ 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 ()
Please sign in to comment.
Something went wrong with that request. Please try again.