From 9c410a50dd6ff1af541228a43931ff7367b3ecd5 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 19 Nov 2009 20:53:52 +0000 Subject: [PATCH] web: layout tweaks --- Commands/Web.hs | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/Commands/Web.hs b/Commands/Web.hs index d2bea31be..d7c1776a9 100644 --- a/Commands/Web.hs +++ b/Commands/Web.hs @@ -188,7 +188,7 @@ hledgerpage env msgs title content = <% navbar env %> - <% intercalate ", " msgs %> +
<% intercalate ", " msgs %>
<% content %>
@@ -196,8 +196,8 @@ hledgerpage env msgs title content = navbar :: Hack.Env -> HSP XML navbar env = getParamOrNull p = fromMaybe "" `fmap` getParam p @@ -220,10 +220,10 @@ searchform env = do a <- getParamOrNull "a" p <- getParamOrNull "p" let resetlink | null a && null p = - | otherwise = [NBSP]reset + | otherwise = [NBSP]reset where u = dropWhile (=='/') $ Hack.Contrib.Request.path env
- [NBSP]filter by:[NBSP][NBSP][NBSP]reporting period:[NBSP] <% resetlink %> @@ -234,19 +234,21 @@ addform env = do let inputs = Hack.Contrib.Request.inputs env date = fromMaybe "" $ lookup "date" inputs desc = fromMaybe "" $ lookup "desc" inputs - +
+ <% transactionfields 1 env %> <% transactionfields 2 env %> - +
- Date: [NBSP] - Description: [NBSP] + Date: [NBSP] + Description: [NBSP]
+
transactionfields :: Int -> Hack.Env -> HSP XML transactionfields n env = do @@ -256,8 +258,8 @@ transactionfields n env = do [NBSP][NBSP] - Account: [NBSP] - Amount: [NBSP] + Account: [NBSP] + Amount: [NBSP] where