summaryrefslogtreecommitdiff
path: root/main.ur
diff options
context:
space:
mode:
Diffstat (limited to 'main.ur')
-rw-r--r--main.ur20
1 files changed, 4 insertions, 16 deletions
diff --git a/main.ur b/main.ur
index 03bb2fe..b498861 100644
--- a/main.ur
+++ b/main.ur
@@ -16,16 +16,7 @@ details.
You should have received a copy of the GNU Affero General Public License along
with 6.947. If not, see <http://www.gnu.org/licenses/>. *)
-
-(********************************** Styles ***********************************)
-
-style smallCaps
-
-style siteTitle
-style navBar
-style active (* TODO: Use for active menu items *)
-style content
-style footer
+open Styles
(********************************* Template **********************************)
@@ -107,13 +98,10 @@ and main () =
</div>
</xml>)
-and forum () =
+and forum () = forumWorker Forum.main
+and forumWorker (f : unit -> xbody) =
return (generic (Some "Forum") <xml>
{header (make [#Forum] ())}
- <div class={content}>
- <p>
- Coming soon!
- </p>
- </div>
+ {f ()}
</xml>)