-- | Complex Type: @ptType@ <http://www.topografix.com/GPX/1/1/#type_ptType>
module Data.Geo.GPX.Pt(
  Pt
, pt
) where

import Data.Geo.GPX.Latitude
import Data.Geo.GPX.Longitude
import Data.Geo.GPX.Lens.LatL
import Data.Geo.GPX.Lens.LonL
import Data.Geo.GPX.Lens.EleL
import Data.Geo.GPX.Lens.TimeL
import Data.Lens.Common
import Control.Comonad.Trans.Store
import Text.XML.HXT.Arrow.Pickle
import Text.XML.XSD.DateTime

data Pt = Pt Latitude Longitude (Maybe Double) (Maybe DateTime)
  deriving (Eq, Ord)

pt ::
  Latitude -- ^ The lat.
  -> Longitude -- ^ The lon.
  -> Maybe Double -- ^ The ele.
  -> Maybe DateTime -- ^ The time.
  -> Pt
pt =
  Pt

instance LatL Pt where
  latL =
    Lens $ \(Pt lat lon ele time) -> store (\lat -> Pt lat lon ele time) lat

instance LonL Pt where
  lonL =
    Lens $ \(Pt lat lon ele time) -> store (\lon -> Pt lat lon ele time) lon

instance EleL Pt where
  eleL =
    Lens $ \(Pt lat lon ele time) -> store (\ele -> Pt lat lon ele time) ele

instance TimeL Pt where
  timeL =
    Lens $ \(Pt lat lon ele time) -> store (\time -> Pt lat lon ele time) time

instance XmlPickler Pt where
  xpickle =
    xpWrap (\(lat', lon', ele', time') -> pt lat' lon' ele' time',
           \(Pt lat' lon' ele' time') -> (lat', lon', ele', time')) (xp4Tuple
             (xpAttr "lat" xpickle)
             (xpAttr "lon" xpickle)
             (xpOption (xpElem "ele" xpPrim))
             (xpOption (xpElem "time" (xpWrapMaybe (dateTime, show) xpText))))