{-# LANGUAGE DeriveGeneric #-}

module Handler.Account where

import Import

import Yesod.Auth.Simple (setPasswordR)

import Util.Slug (mkSlug)

import Util.User (newToken)

import Util.Handler (title)

import Util.Alert (successHtml)

data ProfileData = ProfileData {

name :: Text,

username :: Text

} deriving (Show, Generic)

instance FromJSON ProfileData

getAccountProfileR :: Handler Html

getAccountProfileR = do

userId <- requireAuthId

Entity _ profile <- runDB $ getBy404 $ UniqueProfile userId

defaultLayout $ do

setTitle $ title "Profile"

$(widgetFile "account/profile")

putAccountProfileR :: Handler Value

putAccountProfileR = do

userId <- requireAuthId

profileData <- requireCheckJsonBody :: Handler ProfileData

Entity profileId _ <- runDB $ getBy404 $ UniqueProfile userId

now <- liftIO getCurrentTime

runDB $ update profileId [

ProfileName =. name profileData,

ProfileUsername =. (mkSlug $ username profileData),

ProfileModified =. now]

setMessage $ successHtml "Profile updated"

return $ object []

getAccountTokenR :: Handler Html

getAccountTokenR = do

userId <- requireAuthId

Entity _ apiUser <- runDB $ getBy404 $ UniqueApiUser userId

defaultLayout $ do

setTitle $ title "Api token"

$(widgetFile "account/token")

putAccountTokenR :: Handler Value

putAccountTokenR = do

userId <- requireAuthId

Entity apiUserId _ <- runDB $ getBy404 $ UniqueApiUser userId

token <- liftIO newToken

now <- liftIO getCurrentTime

runDB $ update apiUserId [ApiUserToken =. token, ApiUserModified =. now]

setMessage $ successHtml "New token generated"

return $ object []