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     NodeFile        -> 101
  70
  71     NodeFrameWrite  -> 991
  72     NodeFrameCalc   -> 992
  73
  74 --  Cooccurrences -> 9
  75 --
  76 --  Specclusion  -> 11
  77 --  Genclusion   -> 18
  78 --  Cvalue       -> 12
  79 --
  80 --  TfidfCorpus  -> 13
  81 --  TfidfGlobal  -> 14
  82 --
  83 --  TirankLocal  -> 16
  84 --  TirankGlobal -> 17
  85
  86 --  Node management
  87 --  NodeFavorites    -> 15
  88
  89 hasNodeType :: forall a. Node a -> NodeType -> Bool
  90 hasNodeType n nt = (view node_typename n) == (nodeTypeId nt)
  91
  92 isInNodeTypes :: forall a. Node a -> [NodeType] -> Bool
  93 isInNodeTypes n ts = elem (view node_typename n) (map nodeTypeId ts)
  94
  95 -- | Nodes are typed in the database according to a specific ID
  96 --
  97 nodeTypeInv :: [(NodeTypeId, NodeType)]
  98 nodeTypeInv = map swap nodeTypes
  99
 100 nodeTypes :: [(NodeType, NodeTypeId)]
 101 nodeTypes = [ (n, nodeTypeId n) | n <- allNodeTypes ]
 102
 103 fromNodeTypeId :: NodeTypeId -> NodeType
 104 fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
 105                                (lookup tId nodeTypeInv)
 106