From 5d3a14ec537289416c77cff6b8610991ec463f60 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 27 Apr 2013 17:49:45 -0400
Subject: Forum: More nicely format the list of questions

---
 forum/forum.ur | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'forum/forum.ur')

diff --git a/forum/forum.ur b/forum/forum.ur
index e742ef9..d017900 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -23,6 +23,9 @@ end) = struct
 open Styles
 open Asker
 
+style questionList
+style questionMetadata
+
 table question : { Id : int,
 		   Title : string,
 		   Body : string,
@@ -36,7 +39,11 @@ val getName : transaction (option string) =
 
 fun prettyPrintQuestion row : xbody =
     <xml>
-      <p>{[row.Question.Title]}: {[row.Question.Body]} (asked by {[row.Question.Asker]})</p>
+      <li>
+	<h3>{[row.Question.Title]}</h3>
+	{[row.Question.Body]}
+	<span class={questionMetadata}>Asked by {[row.Question.Asker]}</span>
+      </li>
     </xml>
 
 fun main () : transaction page =
@@ -46,7 +53,9 @@ fun main () : transaction page =
         Template.generic (Some "Forum") <xml>
 	  <div class={content}>
 	    <p>All questions:</p>
-	    {newestQuestions}
+	    <ul class={questionList}>
+	      {newestQuestions}
+	    </ul>
 	    <p>Ask a new question:</p>
 	    <form>
 	      <textbox {#Title} size=80 /><br />
-- 
cgit v1.2.3