{-|

A 'MarketPrice' represents a historical exchange rate between two
commodities. (Ledger calls them historical prices.) For example, prices
published by a stock exchange or the foreign exchange market.  Some
commands (balance, currently) can use this information to show the market
value of things at a given date.

-}

{-# LANGUAGE RecordWildCards #-}

module Hledger.Data.MarketPrice (
   showMarketPrice
)
where

import qualified Data.Text as T

import Hledger.Data.Amount
import Hledger.Data.Dates
import Hledger.Data.Types

-- | Get the string representation of an market price, based on its
-- commodity's display settings.
showMarketPrice :: MarketPrice -> String
showMarketPrice mp = unwords
    [ "P"
    , showDate (mpdate mp)
    , T.unpack (mpcommodity mp)
    , (showAmount . setAmountPrecision maxprecision) (mpamount mp)
    ]

-- -- | Convert this posting's amount to its value on the given date in
-- -- its default valuation commodity, using market prices from the given journal.
-- postingValueAtDate :: Journal -> Day -> Posting -> Posting
-- postingValueAtDate j d p@Posting{..} = p{pamount=mixedAmountValue prices d pamount}
--   where
--     -- prices are in parse order - sort into date then parse order,
--     -- & reversed for quick lookup of the latest price.
--     prices = reverse $ sortOn mpdate $ jmarketprices j

-- -- | Find the best commodity to convert to when asked to show the
-- -- market value of this commodity on the given date. That is, the one
-- -- in which it has most recently been market-priced, ie the commodity
-- -- mentioned in the most recent applicable historical price directive
-- -- before this date.
-- -- defaultValuationCommodity :: Journal -> Day -> CommoditySymbol -> Maybe CommoditySymbol
-- -- defaultValuationCommodity j d c = mpamount <$> commodityValue j d c