[padagraph] add basic support for NodePadagraph in backend

src/Gargantext/API/Node/New.hs

@@ -43,7 +43,7 @@ import Gargantext.Prelude
 
 ------------------------------------------------------------------------
 data PostNode = PostNode { pn_name     :: Text
-                         , pn_typename :: NodeType}
+                         , pn_typename :: NodeType }
   deriving (Generic)
 ------------------------------------------------------------------------
 -- TODO unPrefix "pn_" FromJSON, ToJSON, ToSchema, adapt frontend.

src/Gargantext/Core/Viz/Types.hs

-{-# LANGUAGE DeriveGeneric     #-}
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE TemplateHaskell   #-}
 
 module Gargantext.Core.Viz.Types where

src/Gargantext/Database/Admin/Config.hs

@@ -81,6 +81,8 @@ nodeTypeId n =
     NodeFrameNotebook -> 993
     NodeFrameVisio    -> 994
 
+    NodePadagraph     -> 91
+
 --  Cooccurrences -> 9
 --
 --  Specclusion  -> 11

src/Gargantext/Database/Admin/Types/Hyperdata.hs

@@ -22,6 +22,7 @@ module Gargantext.Database.Admin.Types.Hyperdata
   , module Gargantext.Database.Admin.Types.Hyperdata.Frame
   , module Gargantext.Database.Admin.Types.Hyperdata.List
   , module Gargantext.Database.Admin.Types.Hyperdata.Model
+  , module Gargantext.Database.Admin.Types.Hyperdata.Padagraph
   , module Gargantext.Database.Admin.Types.Hyperdata.Prelude
   , module Gargantext.Database.Admin.Types.Hyperdata.Texts
   , module Gargantext.Database.Admin.Types.Hyperdata.Phylo
@@ -40,6 +41,7 @@ import Gargantext.Database.Admin.Types.Hyperdata.Folder
 import Gargantext.Database.Admin.Types.Hyperdata.Frame
 import Gargantext.Database.Admin.Types.Hyperdata.List
 import Gargantext.Database.Admin.Types.Hyperdata.Model
+import Gargantext.Database.Admin.Types.Hyperdata.Padagraph
 import Gargantext.Database.Admin.Types.Hyperdata.Prelude (Hyperdata)
 import Gargantext.Database.Admin.Types.Hyperdata.Texts
 import Gargantext.Database.Admin.Types.Hyperdata.Phylo

src/Gargantext/Database/Admin/Types/Hyperdata/Any.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Any

src/Gargantext/Database/Admin/Types/Hyperdata/Contact.hs

@@ -10,13 +10,6 @@ Portability : POSIX
 -}
 
 {-# LANGUAGE FunctionalDependencies     #-}
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 

src/Gargantext/Database/Admin/Types/Hyperdata/Corpus.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Corpus

src/Gargantext/Database/Admin/Types/Hyperdata/CorpusField.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.CorpusField

src/Gargantext/Database/Admin/Types/Hyperdata/Dashboard.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Dashboard

src/Gargantext/Database/Admin/Types/Hyperdata/Default.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Default
@@ -57,6 +50,8 @@ data DefaultHyperdata =
 
   | DefaultFile          HyperdataFile
 
+  | DefaultPadagraph     HyperdataPadagraph
+
 instance Hyperdata DefaultHyperdata
 
 instance ToJSON DefaultHyperdata where
@@ -90,6 +85,8 @@ instance ToJSON DefaultHyperdata where
 
   toJSON (DefaultFile x) = toJSON x
 
+  toJSON (DefaultPadagraph x) = toJSON x
+
 
 defaultHyperdata :: NodeType -> DefaultHyperdata
 defaultHyperdata NodeUser           = DefaultUser    defaultHyperdataUser
@@ -121,3 +118,5 @@ defaultHyperdata NodeFrameVisio     = DefaultFrameVisio defaultHyperdataFrame
 defaultHyperdata NodeFrameNotebook      = DefaultFrameCalc  defaultHyperdataFrame
 
 defaultHyperdata NodeFile           = DefaultFile defaultHyperdataFile
+
+defaultHyperdata NodePadagraph      = DefaultPadagraph defaultHyperdataPadagraph

src/Gargantext/Database/Admin/Types/Hyperdata/Document.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Document where

src/Gargantext/Database/Admin/Types/Hyperdata/File.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.File

src/Gargantext/Database/Admin/Types/Hyperdata/Folder.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Folder

src/Gargantext/Database/Admin/Types/Hyperdata/Frame.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Frame

src/Gargantext/Database/Admin/Types/Hyperdata/List.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.List

src/Gargantext/Database/Admin/Types/Hyperdata/Model.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Model

src/Gargantext/Database/Admin/Types/Hyperdata/Padagraph.hs

+{-|
+Module      : Gargantext.Database.Admin.Types.Hyperdata.Padagraph
+Description :
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+-}
+
+{-# LANGUAGE TemplateHaskell            #-}
+
+module Gargantext.Database.Admin.Types.Hyperdata.Padagraph
+  where
+
+import Gargantext.Prelude
+import Gargantext.Database.Admin.Types.Hyperdata.Prelude
+
+------------------------------------------------------------------------
+data HyperdataPadagraph =
+  HyperdataPadagraph { _hpad_base     :: !Text
+                     , _hpad_graph_id :: !Text
+                 }
+    deriving (Generic)
+
+
+defaultHyperdataPadagraph :: HyperdataPadagraph
+defaultHyperdataPadagraph = HyperdataPadagraph "" ""
+
+------------------------------------------------------------------------
+-- Instances
+------------------------------------------------------------------------
+-- | Specific Gargantext instance
+instance Hyperdata HyperdataPadagraph
+makeLenses ''HyperdataPadagraph
+
+-- | All Json instances
+$(deriveJSON (unPrefix "_hpad_") ''HyperdataPadagraph)
+
+-- | Arbitrary instances for tests
+instance Arbitrary HyperdataPadagraph where
+  arbitrary = pure defaultHyperdataPadagraph
+
+instance FromField HyperdataPadagraph
+  where
+    fromField = fromField'
+
+instance QueryRunnerColumnDefault PGJsonb HyperdataPadagraph
+  where
+    queryRunnerColumnDefault = fieldQueryRunnerColumn
+
+instance ToSchema HyperdataPadagraph where
+  declareNamedSchema proxy =
+    genericDeclareNamedSchema (unPrefixSwagger "_hpad_") proxy
+    & mapped.schema.description ?~ "Frame Hyperdata"
+    & mapped.schema.example ?~ toJSON defaultHyperdataPadagraph
+

src/Gargantext/Database/Admin/Types/Hyperdata/Phylo.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Phylo

src/Gargantext/Database/Admin/Types/Hyperdata/Texts.hs

@@ -9,13 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Hyperdata.Texts

src/Gargantext/Database/Admin/Types/Hyperdata/User.hs

@@ -10,13 +10,6 @@ Portability : POSIX
 -}
 
 {-# LANGUAGE FunctionalDependencies     #-}
-{-# LANGUAGE DeriveGeneric              #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 

src/Gargantext/Database/Admin/Types/Metrics.hs

-{-# LANGUAGE DeriveGeneric              #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 module Gargantext.Database.Admin.Types.Metrics where

src/Gargantext/Database/Admin/Types/Node.hs

@@ -266,6 +266,7 @@ data NodeType = NodeUser
               -- Optional Nodes
               | NodeFrameWrite | NodeFrameCalc | NodeFrameVisio | NodeFrameNotebook
               | NodeFile
+              | NodePadagraph
 
   deriving (Show, Read, Eq, Generic, Bounded, Enum)
 
@@ -304,6 +305,7 @@ defaultName NodeFrameNotebook     = "Frame Code"
 
 defaultName NodeFile          = "File"
 
+defaultName NodePadagraph     = "Padagraph"
 
 instance FromJSON NodeType
 instance ToJSON NodeType