[FEAT] Iramuteq parser (WIP)

src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs

@@ -156,6 +156,7 @@ uploadFileViewWithLangsCpt = here.component "uploadFileViewWithLangs" cpt
                 [ formChoiceSafe { items: [ CSV
                                           , CSV_HAL
                                           , WOS
+                                          -- , Iramuteq
                                           ]
                                  , default: CSV
                                  , callback: setFileType'
@@ -503,7 +504,7 @@ fileTypeViewCpt = here.component "fileTypeView" cpt
           [ R2.select {className: "col-md-12 form-control"
                       , on: {change: onChange}
                       }
-                      (map renderOption [CSV, CSV_HAL, WOS])
+                      (map renderOption [CSV, CSV_HAL, WOS, Iramuteq])
           ]
           where
             onChange e l =

src/Gargantext/Components/Forest/Tree/Node/Action/Upload/Types.purs

@@ -13,7 +13,7 @@ import Web.File.Blob (Blob, size)
 import Web.File.FileReader.Aff (readAsArrayBuffer, readAsText)
 
 
-data FileType = CSV | CSV_HAL | WOS | PresseRIS | Arbitrary | JSON
+data FileType = CSV | CSV_HAL | WOS | PresseRIS | Arbitrary | JSON | Iramuteq
 
 derive instance Generic FileType _
 instance Eq FileType where eq = genericEq
@@ -26,6 +26,7 @@ instance Read FileType where
   read "PresseRIS" = Just PresseRIS
   read "WOS"       = Just WOS
   read "JSON"      = Just JSON
+  read "Iramuteq"  = Just Iramuteq
   read _           = Nothing
 
 data FileFormat = Plain | ZIP