module Server exposing
  ( signIn
  , createPayment
  , editPayment
  , deletePayment
  , createIncome
  , editIncome
  , deleteIncome
  , createCategory
  , editCategory
  , deleteCategory
  , signOut
  )

import Task as Task exposing (Task)
import Http exposing (Error)
import Date
import Json.Decode as Decode
import Json.Encode as Encode
import Date exposing (Date)

import Date.Extra.Format as DateFormat

import Utils.Http as HttpUtils

import Model.Payment exposing (..)
import Model.Income exposing (incomeIdDecoder, IncomeId)
import Model.Category exposing (categoryIdDecoder, CategoryId)
import Model.User exposing (Users, usersDecoder, UserId, userIdDecoder)
import Model.Init exposing (Init)

signIn : String -> (Result Error String -> msg) -> Cmd msg
signIn email = HttpUtils.request "POST" ("/signIn?email=" ++ email) Http.expectString

createPayment : String -> Int -> Date -> CategoryId -> Frequency -> (Result Error PaymentId -> msg) -> Cmd msg
createPayment name cost date categoryId frequency handleResult =
  let json =
        Encode.object
          [ ("name", Encode.string name)
          , ("cost", Encode.int cost)
          , ("date", Encode.string (DateFormat.isoDateString date))
          , ("category", Encode.int categoryId)
          , ("frequency", Encode.string (toString frequency))
          ]
      expect = Http.expectJson (Decode.field "id" paymentIdDecoder)
  in  HttpUtils.jsonRequest "POST" "/payment" expect handleResult json

editPayment : PaymentId -> String -> Int -> Date -> CategoryId -> Frequency -> (Result Error String -> msg) -> Cmd msg
editPayment paymentId name cost date categoryId frequency handleResult =
  let json =
        Encode.object
          [ ("id", Encode.int paymentId)
          , ("name", Encode.string name)
          , ("cost", Encode.int cost)
          , ("date", Encode.string (DateFormat.isoDateString date))
          , ("category", Encode.int categoryId)
          , ("frequency", Encode.string (toString frequency))
          ]
  in  HttpUtils.jsonRequest "PUT" "/payment" Http.expectString handleResult json

deletePayment : PaymentId -> (Result Error String -> msg) -> Cmd msg
deletePayment paymentId =
  HttpUtils.request "DELETE" ("/payment?id=" ++ (toString paymentId)) Http.expectString

createIncome : Int -> Date -> (Result Error IncomeId -> msg) -> Cmd msg
createIncome amount date handleResult =
  let json =
        Encode.object
          [ ("amount", Encode.int amount)
          , ("date", Encode.string (DateFormat.isoDateString date))
          ]
      expect = Http.expectJson (Decode.field "id" incomeIdDecoder)
  in  HttpUtils.jsonRequest "POST" "/income" expect handleResult json

editIncome : IncomeId -> Int -> Date -> (Result Error String -> msg) -> Cmd msg
editIncome incomeId amount date handleResult =
  let json =
        Encode.object
          [ ("id", Encode.int incomeId)
          , ("amount", Encode.int amount)
          , ("date", Encode.string (DateFormat.isoDateString date))
          ]
  in  HttpUtils.jsonRequest "PUT" "/income" Http.expectString handleResult json

deleteIncome : IncomeId -> (Result Error String -> msg) -> Cmd msg
deleteIncome incomeId =
  HttpUtils.request "DELETE" ("/income?id=" ++ (toString incomeId)) Http.expectString

createCategory : String -> String -> (Result Error CategoryId -> msg) -> Cmd msg
createCategory name color handleResult =
  let json =
        Encode.object
          [ ("name", Encode.string name)
          , ("color", Encode.string color)
          ]
      expect = Http.expectJson (Decode.field "id" categoryIdDecoder)
  in  HttpUtils.jsonRequest "POST" "/category" expect handleResult json

editCategory : CategoryId -> String -> String -> (Result Error String -> msg) -> Cmd msg
editCategory categoryId name color handleResult =
  let json =
        Encode.object
          [ ("id", Encode.int categoryId)
          , ("name", Encode.string name)
          , ("color", Encode.string color)
          ]
  in  HttpUtils.jsonRequest "PUT" "/category" Http.expectString handleResult json

deleteCategory : CategoryId -> (Result Error String -> msg) -> Cmd msg
deleteCategory categoryId =
  HttpUtils.request "DELETE" ("/category?id=" ++ (toString categoryId)) Http.expectString

signOut : (Result Error String -> msg) -> Cmd msg
signOut = HttpUtils.request "POST" "/signOut" Http.expectString