polish

HappsCommand.hs

@@ -52,7 +52,7 @@ web opts args l =
        putStrLn $ printf "starting web server on port %d" tcpport
        tid <- forkIO $ simpleHTTP nullConf{port=tcpport} handlers
        putStrLn "starting web browser"
-       openBrowserOn $ printf "http://localhost:%s/print" (show tcpport)
+       openBrowserOn $ printf "http://localhost:%s/balance" (show tcpport)
        waitForTermination
        putStrLn "shutting down web server..."
        killThread tid
@@ -83,9 +83,11 @@ maintemplate r = printf (unlines
   ,"<form action=%s>search:&nbsp;<input name=a value=%s></form>"
   ,"</div>"
   ,"<div align=center style=width:100%%>"
+  ," <a href=balance>balance</a>"
+  ,"|"
+  ," <a href=register>register</a>"
+  ,"|"
   ," <a href=print>print</a>"
-  ," | <a href=register>register</a>"
-  ," | <a href=balance>balance</a>"
   ,"</div>"
   ,"<pre>%s</pre>"
   ])

README

@@ -54,10 +54,10 @@ option (which may be - for standard input). Here are some commands to try::
  hledger --help
  hledger -f sample.ledger balance
  export LEDGER=sample.ledger
- hledger -s balance
+ hledger balance --depth 1
  hledger register
- hledger reg cash
+ hledger reg income
- hledger reg -- shop
+ hledger reg desc:shop
  hledger ui
 
 

UICommand.hs

@@ -17,7 +17,7 @@ import RegisterCommand
 import PrintCommand
 
 
-helpmsg = "Welcome to hledger vty ui. (b)alances, (r)egister, (p)rint entries, (l)edger, (right) to drill down, (left) to back up, or (q)uit"
+helpmsg = "Welcome to hledger vty ui. (b)alances, (r)egister, (p)rint entries, raw (l)edger, (right) to drill down, (left) to back up, or (q)uit"
 
 instance Show Vty where show v = "a Vty"