Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add Gitit User's Guide (README) in initializing new wiki.

  • Loading branch information...
commit 9b4a1b8366408f4f727a363e84891d1ec65b0934 1 parent 6c9ced6
@jgm authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 Network/Gitit/Initialize.hs
View
6 Network/Gitit/Initialize.hs
@@ -133,11 +133,15 @@ createRepoIfMissing conf = do
markuppath <- getDataFileName $ "data" </> "markup" <.> show pt
helpcontentsMarkup <- liftM converter $ readFile markuppath
let helpcontents = helpcontentsInitial ++ "\n\n" ++ helpcontentsMarkup
- -- add front page and help page
+ usersguidepath <- getDataFileName "README.markdown"
+ usersguidecontents <- liftM converter $ readFile usersguidepath
+ -- add front page, help page, and user's guide
create fs (frontPage conf <.> "page") (Author "Gitit" "") "Default front page" welcomecontents
logM "gitit" WARNING $ "Added " ++ (frontPage conf <.> "page") ++ " to repository"
create fs "Help.page" (Author "Gitit" "") "Default help page" helpcontents
logM "gitit" WARNING $ "Added " ++ "Help.page" ++ " to repository"
+ create fs "Gitit User's Guide.page" (Author "Gitit" "") "User's guide (README)" usersguidecontents
+ logM "gitit" WARNING $ "Added " ++ "Gitit User's Guide.page" ++ " to repository"
-- | Create static directory unless it exists.
createStaticIfMissing :: Config -> IO ()
Please sign in to comment.
Something went wrong with that request. Please try again.