{-| Module : Gargantext.API.Public Description : Copyright : (c) CNRS, 2017-Present License : AGPL + CECILL v3 Maintainer : team@gargantext.org Stability : experimental Portability : POSIX -} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE ScopedTypeVariables #-} module Gargantext.API.Public where import Control.Lens ((^?), (^.), _Just) import Data.Aeson import Data.List qualified as List import Data.Map.Strict qualified as Map import Data.Set qualified as Set import Data.Swagger hiding (title, url) import Gargantext.API.Node.File import Gargantext.API.Prelude import Gargantext.Core.Utils.DateUtils (utc2year) import Gargantext.Database.Admin.Types.Hyperdata import Gargantext.Database.Admin.Types.Hyperdata.CorpusField import Gargantext.Database.Admin.Types.Node import Gargantext.Database.Prelude (Cmd, DBCmd) import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..)) import Gargantext.Database.Query.Table.NodeNode (selectPublicNodes) import Gargantext.Database.Schema.Node -- (NodePoly(..)) import Gargantext.Prelude import Gargantext.Utils.Aeson qualified as GUA import Servant import Test.QuickCheck (elements) import Test.QuickCheck.Arbitrary ------------------------------------------------------------------------ type API = API_Home :<|> API_Node api :: Text -> GargServer API api baseUrl = (api_home baseUrl) :<|> api_node ------------------------------------------------------------------------- type API_Home = Summary " Public Home API" :> Get '[JSON] [PublicData] api_home :: Text -> GargServer API_Home api_home baseUrl = catMaybes <$> map (toPublicData baseUrl) <$> filterPublicDatas <$> selectPublic ------------------------------------------------------------------------- type API_Node = Summary " Public Node API" :> Capture "node" NodeId :> "file" :> FileApi api_node :: NodeId -> GargServer FileApi api_node nId = do pubNodes <- publicNodes -- TODO optimize with SQL case Set.member nId pubNodes of False -> serverError $ err405 { errBody = "Not allowed" } True -> fileApi nId ------------------------------------------------------------------------- selectPublic :: HasNodeError err => DBCmd err [( Node HyperdataFolder, Maybe Int)] selectPublic = selectPublicNodes -- For tests only -- pure $ replicate 6 defaultPublicData filterPublicDatas :: [(Node HyperdataFolder, Maybe Int)] -> [(Node HyperdataFolder, [NodeId])] filterPublicDatas datas = map (\(n,mi) -> let mi' = UnsafeMkNodeId <$> mi in ( _node_id n, (n, maybe [] (:[]) mi' )) ) datas & Map.fromListWith (\(n1,i1) (_n2,i2) -> (n1, i1 <> i2)) & Map.filter (not . null . snd) & Map.elems publicNodes :: HasNodeError err => Cmd err (Set NodeId) publicNodes = do candidates <- filterPublicDatas <$> selectPublicNodes pure $ Set.fromList $ List.concat $ map (\(n, ns) -> (_node_id n) : ns) candidates -- http://localhost:8008/api/v1.0/node/23543/file/download -- http://localhost:8000/images/Gargantextuel-212x300.jpg toPublicData :: Text -> (Node HyperdataFolder, [NodeId]) -> Maybe PublicData toPublicData base (n , mn) = do title <- (hd ^? (_Just . hf_data . cf_title)) abstract <- (hd ^? (_Just . hf_data . cf_desc )) img <- (Just $ url' mn) -- "images/Gargantextuel-212x300.jpg" url <- (Just $ url' mn) date <- Just (show $ utc2year (n^.node_date)) database <- (hd ^? (_Just . hf_data . cf_query)) author <- (hd ^? (_Just . hf_data . cf_authors)) pure $ PublicData { .. } where hd = head $ filter (\(HyperdataField cd _ _) -> cd == JSON) $ n^. (node_hyperdata . hc_fields) url' :: [NodeId] -> Text url' mn' = base <> "/public/" <> (show $ (maybe 0 unNodeId $ head mn')) <> "/file/download" data PublicData = PublicData { title :: Text , abstract :: Text , img :: Text , url :: Text , date :: Text , database :: Text , author :: Text } | NoData { nodata:: Text} deriving (Generic) instance FromJSON PublicData where parseJSON = genericParseJSON (defaultOptions { sumEncoding = GUA.defaultTaggedObject }) instance ToJSON PublicData where toJSON = genericToJSON (defaultOptions { sumEncoding = GUA.defaultTaggedObject }) instance ToSchema PublicData instance Arbitrary PublicData where arbitrary = elements $ replicate 6 defaultPublicData defaultPublicData :: PublicData defaultPublicData = PublicData { title = "Title" , abstract = foldl (<>) "" $ replicate 100 "abstract " , img = "images/Gargantextuel-212x300.jpg" , url = "https://.." , date = "YY/MM/DD" , database = "database" , author = "Author" }