From a89dc76b6a861f2579ba57b6cbb0bdb341484c45 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 2 Mar 2013 20:44:07 -0500
Subject: Move forum page generation to separate library

---
 main.ur | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

(limited to 'main.ur')

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>)
 
-- 
cgit v1.2.3