Skip to content

Display footer, css changes #36

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Display footer, css changes #36

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
579690e
Display footer, css changes
dfordivam Nov 14, 2018
283d353
Update Footer.hs
dfordivam Nov 28, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions frontend/src/Frontend.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,7 @@ import Common.Route
import Data.Dependent.Sum (DSum(..))
import Frontend.Head
import Frontend.Nav
import Frontend.Footer
import Frontend.Page.Documentation
import Frontend.Page.Examples
import Frontend.Page.Faq
Expand All @@ -36,6 +37,7 @@ frontend = Frontend
Route_Examples -> examples
Route_Documentation -> documentation
Route_FAQ -> faq
el "footer" footer
return ()
}

Expand Down
9 changes: 5 additions & 4 deletions frontend/src/Frontend/Footer.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,11 +8,12 @@ import Reflex.Dom
footer :: DomBuilder t m => m ()
footer = do
let links =
[ ("Hackage", "https://hackage.haskell.org/package/reflex")
, ("#reflex-frp", "http://webchat.freenode.net/?channels=%23reflex-frp&uio=d4")
[ ("Freenode/#reflex-frp", "http://webchat.freenode.net/?channels=%23reflex-frp&uio=d4")
, ("Hackage", "https://hackage.haskell.org/package/reflex")
]
forM_ links $ \(name, url) -> elAttr "a" ("href" =: url) $ text name
let socialIcon i title url = elAttr "a" ("href" =: url <> "title" =: title) $ brandIcon_ i
forM_ links $ \(name, url) -> elAttr "a" ("href" =: url <> ("target" =: "_blank")) $ text name
let socialIcon i title url = elAttr "a" ("href" =: url <> "title" =: title
<> ("target" =: "_blank")) $ brandIcon_ i
socialIcon "twitter" "Twitter" "https://twitter.com/search?q=%23reflexfrp"
socialIcon "github" "GitHub" "http://github.com/reflex-frp"
socialIcon "reddit" "Reddit" "http://reddit.com/r/reflexfrp"
9 changes: 6 additions & 3 deletions static/css/style.css
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -150,9 +150,12 @@ header .current-section {

/* Footer */
footer {
display: flex;
flex-direction: row;
flex: 0 0 auto;
padding: 10px;
text-align: center;
}

footer a {
padding: 0px 10px;
}

/* Main content area */
Expand Down