Skip to content

P
purescript-gargantext
Commit 9b1861f8 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FEAT] Iramuteq parser (WIP)

parent 5cde58d3
Pipeline #3944 canceled with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 2 deletions
    src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs
    View file @ 9b1861f8
    ...@@ -156,6 +156,7 @@ uploadFileViewWithLangsCpt = here.component "uploadFileViewWithLangs" cpt ...@@ -156,6 +156,7 @@ uploadFileViewWithLangsCpt = here.component "uploadFileViewWithLangs" cpt
    [ formChoiceSafe { items: [ CSV [ formChoiceSafe { items: [ CSV
    , CSV_HAL , CSV_HAL
    , WOS , WOS
    -- , Iramuteq
    ] ]
    , default: CSV , default: CSV
    , callback: setFileType' , callback: setFileType'
    ...@@ -503,7 +504,7 @@ fileTypeViewCpt = here.component "fileTypeView" cpt ...@@ -503,7 +504,7 @@ fileTypeViewCpt = here.component "fileTypeView" cpt
    [ R2.select {className: "col-md-12 form-control" [ R2.select {className: "col-md-12 form-control"
    , on: {change: onChange} , on: {change: onChange}
    } }
    (map renderOption [CSV, CSV_HAL, WOS]) (map renderOption [CSV, CSV_HAL, WOS, Iramuteq])
    ] ]
    where where
    onChange e l = onChange e l =
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Upload/Types.purs
    View file @ 9b1861f8
    ...@@ -13,7 +13,7 @@ import Web.File.Blob (Blob, size) ...@@ -13,7 +13,7 @@ import Web.File.Blob (Blob, size)
    import Web.File.FileReader.Aff (readAsArrayBuffer, readAsText) 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 _ derive instance Generic FileType _
    instance Eq FileType where eq = genericEq instance Eq FileType where eq = genericEq
    ...@@ -26,6 +26,7 @@ instance Read FileType where ...@@ -26,6 +26,7 @@ instance Read FileType where
    read "PresseRIS" = Just PresseRIS read "PresseRIS" = Just PresseRIS
    read "WOS" = Just WOS read "WOS" = Just WOS
    read "JSON" = Just JSON read "JSON" = Just JSON
    read "Iramuteq" = Just Iramuteq
    read _ = Nothing read _ = Nothing
    data FileFormat = Plain | ZIP data FileFormat = Plain | ZIP
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment