[ngrams] implement ngrams term_id to further simplify the patches json
[gargantext.git] / src / Gargantext / Database / Action / Node.hs
index d75cec6646aadaa33786e7cd4b3e6ef8c975a1bd..92e1d93c399d586fcd41401b57d5f9e725a11c7e 100644 (file)
@@ -57,6 +57,9 @@ mkNodeWithParent NodeFrameWrite i u n =
 mkNodeWithParent NodeFrameCalc i u n =
   mkNodeWithParent_ConfigureHyperdata NodeFrameCalc i u n
 
+mkNodeWithParent NodeFrameVisio i u n =
+  mkNodeWithParent_ConfigureHyperdata NodeFrameVisio i u n
+
 mkNodeWithParent NodeFrameNotebook i u n =
   mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook i u n
 
@@ -79,8 +82,13 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameWrite (Just i) uId name =
 mkNodeWithParent_ConfigureHyperdata NodeFrameCalc (Just i) uId name =
   mkNodeWithParent_ConfigureHyperdata' NodeFrameCalc (Just i) uId name
 
+mkNodeWithParent_ConfigureHyperdata NodeFrameVisio (Just i) uId name =
+  mkNodeWithParent_ConfigureHyperdata' NodeFrameVisio (Just i) uId name
+
 mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook (Just i) uId name =
-  insertNode NodeFrameNotebook  (Just "Notebook") (Just $ DefaultFrameCode $ HyperdataFrame "Notebook" name) i uId
+  insertNode NodeFrameNotebook  (Just "Notebook")
+                                (Just $ DefaultFrameCode $ HyperdataFrame { _hf_base = "Codebook"
+                                                                          , _hf_frame_id = name }) i uId
 
 mkNodeWithParent_ConfigureHyperdata    _ _ _ _ = nodeError NotImplYet
 
@@ -96,6 +104,7 @@ mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
   maybeNodeId <- case nt of
      NodeFrameWrite -> insertNode NodeFrameWrite (Just name)   Nothing i uId
      NodeFrameCalc  -> insertNode NodeFrameCalc  (Just name)   Nothing i uId
+     NodeFrameVisio -> insertNode NodeFrameVisio (Just name)   Nothing i uId
      _              -> nodeError NeedsConfiguration
 
   case maybeNodeId of
@@ -105,6 +114,7 @@ mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
       u <- case nt of
             NodeFrameWrite -> pure $ _gc_frame_write_url cfg
             NodeFrameCalc  -> pure $ _gc_frame_calc_url  cfg
+            NodeFrameVisio -> pure $ _gc_frame_visio_url  cfg
             _              -> nodeError NeedsConfiguration
       let
         s = _gc_secretkey cfg