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     NodeListModel -> 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
  88 hasNodeType :: forall a. Node a -> NodeType -> Bool
  89 hasNodeType n nt = (view node_typename n) == (nodeTypeId nt)
  90
  91 --
  92 -- | Nodes are typed in the database according to a specific ID
  93 --
  94 nodeTypeInv :: [(NodeTypeId, NodeType)]
  95 nodeTypeInv = map swap nodeTypes
  96
  97 nodeTypes :: [(NodeType, NodeTypeId)]
  98 nodeTypes = [ (n, nodeTypeId n) | n <- allNodeTypes ]
  99
 100 fromNodeTypeId :: NodeTypeId -> NodeType
 101 fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
 102                                (lookup tId nodeTypeInv)
 103