Courseography / courseography / 0db00a0f-6300-48f5-afbc-6c830d1ade7e

module Controllers.Graph (graphResponse, index, getGraphJSON, graphImageResponse, saveGraphJSON) where

import Control.Monad.IO.Class (liftIO)

import Data.Aeson (decode, object, (.=))

import Data.Maybe (fromMaybe)

import Export.ImageConversion (withImageFile)

import Happstack.Server (Response, ServerPart, lookBS, lookText', ok, toResponse)

import MasterTemplate (masterTemplate)

import Scripts (graphScripts)

import System.FilePath ((</>))

import System.IO.Temp (withSystemTempDirectory)

import Text.Blaze ((!))

import qualified Text.Blaze.Html5 as H

import qualified Text.Blaze.Html5.Attributes as A

import Config (runDb)

import Database.Persist.Sqlite (Entity, SelectOpt (Asc), SqlPersistM, selectList, (==.))

import Database.Tables as Tables (EntityField (GraphDynamic, GraphTitle), Graph, SvgJSON, Text)

import Export.GetImages (writeActiveGraphImage)

import Models.Graph (getGraph, insertGraph)

import Util.Happstack (createJSONResponse)

import Util.Helpers (readImageData)

graphResponse :: ServerPart Response

graphResponse =

                )

index :: ServerPart Response

-- | Looks up a graph using its title then gets the Shape, Text and Path elements

-- for rendering graph (returned as JSON).

getGraphJSON :: ServerPart Response

-- | Returns an image of the graph requested by the user, given graphInfo stored in local storage.

graphImageResponse :: ServerPart Response

-- | Inserts SVG graph data into Texts, Shapes, and Paths tables

saveGraphJSON :: ServerPart Response