From fc117d504ce257349c030c940c9a40d6b388219d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 19 Nov 2009 19:15:33 +0000
Subject: [PATCH] web: call print command "journal", make it default; hide
 histogram command

---
 Commands/Web.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/Commands/Web.hs b/Commands/Web.hs
index efe7f053a..0c2fcfa7e 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -128,13 +128,13 @@ server opts args l =
           get  "/balance"   $ command [] showBalanceReport   -- String -> ReaderT Env (StateT Response IO) () -> State Loli ()
           get  "/register"  $ command [] showRegisterReport
           get  "/histogram" $ command [] showHistogram
-          get  "/ledger"    $ ledgerpage [] l'' (showLedgerTransactions opts' args')
-          post "/ledger"    $ handleAddform l''
+          get  "/journal"   $ ledgerpage [] l'' (showLedgerTransactions opts' args')
+          post "/journal"   $ handleAddform l''
           get  "/env"       $ getenv >>= (text . show)
           get  "/params"    $ getenv >>= (text . show . Hack.Contrib.Request.params)
           get  "/inputs"    $ getenv >>= (text . show . Hack.Contrib.Request.inputs)
           public (Just "Commands/Web") ["/static"]
-          get  "/"          $ redirect ("balance") Nothing
+          get  "/"          $ redirect ("journal") Nothing
           ) env
 
 ledgerpage :: [String] -> Ledger -> (Ledger -> String) -> AppUnit
@@ -211,10 +211,9 @@ navlinks _ = do
    let addparams=(++(printf "?a=%s&p=%s" (urlEncode a) (urlEncode p)))
        link s = <a href=(addparams s) class="navlink"><% s %></a>
    <div id="navlinks">
-     <% link "ledger" %> |
-     <% link "balance" %> |
+     <% link "journal" %> |
      <% link "register" %> |
-     <% link "histogram" %>
+     <% link "balance" %>
     </div>
 
 searchform :: Hack.Env -> HSP XML