Commit e81f58f6 authored by Christopher League's avatar Christopher League
Browse files

Support for text notes

parent bf7060bc
......@@ -40,6 +40,7 @@ module App.Foundation
module Yesod.Auth,
setpassR,
getPageMeta,
accentColor,
)
where
......@@ -186,6 +187,9 @@ messageAlert (status, body) =
<span aria-hidden="true">&times;</span>
|]
accentColor :: Text
accentColor = "#e3f2fd"
instance Yesod App where
yesodMiddleware =
csrfCheck . defaultYesodMiddleware
......@@ -226,7 +230,7 @@ body {
font-weight: bold;
}
.navbar {
background-color: #e3f2fd;
background-color: #{accentColor};
border-bottom: 1px solid #8a8a8a;
}
.appAvatar {
......
......@@ -132,6 +132,14 @@ getPandocPage k =
defaultLayout $ do
addStylesheet PandocStyleR
setTitle title
toWidget [lucius|
.answers {
border: solid #{accentColor};
border-width: 0 0 6px 6px;
padding: 1em;
margin: 0 0 2ex 1em;
}
|]
[whamlet|
<div .col-12>
#{preEscapedToMarkup body}
......
......@@ -124,6 +124,10 @@ unit1 = do
Practice:
<a href=@{U1HexSpellR}>
Hexadecimal ‘spelling’
<li .list-group-item>
Notes:
<a href=@{PageDocR "notes130-text.org"}>
Text encoding
|]
getHomeR :: Handler Html
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment