src/Gargantext/Database/Admin/Config.hs

   1 {-|
   2 Module      : Gargantext.Database
   3 Description : Tools for Database
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 Target: just import this module and nothing else to work with
  11 Gargantext's database.
  12
  13 TODO: configure nodes table in Haskell (Config typenames etc.)
  14 -}
  15
  16
  17 module Gargantext.Database.Admin.Config
  18     where
  19
  20 import Control.Lens     (view)
  21 import Data.List        (lookup)
  22 import Data.Maybe       (fromMaybe)
  23 import Data.Text        (Text,pack)
  24 import Data.Tuple.Extra (swap)
  25 import Gargantext.Database.Admin.Types.Node
  26 import Gargantext.Database.Schema.Node
  27 import Gargantext.Prelude
  28
  29 -- TODO put this in config.ini file
  30 corpusMasterName :: Text
  31 corpusMasterName = "Main"
  32
  33 userMaster :: Text
  34 userMaster = "gargantua"
  35
  36 userArbitrary :: Text
  37 userArbitrary = "user1"
  38
  39 nodeTypeId :: NodeType -> NodeTypeId
  40 nodeTypeId n =
  41   case n of
  42     NodeUser      -> 1
  43     NodeFolder    -> 2
  44     NodeFolderPrivate -> 20
  45     NodeFolderShared  -> 21
  46     NodeTeam          -> 210
  47     NodeFolderPublic  -> 22
  48     NodeCorpusV3  -> 3
  49     NodeCorpus    -> 30
  50     NodeAnnuaire  -> 31
  51     NodeTexts     -> 40
  52     NodeDocument  -> 4
  53     NodeContact   -> 41
  54   --NodeSwap   -> 19
  55
  56 ----  Lists
  57     NodeList      -> 5
  58     NodeListCooc  -> 50
  59     NodeModel -> 52
  60
  61 ----  Scores
  62 --    NodeOccurrences -> 10
  63     NodeGraph       -> 9
  64     NodePhylo       -> 90
  65 --    NodeChart       -> 7
  66     NodeDashboard   -> 71
  67 --    NodeNoteBook    -> 88
  68
  69     NodeFrameWrite  -> 991
  70     NodeFrameCalc   -> 992
  71
  72 --  Cooccurrences -> 9
  73 --
  74 --  Specclusion  -> 11
  75 --  Genclusion   -> 18
  76 --  Cvalue       -> 12
  77 --
  78 --  TfidfCorpus  -> 13
  79 --  TfidfGlobal  -> 14
  80 --
  81 --  TirankLocal  -> 16
  82 --  TirankGlobal -> 17
  83
  84 --  Node management
  85 --  NodeFavorites    -> 15
  86
  87 hasNodeType :: forall a. Node a -> NodeType -> Bool
  88 hasNodeType n nt = (view node_typename n) == (nodeTypeId nt)
  89
  90 isInNodeTypes :: forall a. Node a -> [NodeType] -> Bool
  91 isInNodeTypes n ts = elem (view node_typename n) (map nodeTypeId ts)
  92
  93 -- | Nodes are typed in the database according to a specific ID
  94 --
  95 nodeTypeInv :: [(NodeTypeId, NodeType)]
  96 nodeTypeInv = map swap nodeTypes
  97
  98 nodeTypes :: [(NodeType, NodeTypeId)]
  99 nodeTypes = [ (n, nodeTypeId n) | n <- allNodeTypes ]
 100
 101 fromNodeTypeId :: NodeTypeId -> NodeType
 102 fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
 103                                (lookup tId nodeTypeInv)
 104