40 lines
1.1 KiB
Haskell
40 lines
1.1 KiB
Haskell
{-|
|
|
|
|
A happs-based web UI for hledger.
|
|
|
|
-}
|
|
|
|
module WebCommand
|
|
where
|
|
import qualified Data.Map as Map
|
|
import Data.Map ((!))
|
|
import HAppS.Server
|
|
import Ledger
|
|
import Options
|
|
import BalanceCommand
|
|
import RegisterCommand
|
|
import PrintCommand
|
|
|
|
|
|
-- | The application state when running the ui command.
|
|
data AppState = AppState {
|
|
aw :: Int -- ^ window width
|
|
,ah :: Int -- ^ window height
|
|
,amsg :: String -- ^ status message
|
|
,aopts :: [Opt] -- ^ command-line opts
|
|
,aargs :: [String] -- ^ command-line args
|
|
,aledger :: Ledger -- ^ parsed ledger
|
|
,abuf :: [String] -- ^ lines of the current buffered view
|
|
-- ^ never null, head is current location
|
|
} deriving (Show)
|
|
|
|
tcpport = 5000
|
|
|
|
web :: [Opt] -> [String] -> Ledger -> IO ()
|
|
web opts args l = do
|
|
putStrLn $ printf "starting hledger web server on port %d" tcpport
|
|
simpleHTTP nullConf{port=tcpport} [
|
|
method GET $ ok $ toResponse $ output
|
|
]
|
|
where output = showBalanceReport (opts++[SubTotal]) [] l
|