From b3aedda27544af0f349f0a91a8dcdd6987de0dba Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 19 Nov 2009 21:11:07 +0000
Subject: [PATCH] web: add help links

---
 Commands/Web.hs               | 4 +++-
 Commands/Web/static/style.css | 5 ++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/Commands/Web.hs b/Commands/Web.hs
index d7c1776a9..1a3f8a4c9 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -196,8 +196,10 @@ hledgerpage env msgs title content =
 navbar :: Hack.Env -> HSP XML
 navbar env =
     <div id="navbar">
+      <a href="http://hledger.org" id="hledgerorglink">hledger.org</a>
       <% navlinks env %>
       <% searchform env %>
+      <a href="http://hledger.org/README.html" id="helplink">help</a>
     </div>
 
 getParamOrNull p = fromMaybe "" `fmap` getParam p
@@ -245,7 +247,7 @@ addform env = do
       </tr>
       <% transactionfields 1 env %>
       <% transactionfields 2 env %>
-      <tr align="right"><td><input type="submit" value="add transaction" /></td></tr>
+      <tr id="addbuttonrow"><td><input type="submit" value="add transaction" /></td></tr>
     </table>
    </form>
    </div>
diff --git a/Commands/Web/static/style.css b/Commands/Web/static/style.css
index fab7d39b3..a75ceb542 100644
--- a/Commands/Web/static/style.css
+++ b/Commands/Web/static/style.css
@@ -5,8 +5,11 @@ body { font-family: "helvetica","arial", "sans serif"; margin:0; }
 #navlinks { display:inline; }
 .navlink { font-weight:normal; }
 #searchform { font-size:small; display:inline; margin-left:1em; }
-#resetlink {  }
+#hledgerorglink { font-size:small; float:right; }
+#helplink { font-size:small; margin-left:1em; }
+#resetlink { font-size:small; }
 #messages { color:red; background-color:#ffeeee; margin:0.5em;}
 #content { padding:0 4px 0 4px; }
 #addform { margin-left:1em; font-size:small; float:right;}
 #addform table { background-color:#eeeeee; border:2px solid #dddddd; }
+#addform #addbuttonrow td { text-align:left; }
\ No newline at end of file