Added "helping out" section to tutorials.

We really need more feedback on the turorials, so we can
adapt them to the needs of the readers.
This commit is contained in:
Jasper Van der Jeugt 2010-03-30 19:36:41 +02:00
parent 622c259708
commit d108263907
2 changed files with 25 additions and 9 deletions

View file

@ -5,7 +5,7 @@ import Text.Hakyll.File
import Text.Hakyll.Regex
import Control.Monad.Reader (liftIO)
import System.Directory
import Control.Monad (mapM_, liftM)
import Control.Monad (mapM_, forM_, liftM)
import Data.List (sort)
main = hakyll "http://jaspervdj.be/hakyll" $ do
@ -19,16 +19,22 @@ main = hakyll "http://jaspervdj.be/hakyll" $ do
["templates/tutorialitem.html"]
(map createPage tutorials)
[("title", Left "Tutorials")]
renderChain ["templates/tutorials.html", "templates/default.html"] $ withSidebar tutorialPage
renderChain ["templates/tutorials.html", "templates/default.html"]
(withSidebar tutorialPage)
mapM_ render' $ [ "about.markdown"
, "index.markdown"
, "philosophy.markdown"
, "reference.markdown"
, "changelog.markdown"
] ++ tutorials
mapM_ (render' ["templates/default.html"]) $
[ "about.markdown"
, "index.markdown"
, "philosophy.markdown"
, "reference.markdown"
, "changelog.markdown"
]
forM_ tutorials $ render' [ "templates/tutorial.html"
, "templates/default.html"
]
where
render' = renderChain ["templates/default.html"] . withSidebar . createPage
render' templates = renderChain templates . withSidebar . createPage
withSidebar a = a `combine` createPage "sidebar.markdown"

View file

@ -0,0 +1,10 @@
$body
<h2>Helping out</h2>
Hakyll is an open source project, and one of the hardest parts is writing
correct, up-to-date, and understandable documentation. Therefore, the
authors would really appreciate it if you would
<a href="http://groups.google.com/group/hakyll">give some feedback</a> about
the tutorials, and especially report errors or difficulties you encountered.
Thanks!