From fa3a9d0aecede2431e669ef33885a116f7d5f0be Mon Sep 17 00:00:00 2001 From: pho Date: Mon, 29 Oct 2007 17:52:21 +0900 Subject: [PATCH] Wrote many darcs-hash:20071029085221-62b54-d30fa2eae5994785e6fbee6ddade3e74f39644f1.gz --- Rakka/Resource/Render.hs | 15 ++++- Rakka/SystemConfig.hs | 9 ++- Rakka/Wiki.hs | 1 + Rakka/Wiki/Engine.hs | 30 +++++++++- Rakka/Wiki/Formatter.hs | 3 + Rakka/Wiki/Interpreter/Base.hs | 29 ++++++++- Rakka/Wiki/Parser.hs | 46 +++++++-------- defaultPages/Help/Syntax | 12 ++-- defaultPages/SideBar/Right | 1 + defaultPages/StyleSheet/Default | 15 +++++ js/Makefile | 8 +++ js/base.js | 2 + js/editPage.js | 101 ++++++++++++++++++++++++++++++++ 13 files changed, 237 insertions(+), 35 deletions(-) create mode 100644 js/base.js create mode 100644 js/editPage.js diff --git a/Rakka/Resource/Render.hs b/Rakka/Resource/Render.hs index cb01bcd..c4c8da0 100644 --- a/Rakka/Resource/Render.hs +++ b/Rakka/Resource/Render.hs @@ -70,6 +70,7 @@ handleRedirect env {- blah blah... + + + blah blah... + -} handleGetEntity :: (ArrowXml a, ArrowChoice a, ArrowIO a) => Environment -> a Page (Resource ()) @@ -206,9 +211,17 @@ entityToXHTML {- + + + + + +