From e2e9fc3d1885f882df487aec0e01ee543fae3bf6 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 27 Apr 2013 18:04:33 -0400
Subject: Forum: More layout tweaking

---
 forum/forum.ur | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'forum/forum.ur')

diff --git a/forum/forum.ur b/forum/forum.ur
index d017900..6e62b83 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -25,6 +25,8 @@ open Asker
 
 style questionList
 style questionMetadata
+style questionEntryTitle
+style questionEntryBody
 
 table question : { Id : int,
 		   Title : string,
@@ -47,19 +49,22 @@ fun prettyPrintQuestion row : xbody =
     </xml>
 
 fun main () : transaction page =
-    newestQuestions <- queryX (SELECT * FROM question) prettyPrintQuestion;
+    newestQuestions <- queryX (SELECT * FROM question
+					ORDER BY Question.Id DESC
+					LIMIT 5)
+			      prettyPrintQuestion;
     askerOpt <- getName;
     return (
         Template.generic (Some "Forum") <xml>
 	  <div class={content}>
-	    <p>All questions:</p>
+	    <h2>Latest questions</h2>
 	    <ul class={questionList}>
 	      {newestQuestions}
 	    </ul>
-	    <p>Ask a new question:</p>
+	    <h2>Ask a new question</h2>
 	    <form>
-	      <textbox {#Title} size=80 /><br />
-	      <textarea {#Body} rows=12 cols=80 /><br />
+	      <textbox {#Title} placeholder="Title" class={questionEntryTitle} /><br />
+	      <textarea {#Body} class={questionEntryBody} /><br />
 	      Asking as:
 	      <select {#Asker}>
 	        {case askerOpt of
-- 
cgit v1.2.3