Port gargantext-init to CLI

bin/gargantext-init/Main.hs → bin/gargantext-cli/CLI/Init.hs

 {-|
-Module      : Main.hs
-Description : Gargantext Import Corpus
+Module      : Init.hs
+Description : Gargantext Init Script
 Copyright   : (c) CNRS, 2017-Present
 License     : AGPL + CECILL v3
 Maintainer  : team@gargantext.org
 Stability   : experimental
 Portability : POSIX
 
-Import a corpus binary.
+Initialise the Gargantext dataset.
 
  -}
 
 {-# LANGUAGE Strict            #-}
 
-module Main where
+module CLI.Init where
 
 import Data.List.NonEmpty qualified as NE
 import Gargantext.API.Dev (withDevEnv, runCmdDev)
@@ -32,16 +32,12 @@ import Gargantext.Prelude
 import Gargantext.Prelude.Config (GargConfig(..), readConfig)
 import Gargantext.API.Admin.Types
 import Gargantext.Database.Prelude (DBCmd')
+import CLI.Types
+import Options.Applicative
 
 
-main :: IO ()
-main = do
-  params@[iniPath] <- getArgs
-
-  _ <- if length params /= 1
-      then panicTrace "USAGE: ./gargantext-init gargantext.ini"
-      else pure ()
-
+initCLI :: InitArgs -> IO ()
+initCLI (InitArgs iniPath) = do
   putStrLn ("Enter master user (gargantua) _password_ :" :: Text)
   password  <- getLine
 
@@ -77,4 +73,13 @@ main = do
     x <- runCmdDev env initMaster
     _ <- runCmdDev env mkRoots
     putStrLn (show x :: Text)
-    pure ()
+
+initCmd :: HasCallStack => Mod CommandFields CLI
+initCmd = command "init" (info (helper <*> fmap CLISub init_p) (progDesc "Initialise this Gargantext instance."))
+
+init_p :: Parser CLICmd
+init_p = fmap CCMD_init $ InitArgs
+  <$> ( strOption ( long "ini-path"
+                    <> metavar "FILEPATH"
+                    <> help "Location of the .ini path"
+                    ) )

bin/gargantext-cli/CLI/Types.hs

@@ -43,12 +43,17 @@ data ImportArgs = ImportArgs
   , imp_corpus_path :: !FilePath
   } deriving (Show, Eq)
 
+data InitArgs = InitArgs
+  { init_ini :: !FilePath
+  } deriving (Show, Eq)
+
 data CLICmd
   = CCMD_clean_csv_corpus
   | CCMD_filter_terms_and_cooc !CorpusFile !TermListFile !OutputFile
   | CCMD_obfuscate_db !ObfuscateDBArgs
   | CCMD_admin !AdminArgs
   | CCMD_import !ImportArgs
+  | CCMD_init !InitArgs
   deriving (Show, Eq)
 
 data CLI =

bin/gargantext-cli/Main.hs

@@ -25,6 +25,7 @@ import CLI.Types
 import Options.Applicative
 import CLI.Admin (adminCLI, adminCmd)
 import CLI.Import (importCLI, importCmd)
+import CLI.Init (initCLI, initCmd)
 
 runCLI :: CLI -> IO ()
 runCLI = \case
@@ -38,6 +39,8 @@ runCLI = \case
     -> adminCLI args
   CLISub (CCMD_import args)
     -> importCLI args
+  CLISub (CCMD_init args)
+    -> initCLI args
 
 main :: IO ()
 main = runCLI =<< execParser opts
@@ -52,5 +55,6 @@ allOptions = subparser (
                  filterTermsAndCoocCmd <>
                  obfuscateDBCmd <>
                  adminCmd <>
-                 importCmd
+                 importCmd <>
+                 initCmd
                  )

gargantext.cabal

@@ -702,6 +702,7 @@ executable gargantext-cli
       CLI.CleanCsvCorpus
       CLI.FilterTermsAndCooc
       CLI.Import
+      CLI.Init
       CLI.ObfuscateDB
       CLI.Types
       CLI.Utils
@@ -728,22 +729,6 @@ executable gargantext-cli
     , unordered-containers ^>= 0.2.16.0
     , vector ^>= 0.12.3.0
 
-executable gargantext-init
-  import:
-      defaults
-    , optimized
-  main-is: Main.hs
-  other-modules:
-      Paths_gargantext
-  hs-source-dirs:
-      bin/gargantext-init
-  build-depends:
-      cron ^>= 0.7.0
-    , extra ^>= 1.7.9
-    , gargantext
-    , gargantext-prelude
-    , text ^>= 1.2.4.1
-
 executable gargantext-invitations
   import:
       defaults