Skip to content

P
purescript-gargantext
Commit 5686b05c authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[ps 0.15] this monstrocity is alive

parent bc02d207
Expand all Show whitespace changes
Inline Side-by-side
Showing with 3095 additions and 1101 deletions
.psc-package/local/.set/packages.json
View file @ 5686b05c
This diff is collapsed.
dist/index.html
View file @ 5686b05c
<!doctype>
<!doctype html>
<html>
<head>
<meta charset="utf-8"/>
......
index.html
View file @ 5686b05c
<!doctype>
<!doctype html>
<html>
<head>
<meta charset="utf-8"/>
......
nix/easy-ps.nix
View file @ 5686b05c
......@@ -3,11 +3,10 @@
import
(
pkgs.fetchFromGitHub {
#owner = "justinwoo";
owner = "cgenie";
owner = "justinwoo";
repo = "easy-purescript-nix";
rev = "0d34a62a0bc531baa5350dc305fe56317f706be2";
sha256 = "0brdkkp60l3ggirab0zvhd7q11vk906gaxml7kmbg6gy029j7l5v";
rev = "master";
sha256 = "03g9xq451dmrkq8kiz989wnl8k0lmj60ajflz44bhp7cm08hf3bw";
}
) {
inherit pkgs;
......
nix/psc-package-nix.nix
View file @ 5686b05c
......@@ -3,6 +3,6 @@
pkgs.fetchFromGitHub {
owner = "justinwoo";
repo = "psc-package-nix";
rev = "0f1f001e2ea17ad461871a1873050f6aef5f1284";
sha256 = "0gbwcvw8rvxhlg9p6avd0812y263jzim1sra5frbdi0s6q0ngsgi";
rev = "e00fdaf2a2628b6b056db12ff4a3069aa04cb536";
sha256 = "0p2cblmpma7s058r5nfwzpvdsi98qhh5isvc47052wjbmfinh8db";
}
packages.dhall
View file @ 5686b05c
This diff is collapsed.
psc-package.json
View file @ 5686b05c
......@@ -19,7 +19,6 @@
"globals",
"integers",
"js-timers",
"markdown-smolder",
"math",
"maybe",
"milkis",
......@@ -38,7 +37,6 @@
"simple-json",
"simple-json-generics",
"simplecrypto",
"smolder",
"spec-discovery",
"spec-quickcheck",
"string-parsers",
......
spago.dhall
View file @ 5686b05c
......@@ -15,6 +15,7 @@ to generate this file without the comments in this block.
[ "aff"
, "aff-promise"
, "affjax"
, "affjax-web"
, "argonaut"
, "argonaut-codecs"
, "argonaut-core"
......@@ -41,14 +42,14 @@ to generate this file without the comments in this block.
, "form-urlencoded"
, "formula"
, "functions"
, "globals"
, "graphql-client"
, "http-methods"
, "integers"
, "js-timers"
, "lists"
, "markdown"
, "markdown-smolder"
-- , "markdown"
, "markdown-it"
--, "markdown-smolder"
, "maybe"
, "media-types"
, "milkis"
......@@ -74,7 +75,7 @@ to generate this file without the comments in this block.
, "simple-json"
, "simple-json-generics"
, "simplecrypto"
, "smolder"
-- , "smolder"
, "strings"
, "strings-extra"
, "stringutils"
......
src/Gargantext/Components/Bootstrap/Floaty/BaseModal.js
View file @ 5686b05c
'use strict';
exports._show = show;
exports._hide = hide;
/**
* @function show
* @param {Window} window
* @param {string} querySelector
* @unpure {Object} window.$
*/
function show(window, querySelector) {
export function _show(window, querySelector) {
window.$(querySelector).modal('show');
}
/**
......@@ -17,7 +15,7 @@ function show(window, querySelector) {
* @param {string} querySelector
* @unpure {Object} window.$
*/
function hide(window, querySelector) {
export function _hide(window, querySelector) {
window.$(querySelector).modal('hide');
// @XXX Bootstrap not removing some modal elements on "hide" method
// @https://stackoverflow.com/questions/50168312/bootstrap-4-close-modal-backdrop-doesnt-disappear
......
src/Gargantext/Components/Bootstrap/Floaty/Tooltip.js
View file @ 5686b05c
'use strict';
const reactTooltip = require('react-tooltip');
import Tooltip from 'react-tooltip';
console.log('Tooltip', Tooltip);
if (typeof window !== 'undefined') {
window.ReactTooltip = reactTooltip;
window.ReactTooltip = Tooltip;
}
exports.reactTooltipCpt = reactTooltip;
export { Tooltip as reactTooltipCpt };
src/Gargantext/Components/Bootstrap/Floaty/Tooltip.purs
View file @ 5686b05c
......@@ -7,7 +7,6 @@ module Gargantext.Components.Bootstrap.Tooltip
import Gargantext.Prelude
import ConvertableOptions as CO
import Data.Symbol (SProxy(..))
import Data.UUID as UUID
import Gargantext.Components.Bootstrap.Types (TooltipEffect(..), TooltipPosition(..), Variant(..))
import Gargantext.Utils.Reactix as R2
......@@ -15,6 +14,7 @@ import Reactix as R
import Reactix.DOM.HTML as H
import Record as Record
import Record.Extra as RX
import Type.Proxy (Proxy(..))
foreign import reactTooltipCpt :: R.Component Props
......@@ -61,20 +61,20 @@ tooltip props = R.rawCreateElement reactTooltipCpt props''
props' = CO.defaults options props
props'' = props'
# Record.set
(SProxy :: SProxy "effect")
(Proxy :: Proxy "effect")
(show props'.effect)
>>> Record.set
(SProxy :: SProxy "variant")
(Proxy :: Proxy "variant")
(show props'.variant)
>>> Record.rename
(SProxy :: SProxy "variant")
(SProxy :: SProxy "type")
(Proxy :: Proxy "variant")
(Proxy :: Proxy "type")
>>> Record.set
(SProxy :: SProxy "position")
(Proxy :: Proxy "position")
(show props'.position)
>>> Record.rename
(SProxy :: SProxy "position")
(SProxy :: SProxy "place")
(Proxy :: Proxy "position")
(Proxy :: Proxy "place")
-------------------------------------------------------------
......
src/Gargantext/Components/Category.purs
View file @ 5686b05c
......@@ -139,7 +139,8 @@ carousselCpt = here.component "caroussel" cpt
onClick c = \_-> do
setLocalCategories $ Map.insert r._id c
launchAff_ $ do
putCategories session nodeId $ CategoryQuery {nodeIds: [r._id], category: c}
_ <- putCategories session nodeId $ CategoryQuery {nodeIds: [r._id], category: c}
pure unit
icon :: Category -> Boolean -> String
icon cat b = btn b $ "fa fa-" <> (color $ size b $ icon' cat b)
......
src/Gargantext/Components/Charts/Options/Color.purs
View file @ 5686b05c
......@@ -40,7 +40,7 @@ magenta :: Color
magenta = stringColor "magenta"
violet :: Color
violet = cssColor CSS.violet
violet = stringColor "violet"
black :: Color
black = stringColor "black"
......
src/Gargantext/Components/Charts/Options/ECharts.js
View file @ 5686b05c
"use strict";
var ReactEcharts = require("echarts-for-react");
import * as ReactEcharts from "echarts-for-react";
exports.eChartsClass = ReactEcharts.default;
let eChartsClass = ReactEcharts.default;
export { eChartsClass };
/**
* @XXX "echarts-for-react" unsuitable to proper PureScript implementation
......@@ -11,7 +12,7 @@ exports.eChartsClass = ReactEcharts.default;
* @param {function} fn
* @returns
*/
exports.listenerFn1 = function(fn) {
export function listenerFn1(fn) {
return function() {
var args = Array.prototype.slice.call(arguments);
fn(args[0])()
......@@ -24,7 +25,7 @@ exports.listenerFn1 = function(fn) {
* @param {object} opts
* @returns
*/
exports.dispatchAction = function(eChartsInstance) {
export function dispatchAction(eChartsInstance) {
return function(opts) {
return function() {
eChartsInstance.dispatchAction(opts);
......
src/Gargantext/Components/Charts/Options/ECharts.purs
View file @ 5686b05c
......@@ -54,7 +54,7 @@ chartWith options =
refListener (Options { onInit }) = case onInit of
Nothing -> pure unit
Just fn -> listenerFn1 (_ # fn # execOnInit)
Just fn -> listenerFn1 (execOnInit fn)
execOnInit fn = toMaybe >>> case _ of
Nothing -> pure unit
......
src/Gargantext/Components/Charts/Options/Series.purs
View file @ 5686b05c
......@@ -4,7 +4,6 @@ import Data.Array (foldl)
import Data.Generic.Rep (class Generic)
import Data.Maybe (Maybe(..), maybe)
import Data.Newtype (class Newtype)
import Data.Symbol (SProxy(..))
import Gargantext.Components.Charts.Options.Data (DataD1, DataD2)
import Gargantext.Components.Charts.Options.Font (ItemStyle, Tooltip)
import Gargantext.Components.Charts.Options.Legend (SelectedMode)
......@@ -13,6 +12,7 @@ import Prelude (class Eq, class Show, bind, map, pure, show, ($), (+), (<<<), (<
import Record as Record
import Record.Unsafe (unsafeSet)
import Simple.JSON as JSON
import Type.Proxy (Proxy(..))
import Unsafe.Coerce (unsafeCoerce)
......@@ -213,8 +213,8 @@ treeLeaf :: String -> Int -> TreeNode
treeLeaf n v = TreeNode { name : n, value : v, children : []}
nameP = SProxy :: SProxy "name"
labelP = SProxy :: SProxy "label"
nameP = Proxy :: Proxy "name"
labelP = Proxy :: Proxy "label"
-- | TODO
......
src/Gargantext/Components/CodeEditor.purs
View file @ 5686b05c
......@@ -11,12 +11,13 @@ import Data.String.Utils (endsWith)
import DOM.Simple.Types (Element)
import Effect (Effect)
import FFI.Simple ((.=))
import MarkdownIt (renderString)
import Reactix as R
import Reactix.DOM.HTML as H
import Text.Markdown.SlamDown.Parser (parseMd)
import Text.Markdown.SlamDown.Smolder as MD
import Text.Markdown.SlamDown.Syntax (SlamDownP)
import Text.Smolder.Renderer.String as Smolder
-- import Text.Markdown.SlamDown.Parser (parseMd)
-- import Text.Markdown.SlamDown.Smolder as MD
-- import Text.Markdown.SlamDown.Syntax (SlamDownP)
-- import Text.Smolder.Renderer.String as Smolder
import Toestand as T
import Gargantext.Prelude
......@@ -58,16 +59,18 @@ codeNlFix :: CodeType -> Code -> Code
codeNlFix _ "" = " "
codeNlFix _ c = if endsWith "\n" c then (c <> " ") else c
render :: CodeType -> Code -> Either Error Html
render Haskell code = Right $ renderHaskell $ codeNlFix Haskell code
render Python code = Right $ renderPython $ codeNlFix Python code
render JSON code = result
render :: CodeType -> Code -> Effect (Either Error Html)
render Haskell code = pure $ Right $ renderHaskell $ codeNlFix Haskell code
render Python code = pure $ Right $ renderPython $ codeNlFix Python code
render JSON code = pure result
where
parsedE = jsonParser code
result = case parsedE of
Left err -> Left err
Right parsed -> Right $ R2.stringify parsed 2
render Markdown code = Right $ renderMd $ codeNlFix Markdown code
render Markdown code = do
r <- renderMd $ codeNlFix Markdown code
pure $ Right r
previewPostProcess :: CodeType -> Element -> Effect Unit
previewPostProcess Haskell htmlEl = do
......@@ -83,13 +86,14 @@ previewPostProcess Markdown _ = pure unit
-- TODO Replace with markdown-it?
-- https://pursuit.purescript.org/packages/purescript-markdown-it
renderMd' :: forall e. MD.ToMarkupOptions e -> String -> String
renderMd' options input =
either identity (MD.toMarkup' options >>> Smolder.render)
(parseMd input :: Either String (SlamDownP String))
-- renderMd' :: forall e. MD.ToMarkupOptions e -> String -> String
-- renderMd' options input =
-- either identity (MD.toMarkup' options >>> Smolder.render)
-- (parseMd input :: Either String (SlamDownP String))
renderMd :: String -> String
renderMd = renderMd' MD.defaultToMarkupOptions
renderMd :: String -> Effect String
renderMd = renderString
--renderMd = renderMd' MD.defaultToMarkupOptions
renderHaskell :: String -> String
renderHaskell s = s
......@@ -189,7 +193,8 @@ renderHtml code codeType htmlElRef error =
case (toMaybe $ R.readRef htmlElRef) of
Nothing -> pure unit
Just htmlEl -> do
case render codeType code of
r <- render codeType code
case r of
Left err -> do
T.write_ (Just err) error
Right rendered -> do
......
src/Gargantext/Components/DocsTable.purs
View file @ 5686b05c
......@@ -17,7 +17,6 @@ import Data.Ord.Down (Down(..))
import Data.Set (Set)
import Data.Set as Set
import Data.String as Str
import Data.Symbol (SProxy(..))
import Data.Tuple (Tuple(..))
import Data.Tuple.Nested ((/\))
import Effect (Effect)
......@@ -56,6 +55,7 @@ import Reactix.DOM.HTML as H
import Record.Extra as RX
import Simple.JSON as JSON
import Toestand as T
import Type.Proxy (Proxy(..))
here :: R2.Here
here = R2.here "Gargantext.Components.DocsTable"
......@@ -100,8 +100,8 @@ type PageLayoutProps =
| CommonProps
)
_documentIdsDeleted = prop (SProxy :: SProxy "documentIdsDeleted")
_localCategories = prop (SProxy :: SProxy "localCategories")
_documentIdsDeleted = prop (Proxy :: Proxy "documentIdsDeleted")
_localCategories = prop (Proxy :: Proxy "localCategories")
docViewLayout :: Record LayoutProps -> R.Element
docViewLayout props = R.createElement docViewLayoutCpt props []
......@@ -270,7 +270,7 @@ scanDocumentCreationProgress boxes session nodeId currentTask cbk = do
, GT.IsKilled
, GT.IsFailure
]
hasEndingStatus s = any (_ # s # eq) endingStatusList
hasEndingStatus s = any (eq s) endingStatusList
if (hasEndingStatus status)
then
......
src/Gargantext/Components/FacetsTable.purs
View file @ 5686b05c
......@@ -147,7 +147,9 @@ docViewCpt = here.component "docView" cpt
performDeletions :: Session -> Int -> T.Box Deletions -> Deletions -> Effect Unit
performDeletions session nodeId deletions deletions' = do
launchAff_ $ deleteDocuments session nodeId (DeleteDocumentQuery q)
launchAff_ $ do
_ <- deleteDocuments session nodeId (DeleteDocumentQuery q)
pure unit
T.modify_ del deletions
where
q = { documents: Set.toUnfoldable deletions'.pending }
......@@ -155,7 +157,9 @@ performDeletions session nodeId deletions deletions' = do
markCategory :: Session -> NodeID -> Category -> Array NodeID -> Effect Unit
markCategory session nodeId category nids =
void $ launchAff_ $ putCategories session nodeId (CategoryQuery q)
void $ launchAff_ $ do
_ <- putCategories session nodeId (CategoryQuery q)
pure unit
where -- TODO add array of delete rows here
q = {nodeIds: nids, category: favCategory category}
......
src/Gargantext/Components/Forest/Tree/Node.js
View file @ 5686b05c
exports.nodeUserRegexp = /(@{1}.*).gargantext.org$/;
export const nodeUserRegexp = /(@{1}.*).gargantext.org$/;
src/Gargantext/Components/Forest/Tree/Node.purs
View file @ 5686b05c
......@@ -9,7 +9,6 @@ import Data.Array.NonEmpty as NArray
import Data.Foldable (intercalate)
import Data.Maybe (Maybe(..), maybe)
import Data.String.Regex as Regex
import Data.Symbol (SProxy(..))
import Data.Tuple.Nested ((/\))
import Effect (Effect)
import Effect.Aff (Aff, launchAff)
......@@ -44,6 +43,7 @@ import Reactix as R
import Reactix.DOM.HTML as H
import Record as Record
import Toestand as T
import Type.Proxy (Proxy(..))
-- (?) never been able to properly declare PureScript Regex...
foreign import nodeUserRegexp :: Regex.Regex
......@@ -544,7 +544,7 @@ nodeActionsCpt :: R.Component NodeActionsProps
nodeActionsCpt = here.component "nodeActions" cpt where
cpt props _ = pure (child props.nodeType)
where
nodeActionsP = SProxy :: SProxy "nodeType"
nodeActionsP = Proxy :: Proxy "nodeType"
childProps = Record.delete nodeActionsP props
......
src/Gargantext/Components/GraphExplorer/Sidebar.purs
View file @ 5686b05c
......@@ -5,11 +5,12 @@ module Gargantext.Components.GraphExplorer.Sidebar
import Gargantext.Prelude
import Control.Parallel (parTraverse)
import Data.Array (last, mapWithIndex)
import Data.Array (last)
import Data.Array as A
import Data.Either (Either(..))
import Data.Foldable (intercalate)
import Data.Foldable as F
import Data.FunctorWithIndex (mapWithIndex)
import Data.Int (fromString)
import Data.Map as Map
import Data.Maybe (Maybe(..), fromJust)
......
src/Gargantext/Components/GraphExplorer/Toolbar/SlideButton.purs
View file @ 5686b05c
......@@ -5,7 +5,8 @@ module Gargantext.Components.GraphExplorer.Toolbar.SlideButton
, mouseSelectorSizeButton
) where
import Global (readFloat)
import Data.Maybe (Maybe(..))
import Data.Number as DN
import Prelude
import Effect (Effect)
import Reactix as R
......@@ -29,7 +30,6 @@ type Props =
sizeButton :: Record Props -> R.Element
sizeButton props = R.createElement sizeButtonCpt props []
sizeButtonCpt :: R.Component Props
sizeButtonCpt = here.component "sizeButton" cpt where
cpt { state, caption, min, max, onChange } _ = do
......@@ -67,7 +67,10 @@ labelSizeButton sigmaRef state =
, max: 30.0
, onChange: \e -> do
let sigma = R.readRef sigmaRef
let newValue = readFloat $ R.unsafeEventValue e
let newValue' = DN.fromString $ R.unsafeEventValue e
case newValue' of
Nothing -> pure unit
Just newValue ->
Sigmax.dependOnSigma sigma "[labelSizeButton] sigma: Nothing" $ \s -> do
Sigma.setSettings s {
defaultLabelSize: newValue
......@@ -87,7 +90,10 @@ mouseSelectorSizeButton sigmaRef state =
, max: 50.0
, onChange: \e -> do
let sigma = R.readRef sigmaRef
let newValue = readFloat $ R.unsafeEventValue e
let newValue' = DN.fromString $ R.unsafeEventValue e
case newValue' of
Nothing -> pure unit
Just newValue ->
Sigmax.dependOnSigma sigma "[mouseSelectorSizeButton] sigma: Nothing" $ \s -> do
Sigma.setSettings s {
mouseSelectorSize: newValue
......
src/Gargantext/Components/GraphExplorer/Types.purs
View file @ 5686b05c
......@@ -9,10 +9,10 @@ import Data.Maybe (Maybe(..), fromJust)
import Data.Newtype (class Newtype)
import Data.Ord.Generic (genericCompare)
import Data.Show.Generic (genericShow)
import Data.Symbol (SProxy(..))
import Partial.Unsafe (unsafePartial)
import Record as Record
import Simple.JSON as JSON
import Type.Proxy (Proxy(..))
type GraphId = Int
......@@ -27,18 +27,18 @@ newtype Node = Node {
, y :: Number
}
x_coordP = SProxy :: SProxy "x_coord"
xP = SProxy :: SProxy "x"
y_coordP = SProxy :: SProxy "y_coord"
yP = SProxy :: SProxy "y"
clustDefaultP = SProxy :: SProxy "clustDefault"
clust_defaultP = SProxy :: SProxy "clust_default"
cameraP = SProxy :: SProxy "camera"
mCameraP = SProxy :: SProxy "mCamera"
idP = SProxy :: SProxy "id"
id_P = SProxy :: SProxy "id_"
typeP = SProxy :: SProxy "type"
type_P = SProxy :: SProxy "type_"
x_coordP = Proxy :: Proxy "x_coord"
xP = Proxy :: Proxy "x"
y_coordP = Proxy :: Proxy "y_coord"
yP = Proxy :: Proxy "y"
clustDefaultP = Proxy :: Proxy "clustDefault"
clust_defaultP = Proxy :: Proxy "clust_default"
cameraP = Proxy :: Proxy "camera"
mCameraP = Proxy :: Proxy "mCamera"
idP = Proxy :: Proxy "id"
id_P = Proxy :: Proxy "id_"
typeP = Proxy :: Proxy "type"
type_P = Proxy :: Proxy "type_"
derive instance Generic Node _
derive instance Newtype Node _
......
src/Gargantext/Components/GraphQL/AffjaxSimpleJSONClient.purs
View file @ 5686b05c
......@@ -4,7 +4,7 @@ module Gargantext.Components.GraphQL.AffjaxSimpleJSONClient
import Prelude
import Affjax (Error(..), Response, URL, defaultRequest, printError, request)
import Affjax.Web (Error(..), Response, URL, defaultRequest, printError, request)
import Affjax.RequestBody as RequestBody
import Affjax.RequestHeader (RequestHeader(..))
import Affjax.ResponseFormat as ResponseFormat
......
src/Gargantext/Components/Login/Form.purs
View file @ 5686b05c
module Gargantext.Components.Login.Form where
import Prelude (Unit, bind, discard, not, notEq, pure, show, ($), (&&), (*>), (<>))
import Prelude (Unit, bind, discard, not, notEq, pure, show, unit, ($), (&&), (*>), (<>))
import Data.Either (Either(..))
import DOM.Simple.Event as DE
import Effect (Effect)
......@@ -107,13 +107,14 @@ submitForm { backend, sessions, visible } cell e = do
state <- T.read cell
launchAff_ $ do
res <- postAuthRequest backend (req state)
case res of
_ <- case res of
Left message -> liftEffect $ T.write (state { error = message }) cell
Right sess ->
liftEffect $
Sessions.change (Sessions.Login sess) sessions
*> T.write false visible
*> T.write (state { error = "" }) cell
pure unit
where
req { username, password } = AuthRequest { username, password }
......
src/Gargantext/Components/Nodes/Annuaire.purs
View file @ 5686b05c
......@@ -10,7 +10,6 @@ import Data.Generic.Rep (class Generic)
import Data.Maybe (Maybe(..), maybe, fromMaybe)
import Data.Newtype (class Newtype)
import Data.Sequence as Seq
import Data.Symbol (SProxy(..))
import Effect.Aff (launchAff_)
import Gargantext.Components.NgramsTable.Loader (clearCache)
import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types as CT
......@@ -30,6 +29,7 @@ import Reactix.DOM.HTML as H
import Record as Record
import Simple.JSON as JSON
import Toestand as T
import Type.Proxy (Proxy(..))
here :: R2.Here
here = R2.here "Gargantext.Components.Nodes.Annuaire"
......@@ -263,10 +263,10 @@ instance JSON.ReadForeign AnnuaireInfo where
inst <- JSON.readImpl f
pure $ AnnuaireInfo $ Record.rename user_idP userIdP $ Record.rename parent_idP parentIdP inst
where
user_idP = SProxy :: SProxy "user_id"
userIdP = SProxy :: SProxy "userId"
parent_idP = SProxy :: SProxy "parent_id"
parentIdP = SProxy :: SProxy "parentId"
user_idP = Proxy :: Proxy "user_id"
userIdP = Proxy :: Proxy "userId"
parent_idP = Proxy :: Proxy "parent_id"
parentIdP = Proxy :: Proxy "parentId"
--newtype AnnuaireTable = AnnuaireTable { annuaireTable :: Array (Maybe Contact)}
......@@ -292,4 +292,3 @@ loadPage session {nodeId, params: { offset, limit }} =
getAnnuaireInfo :: Session -> Int -> AffRESTError AnnuaireInfo
getAnnuaireInfo session id = get session (NodeAPI Node (Just id) "")
src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Types.purs
View file @ 5686b05c
......@@ -7,9 +7,9 @@ import Data.Lens (Lens', lens)
import Data.Maybe (Maybe(..), fromMaybe)
import Data.Newtype (class Newtype)
import Data.String as S
import Data.Symbol (SProxy(..))
import Record as Record
import Simple.JSON as JSON
import Type.Proxy (Proxy(..))
import Gargantext.Prelude (class Eq, bind, pure, ($))
......@@ -348,7 +348,7 @@ _phone = lens getter setter
getter (ContactTouch {phone}) = fromMaybe "" phone
setter (ContactTouch ct) val = ContactTouch $ ct { phone = Just val }
user_idP = SProxy :: SProxy "user_id"
userIdP = SProxy :: SProxy "userId"
parent_idP = SProxy :: SProxy "parent_id"
parentIdP = SProxy :: SProxy "parentId"
user_idP = Proxy :: Proxy "user_id"
userIdP = Proxy :: Proxy "userId"
parent_idP = Proxy :: Proxy "parent_id"
parentIdP = Proxy :: Proxy "parentId"
src/Gargantext/Components/Nodes/Corpus.purs
View file @ 5686b05c
......@@ -4,6 +4,7 @@ import Data.Array as A
import Data.Either (Either(..))
import Data.Eq.Generic (genericEq)
import Data.Generic.Rep (class Generic)
import Data.FunctorWithIndex (mapWithIndex)
import Data.List as List
import Data.Maybe (Maybe(..), fromMaybe)
import Data.Show.Generic (genericShow)
......@@ -156,7 +157,7 @@ fieldsCodeEditorCpt = here.component "fieldsCodeEditorCpt" cpt
List.modifyAt idx (\{ ftField: Field f } -> { idx, ftField: Field $ f { name = newName } }) fs) fields
recomputeIndices :: FTFieldsWithIndex -> FTFieldsWithIndex
recomputeIndices (FTFieldsWithIndex lst) = FTFieldsWithIndex $ List.mapWithIndex (\idx -> \{ ftField } -> { idx, ftField }) lst
recomputeIndices (FTFieldsWithIndex lst) = FTFieldsWithIndex $ mapWithIndex (\idx -> \{ ftField } -> { idx, ftField }) lst
hash :: FTFieldWithIndex -> Hash
hash { idx, ftField } = Crypto.hash $ "--idx--" <> (show idx) <> "--field--" <> (show ftField)
......
src/Gargantext/Components/Nodes/Corpus/Code.purs
View file @ 5686b05c
module Gargantext.Components.Nodes.Corpus.Code where
import Data.Either (Either(..))
import Data.FunctorWithIndex (mapWithIndex)
import Data.List as List
import Data.Maybe (Maybe(..))
import Effect (Effect)
......@@ -59,7 +60,7 @@ corpusCodeView props = R.createElement corpusCodeViewCpt props []
corpusCodeViewCpt :: R.Component ViewProps
corpusCodeViewCpt = here.component "corpusCodeView" cpt where
cpt {corpus: (NodePoly {hyperdata: Hyperdata {fields: FTFieldList fields}}), nodeId, reload, session, boxes} _ = do
let fieldsWithIndex = FTFieldsWithIndex $ List.mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
let fieldsWithIndex = FTFieldsWithIndex $ mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
fieldsS <- T.useBox fieldsWithIndex
fields' <- T.useLive T.unequal fieldsS
fieldsRef <- R.useRef fields
......
src/Gargantext/Components/Nodes/Corpus/Dashboard.purs
View file @ 5686b05c
......@@ -2,6 +2,7 @@ module Gargantext.Components.Nodes.Corpus.Dashboard where
import Data.Array as A
import Data.Either (Either(..))
import Data.FunctorWithIndex (mapWithIndex)
import Data.List as List
import Data.Maybe (Maybe(..), fromMaybe)
import Effect (Effect)
......@@ -129,7 +130,7 @@ dashboardLayoutLoadedCpt = here.component "dashboardLayoutLoaded" cpt
where
onClickAddChart _ = onChange { charts: A.cons P.CDocsHistogram charts
, fields }
chartsEls = A.mapWithIndex chartIdx charts
chartsEls = mapWithIndex chartIdx charts
chartIdx idx chart =
renderChart { boxes
, chart
......@@ -158,7 +159,7 @@ dashboardCodeEditorCpt :: R.Component CodeEditorProps
dashboardCodeEditorCpt = here.component "dashboardCodeEditor" cpt
where
cpt { fields: FTFieldList fields, nodeId, onChange, session } _ = do
let fieldsWithIndex = FTFieldsWithIndex $ List.mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
let fieldsWithIndex = FTFieldsWithIndex $ mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
fieldsS <- T.useBox fieldsWithIndex
fields' <- T.useLive T.unequal fieldsS
fieldsRef <- R.useRef fields'
......
src/Gargantext/Components/PhyloExplorer/API.purs
View file @ 5686b05c
......@@ -15,7 +15,6 @@ import Data.Generic.Rep (class Generic)
import Data.Maybe (Maybe(..))
import Data.Newtype (class Newtype)
import Data.Show.Generic (genericShow)
import Data.Symbol (SProxy(..))
import Gargantext.Components.PhyloExplorer.JSON (PhyloJSON)
import Gargantext.Components.PhyloExplorer.Types (PhyloSet, parseToPhyloSet)
import Gargantext.Config.REST (AffRESTError)
......@@ -28,6 +27,7 @@ import Gargantext.Types as GT
import Record as Record
import Simple.JSON as JSON
import Simple.JSON.Generics as JSONG
import Type.Proxy (Proxy(..))
get :: S.Session -> NodeID -> AffRESTError (PhyloSet)
......@@ -57,23 +57,23 @@ instance JSON.WriteForeign UpdateData where
where
rename
= Record.rename
(SProxy :: SProxy "proximity")
(SProxy :: SProxy "_sc_phyloProximity")
(Proxy :: Proxy "proximity")
(Proxy :: Proxy "_sc_phyloProximity")
>>> Record.rename
(SProxy :: SProxy "synchrony")
(SProxy :: SProxy "_sc_phyloSynchrony")
(Proxy :: Proxy "synchrony")
(Proxy :: Proxy "_sc_phyloSynchrony")
>>> Record.rename
(SProxy :: SProxy "quality")
(SProxy :: SProxy "_sc_phyloQuality")
(Proxy :: Proxy "quality")
(Proxy :: Proxy "_sc_phyloQuality")
>>> Record.rename
(SProxy :: SProxy "timeUnit")
(SProxy :: SProxy "_sc_timeUnit")
(Proxy :: Proxy "timeUnit")
(Proxy :: Proxy "_sc_timeUnit")
>>> Record.rename
(SProxy :: SProxy "clique")
(SProxy :: SProxy "_sc_clique")
(Proxy :: Proxy "clique")
(Proxy :: Proxy "_sc_clique")
>>> Record.rename
(SProxy :: SProxy "exportFilter")
(SProxy :: SProxy "_sc_exportFilter")
(Proxy :: Proxy "exportFilter")
(Proxy :: Proxy "_sc_exportFilter")
data TimeUnit
= Epoch TimeUnitCriteria
......@@ -96,68 +96,68 @@ instance JSON.WriteForeign TimeUnit where
where
parseEpoch
= Record.rename
(SProxy :: SProxy "period")
(SProxy :: SProxy "_epoch_period")
(Proxy :: Proxy "period")
(Proxy :: Proxy "_epoch_period")
>>> Record.rename
(SProxy :: SProxy "step")
(SProxy :: SProxy "_epoch_step")
(Proxy :: Proxy "step")
(Proxy :: Proxy "_epoch_step")
>>> Record.rename
(SProxy :: SProxy "matchingFrame")
(SProxy :: SProxy "_epoch_matchingFrame")
(Proxy :: Proxy "matchingFrame")
(Proxy :: Proxy "_epoch_matchingFrame")
>>> Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"Epoch"
parseYear
= Record.rename
(SProxy :: SProxy "period")
(SProxy :: SProxy "_year_period")
(Proxy :: Proxy "period")
(Proxy :: Proxy "_year_period")
>>> Record.rename
(SProxy :: SProxy "step")
(SProxy :: SProxy "_year_step")
(Proxy :: Proxy "step")
(Proxy :: Proxy "_year_step")
>>> Record.rename
(SProxy :: SProxy "matchingFrame")
(SProxy :: SProxy "_year_matchingFrame")
(Proxy :: Proxy "matchingFrame")
(Proxy :: Proxy "_year_matchingFrame")
>>> Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"Year"
parseMonth
= Record.rename
(SProxy :: SProxy "period")
(SProxy :: SProxy "_month_period")
(Proxy :: Proxy "period")
(Proxy :: Proxy "_month_period")
>>> Record.rename
(SProxy :: SProxy "step")
(SProxy :: SProxy "_month_step")
(Proxy :: Proxy "step")
(Proxy :: Proxy "_month_step")
>>> Record.rename
(SProxy :: SProxy "matchingFrame")
(SProxy :: SProxy "_month_matchingFrame")
(Proxy :: Proxy "matchingFrame")
(Proxy :: Proxy "_month_matchingFrame")
>>> Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"Month"
parseWeek
= Record.rename
(SProxy :: SProxy "period")
(SProxy :: SProxy "_week_period")
(Proxy :: Proxy "period")
(Proxy :: Proxy "_week_period")
>>> Record.rename
(SProxy :: SProxy "step")
(SProxy :: SProxy "_week_step")
(Proxy :: Proxy "step")
(Proxy :: Proxy "_week_step")
>>> Record.rename
(SProxy :: SProxy "matchingFrame")
(SProxy :: SProxy "_week_matchingFrame")
(Proxy :: Proxy "matchingFrame")
(Proxy :: Proxy "_week_matchingFrame")
>>> Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"Week"
parseDay
= Record.rename
(SProxy :: SProxy "period")
(SProxy :: SProxy "_day_period")
(Proxy :: Proxy "period")
(Proxy :: Proxy "_day_period")
>>> Record.rename
(SProxy :: SProxy "step")
(SProxy :: SProxy "_day_step")
(Proxy :: Proxy "step")
(Proxy :: Proxy "_day_step")
>>> Record.rename
(SProxy :: SProxy "matchingFrame")
(SProxy :: SProxy "_day_matchingFrame")
(Proxy :: Proxy "matchingFrame")
(Proxy :: Proxy "_day_matchingFrame")
>>> Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"Day"
......@@ -217,27 +217,27 @@ instance JSON.WriteForeign Clique where
where
parseFIS
= Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"Fis"
>>> Record.rename
(SProxy :: SProxy "support")
(SProxy :: SProxy "_fis_support")
(Proxy :: Proxy "support")
(Proxy :: Proxy "_fis_support")
>>> Record.rename
(SProxy :: SProxy "size")
(SProxy :: SProxy "_fis_size")
(Proxy :: Proxy "size")
(Proxy :: Proxy "_fis_size")
parseMaxClique
= Record.insert
(SProxy :: SProxy "tag")
(Proxy :: Proxy "tag")
"MaxClique"
>>> Record.rename
(SProxy :: SProxy "size")
(SProxy :: SProxy "_mcl_size")
(Proxy :: Proxy "size")
(Proxy :: Proxy "_mcl_size")
>>> Record.rename
(SProxy :: SProxy "threshold")
(SProxy :: SProxy "_mcl_threshold")
(Proxy :: Proxy "threshold")
(Proxy :: Proxy "_mcl_threshold")
>>> Record.rename
(SProxy :: SProxy "filter")
(SProxy :: SProxy "_mcl_filter")
(Proxy :: Proxy "filter")
(Proxy :: Proxy "_mcl_filter")
data ReflexiveClique
......
src/Gargantext/Components/PhyloExplorer/Resources.js
View file @ 5686b05c
......@@ -4,35 +4,35 @@
/// FIELDS
////////////////////////////////////////////////////////////////////////////////
var EXTRACTED_TERMS_EVENT = 'extracted_terms_event';
var EXTRACTED_COUNT_EVENT = 'extracted_count_event';
var SELECTED_TERM_EVENT = 'selected_term_event';
var SELECTED_BRANCH_EVENT = 'selected_branch_event';
var SELECTED_SOURCE_EVENT = 'selected_source_event';
var DISPLAY_VIEW_EVENT = 'display_view_event';
var ISO_LINE_DOM_QUERY = '.phylo-isoline';
var LEFT_COLUMN_DOM_QUERY = '.phylo-grid__blueprint__left';
var CENTER_COLUMN_DOM_QUERY = '.phylo-grid__blueprint__center';
var SCAPE_DOM_QUERY = '.phylo-grid__content__scape';
const EXTRACTED_TERMS_EVENT = 'extracted_terms_event';
const EXTRACTED_COUNT_EVENT = 'extracted_count_event';
const SELECTED_TERM_EVENT = 'selected_term_event';
const SELECTED_BRANCH_EVENT = 'selected_branch_event';
const SELECTED_SOURCE_EVENT = 'selected_source_event';
const DISPLAY_VIEW_EVENT = 'display_view_event';
const ISO_LINE_DOM_QUERY = '.phylo-isoline';
const LEFT_COLUMN_DOM_QUERY = '.phylo-grid__blueprint__left';
const CENTER_COLUMN_DOM_QUERY = '.phylo-grid__blueprint__center';
const SCAPE_DOM_QUERY = '.phylo-grid__content__scape';
// (?) Global thread dependencies:
// * d3 <Object> (main D3 proxy))
// * window <Window> (cf. below function signature for window uses)
// * document <HTMLDocument>
var memoTickText = {}; // <Object> of <Int> => <TickText>
let memoTickText = {}; // <Object> of <Int> => <TickText>
/// <TickText> ::
/// <Int> bId
/// <Float> limit
/// <String>text
var panel = undefined; // <Object> instanceof d3.selection
var svg = undefined; // <Object> instanceof d3.selection
var label = undefined; // <Object> instanceof d3.selection
var zoom = undefined; // <Function> see https://github.com/d3/d3-zoom#zoom
var xScale0 = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
var yScale0 = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
var subscribers = {}; // <Object> dictionary for pubsub pattern
let panel = undefined; // <Object> instanceof d3.selection
let svg = undefined; // <Object> instanceof d3.selection
let label = undefined; // <Object> instanceof d3.selection
let zoom = undefined; // <Function> see https://github.com/d3/d3-zoom#zoom
let xScale0 = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
let yScale0 = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
let subscribers = {}; // <Object> dictionary for pubsub pattern
////////////////////////////////////////////////////////////////////////////////
/// HELPERS
......@@ -2279,26 +2279,29 @@ function addEmergenceLabels(k, emergences, branchByGroup, fontScale, opacityScal
/// EXPORTS
////////////////////////////////////////////////////////////////////////////////
exports._extractedTermsEvent = EXTRACTED_TERMS_EVENT;
exports._extractedCountEvent = EXTRACTED_COUNT_EVENT;
exports._selectedTermEvent = SELECTED_TERM_EVENT;
exports._selectedBranchEvent = SELECTED_BRANCH_EVENT;
exports._selectedSourceEvent = SELECTED_SOURCE_EVENT;
exports._displayViewEvent = DISPLAY_VIEW_EVENT;
exports._drawPhylo = drawPhylo;
exports._drawWordCloud = drawWordCloud;
exports._showLabel = showLabel;
exports._termClick = termClick;
exports._resetView = resetView;
exports._showLabel = showLabel;
exports._showHeading = showHeading;
exports._showLanding = showLanding;
exports._exportViz = exportViz;
exports._doubleClick = doubleClick;
exports._highlightGroups = highlightGroups;
exports._initPath = initPath;
exports._publish = pubsub.publish;
exports._subscribe = pubsub.subscribe;
exports._unsubscribe = pubsub.unsubscribe;
export const _extractedTermsEvent = EXTRACTED_TERMS_EVENT;
export const _extractedCountEvent = EXTRACTED_COUNT_EVENT;
export const _selectedTermEvent = SELECTED_TERM_EVENT;
export const _selectedBranchEvent = SELECTED_BRANCH_EVENT;
export const _selectedSourceEvent = SELECTED_SOURCE_EVENT;
export const _displayViewEvent = DISPLAY_VIEW_EVENT;
let pubsubPublish = pubsub.publish;
let pubsubSubscribe = pubsub.subscribe;
let pubsubUnsubscribe = pubsub.unsubscribe;
export { drawPhylo as _drawPhylo,
drawWordCloud as _drawWordCloud,
showLabel as _showLabel,
termClick as _termClick,
resetView as _resetView,
showHeading as _showHeading,
showLanding as _showLanding,
exportViz as _exportViz,
doubleClick as _doubleClick,
highlightGroups as _highlightGroups,
initPath as _initPath,
pubsubPublish as _publish,
pubsubSubscribe as _subscribe,
pubsubUnsubscribe as _unsubscribe };
src/Gargantext/Components/PhyloExplorer/Sidebar/SelectionTab.purs
View file @ 5686b05c
......@@ -4,8 +4,9 @@ module Gargantext.Components.PhyloExplorer.SelectionTab
import Gargantext.Prelude
import Data.Array (length, mapWithIndex, null)
import Data.Array (length, null)
import Data.Foldable (intercalate)
import Data.FunctorWithIndex (mapWithIndex)
import Data.Int (ceil)
import Data.Maybe (Maybe(..), isJust)
import Data.Tuple.Nested ((/\))
......
src/Gargantext/Components/PhyloExplorer/Types.js
View file @ 5686b05c
......@@ -4,7 +4,7 @@
* @param {string} year
* @returns {Date}
*/
function yearToDate(year) {
export function yearToDate(year) {
var d = new Date();
d.setYear(parseInt(year));
......@@ -18,7 +18,7 @@ function yearToDate(year) {
* @param {string} str
* @returns {Date}
*/
function stringToDate(str) {
export function stringToDate(str) {
var arr = (str.replace('"','')).split('-');
var d = new Date();
......@@ -34,7 +34,7 @@ function stringToDate(str) {
* @param {string} str
* @returns {Date}
*/
function utcStringToDate(str) {
export function utcStringToDate(str) {
var arr = ((str.replace('"','')).replace(' UTC','')).split(/[\s-:]+/);
var d = new Date();
......@@ -45,7 +45,3 @@ function utcStringToDate(str) {
return d;
}
exports.yearToDate = yearToDate;
exports.stringToDate = stringToDate;
exports.utcStringToDate = utcStringToDate;
src/Gargantext/Components/PhyloExplorer/Types.purs
View file @ 5686b05c
......@@ -20,6 +20,7 @@ import Gargantext.Prelude
import Data.Array as Array
import Data.Date as Date
import Data.Generic.Rep (class Generic)
import Data.FunctorWithIndex (mapWithIndex)
import Data.Int as Int
import Data.Maybe (Maybe(..), maybe)
import Data.Newtype (class Newtype)
......@@ -379,7 +380,7 @@ parseSources
-- sorting purpose only
sortSources :: Array String -> Array Source
sortSources
= Array.mapWithIndex setSource
= mapWithIndex setSource
>>> Array.sortWith getLabel
where
......
src/Gargantext/Components/RangeSlider.purs
View file @ 5686b05c
......@@ -11,6 +11,7 @@ import Data.Eq.Generic (genericEq)
import Data.Int (fromNumber)
import Data.Maybe (Maybe(..), fromMaybe)
import Data.Number as DN
import Data.Number.Format as DNF
import Data.Nullable (Nullable, null)
import Data.Traversable (traverse_)
import DOM.Simple as DOM
......@@ -18,7 +19,6 @@ import DOM.Simple.Document (document)
import DOM.Simple.Event as Event
import DOM.Simple.EventListener as EL
import DOM.Simple (DOMRect)
import Global (toFixed)
import Effect (Effect)
import Reactix as R
import Reactix.DOM.HTML as H
......@@ -169,8 +169,9 @@ renderScaleSel ref props (Range.Closed {min, max}) =
style = {left: computeLeft, width: computeWidth}
percOffsetMin = Range.normalise props.bounds min
percOffsetMax = Range.normalise props.bounds max
computeLeft = (show $ 100.0 * percOffsetMin) <> "%"
computeWidth = (show $ 100.0 * (percOffsetMax - percOffsetMin)) <> "%"
computeLeft = formatter $ 100.0 * percOffsetMin
computeWidth = formatter $ 100.0 * (percOffsetMax - percOffsetMin)
formatter n = (DNF.toStringWith (DNF.fixed 0) n) <> "%"
renderKnob :: Knob -> R.Ref (Nullable DOM.Element) -> Range.NumberRange -> Bounds -> T.Box (Maybe Knob) -> Int -> R.Element
......@@ -178,12 +179,10 @@ renderKnob knob ref (Range.Closed value) bounds set precision =
H.div { ref, tabIndex, className, aria, on: { mouseDown: onMouseDown }, style } [
H.div { className: "range-slider__placeholder" }
[
H.text $ text $ toFixed precision val
H.text $ DNF.toStringWith (DNF.precision precision) val
]
]
where
text (Just num) = num
text Nothing = "error"
tabIndex = 0
className = "range-slider__knob"
aria = { label: labelPrefix knob <> "value: " <> show val }
......
src/Gargantext/Components/Router.purs
View file @ 5686b05c
......@@ -134,7 +134,7 @@ mainPageCpt = here.component "mainPage" cpt where
-> (Unit -> Effect Unit)
deleteTile tile listBox = const do
list <- T.read listBox
newList <- pure $ filter (_ # tile.id # findTile # not) list
newList <- pure $ filter (not $ findTile $ tile.id) list
T.write_ newList listBox
let hasHorizontalTiles = not $ eq 0 $ length tileAxisXList
......
src/Gargantext/Config/REST.purs
View file @ 5686b05c
module Gargantext.Config.REST where
import Affjax (Error(..), defaultRequest, request)
import Affjax.Web (Error(..), defaultRequest, request)
import Affjax as Affjax
import Affjax.RequestBody (formData, formURLEncoded, string)
import Affjax.RequestHeader as ARH
......
src/Gargantext/Core/NgramsTable/Types.purs
View file @ 5686b05c
......@@ -23,7 +23,6 @@ import Data.Show.Generic (genericShow)
import Data.Set (Set)
import Data.Set as Set
import Data.String.Regex (Regex, regex, replace) as R
import Data.Symbol (SProxy(..))
import Data.Tuple (Tuple(..))
import Effect (Effect)
import Effect.Aff (Aff)
......@@ -36,6 +35,7 @@ import Gargantext.Sessions (Session)
import Gargantext.Types as GT
import Simple.JSON as JSON
import Reactix as R
import Type.Proxy (Proxy(..))
type Endo a = a -> a
......@@ -276,28 +276,28 @@ instance JSON.WriteForeign NgramsElement where
JSON.writeImpl $ ne { children = Set.toUnfoldable ne.children :: Array _ }
_parent :: forall parent row. Lens' { parent :: parent | row } parent
_parent = prop (SProxy :: SProxy "parent")
_parent = prop (Proxy :: Proxy "parent")
_root :: forall root row. Lens' { root :: root | row } root
_root = prop (SProxy :: SProxy "root")
_root = prop (Proxy :: Proxy "root")
_ngrams :: forall row. Lens' { ngrams :: NgramsTerm | row } NgramsTerm
_ngrams = prop (SProxy :: SProxy "ngrams")
_ngrams = prop (Proxy :: Proxy "ngrams")
_children :: forall row. Lens' { children :: Set NgramsTerm | row } (Set NgramsTerm)
_children = prop (SProxy :: SProxy "children")
_children = prop (Proxy :: Proxy "children")
_occurrences :: forall row. Lens' { occurrences :: Int | row } Int
_occurrences = prop (SProxy :: SProxy "occurrences")
_occurrences = prop (Proxy :: Proxy "occurrences")
_list :: forall a row. Lens' { list :: a | row } a
_list = prop (SProxy :: SProxy "list")
_list = prop (Proxy :: Proxy "list")
_ngrams_repo_elements :: forall a row. Lens' { ngrams_repo_elements :: a | row } a
_ngrams_repo_elements = prop (SProxy :: SProxy "ngrams_repo_elements")
_ngrams_repo_elements = prop (Proxy :: Proxy "ngrams_repo_elements")
_ngrams_scores :: forall a row. Lens' { ngrams_scores :: a | row } a
_ngrams_scores = prop (SProxy :: SProxy "ngrams_scores")
_ngrams_scores = prop (Proxy :: Proxy "ngrams_scores")
_NgramsElement :: Iso' NgramsElement {
children :: Set NgramsTerm
......
src/Gargantext/Data/Louvain.js
View file @ 5686b05c
......@@ -6,7 +6,7 @@ community detection algorithm (http://arxiv.org/abs/0803.0476)
Based on https://bitbucket.org/taynaud/python-louvain/overview
*/
exports._jLouvain = (function(){
export const _jLouvain = (function(){
return function(){
//Constants
var __PASS_MAX = -1
......@@ -381,6 +381,6 @@ exports._jLouvain = (function(){
}
})();
exports._init = function(louvain, nodes, edges) {
export function _init(louvain, nodes, edges) {
return Object.entries(louvain.nodes(nodes).edges(edges)());
}
src/Gargantext/Hooks/FormValidation/Methods.purs
View file @ 5686b05c
......@@ -96,8 +96,8 @@ useFormValidation = do
result /\ resultBox <- R2.useBox' (V (Right mempty) :: VForm)
memoHasError <- R.useMemo1 result $ const $ hasError result
memoHasError' <- R.useMemo1 result $ const $ (_ # result # hasError')
memoHasError_ <- R.useMemo1 result $ const $ (_ # result # hasError_)
memoHasError' <- R.useMemo1 result $ const $ hasError' result
memoHasError_ <- R.useMemo1 result $ const $ hasError_ result
pure
{ tryCount
......
src/Gargantext/Hooks/FormValidation/Types.js
View file @ 5686b05c
......@@ -7,10 +7,10 @@
* @link https://gist.github.com/gregseth/5582254 [2]
* @type {RegExp}
*/
exports.emailPattern = /[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?/;
export const emailPattern = /[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?/;
/**
* Date Pattern
* @link https://www.regextester.com/96683
* @type {RegExp}
*/
exports.datePattern = /([12]\d{3}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|3[01]))/
export const datePattern = /([12]\d{3}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|3[01]))/;
src/Gargantext/Hooks/LinkHandler.purs
View file @ 5686b05c
......@@ -72,7 +72,7 @@ changeTileRoute tileAxisXList tileAxisYList tile newRoute = do
findTile id tile' = eq id $ get (Proxy :: Proxy "id") tile'
hasTile :: Array (Record Tile) -> UUID -> Maybe Int
hasTile list id = findIndex (_ # id # findTile) list
hasTile list id = findIndex (findTile id) list
updateTile :: Int -> AppRoute -> Array (Record Tile) -> Array (Record Tile)
updateTile index route list = modifyAtIndices
......
src/Gargantext/Hooks/Resize.js
View file @ 5686b05c
'use strict';
exports._add = add;
exports._remove = remove;
/**
* @function add
* @param {Window} window
......@@ -10,7 +8,7 @@ exports._remove = remove;
* @param {String} targetQuery
* @param {String} type
*/
function add(window, document, sourceQuery, targetQuery, type) {
export function _add(window, document, sourceQuery, targetQuery, type) {
var source = document.querySelector(sourceQuery);
var target = document.querySelector(targetQuery);
......@@ -49,7 +47,7 @@ function add(window, document, sourceQuery, targetQuery, type) {
* @param {Document} document
* @param {String} sourceQuery
*/
function remove(document, sourceQuery) {
export function _remove(document, sourceQuery) {
var source = document.querySelector(sourceQuery);
console.log(sourceQuery)
source.removeEventListener('mousedown');
......
src/Gargantext/Hooks/Scrollbar.js
View file @ 5686b05c
......@@ -28,21 +28,17 @@ try {
var wheelOpt = supportsPassive ? { passive: false } : false;
var wheelEvent = 'onwheel' in document.createElement('div') ? 'wheel' : 'mousewheel';
// call this to Disable
function disableScroll() {
export function disableScroll() {
// call this to Disable
window.addEventListener('DOMMouseScroll', preventDefault, false); // older FF
window.addEventListener(wheelEvent, preventDefault, wheelOpt); // modern desktop
window.addEventListener('touchmove', preventDefault, wheelOpt); // mobile
window.addEventListener('keydown', preventDefaultForScrollKeys, false);
}
// call this to Enable
function enableScroll() {
export function enableScroll() {
// call this to Enable
window.removeEventListener('DOMMouseScroll', preventDefault, false);
window.removeEventListener(wheelEvent, preventDefault, wheelOpt);
window.removeEventListener('touchmove', preventDefault, wheelOpt);
window.removeEventListener('keydown', preventDefaultForScrollKeys, false);
}
exports.disableScroll = disableScroll;
exports.enableScroll = enableScroll;
src/Gargantext/Hooks/Sigmax/Sigma.js
View file @ 5686b05c
'use strict';
const sigma = require('sigma/src/garg.js').sigma;
//import { sigma } from 'sigma/src/garg.js';
import sigma from 'sigma';
console.log('imported sigma', sigma);
if (typeof window !== 'undefined') {
window.sigma = sigma;
}
const CustomShapes = require('sigma/plugins/garg.js').init(sigma, window).customShapes;
require('sigma/src/utils/sigma.utils.js').init(sigma);
/*import('sigma/plugins/garg.js').then((module) => {
let CustomShapes = module.init(sigma, window).customShapes;
CustomShapes.init();
});
*/
//import('sigma/src/utils/sigma.utils.js').then((module) => { module.init(sigma) });
// Black circle around a node
/*
(function() {
var originalDef = sigma.canvas.nodes.def;
let originalDef = sigma.canvas.nodes.def;
sigma.canvas.nodes.def = (node, context, settings) => {
var prefix = settings('prefix') || '';
let prefix = settings('prefix') || '';
originalDef(node, context, settings);
......@@ -32,7 +40,9 @@ require('sigma/src/utils/sigma.utils.js').init(sigma);
context.stroke();
}
})()
*/
/*
sigma.canvas.nodes.selected = (node, context, settings) => {
// hack
// We need to temporarily set node.type to 'def'. This is for 2 reasons
......@@ -43,16 +53,18 @@ sigma.canvas.nodes.selected = (node, context, settings) => {
sigma.canvas.hovers.def(node, context, settings);
node.type = 'selected';
//console.log('hovers, settings:', settings);
};
};
*/
CustomShapes.init();
//CustomShapes.init();
let sigmaMouseSelector = (sigma, options) => {
/*
let sigmaMouseSelector = function(sigma, options) {
sigma.plugins = sigma.plugins || {};
sigma.plugins.mouseSelector = (s, renderer) => {
var _self = this;
var _offset = null;
let _self = this;
let _offset = null;
const _s = s;
const _renderer = renderer;
const _container = _renderer.container;
......@@ -169,6 +181,7 @@ let sigmaMouseSelector = (sigma, options) => {
}
sigmaMouseSelector(sigma);
*/
function _sigma(left, right, opts) {
try {
......@@ -178,14 +191,14 @@ function _sigma(left, right, opts) {
}
}
function addRenderer(left, right, sigma, renderer) {
function _addRenderer(left, right, sigma, renderer) {
try {
return right(sigma.addRenderer(renderer));
} catch(e) {
return left(e);
}
}
function bindMouseSelectorPlugin(left, right, sig) {
function _bindMouseSelectorPlugin(left, right, sig) {
try {
return right(sigma.plugins.mouseSelector(sig, sig.renderers[0]));
} catch(e) {
......@@ -193,9 +206,9 @@ function bindMouseSelectorPlugin(left, right, sig) {
return left(e);
}
}
function bind(sigma, event, handler) { sigma.bind(event, handler); }
function _bind(sigma, event, handler) { sigma.bind(event, handler); }
function takeScreenshot(sigma) {
function _takeScreenshot(sigma) {
let c = sigma.renderers[0].container;
let edges = c.getElementsByClassName('sigma-edges')[0];
let scene = c.getElementsByClassName('sigma-scene')[0];
......@@ -209,26 +222,26 @@ function takeScreenshot(sigma) {
return edges.toDataURL('image/png');
}
function getEdges(sigma) {
function _getEdges(sigma) {
return sigma.graph.edges();
}
function getNodes(sigma) {
function _getNodes(sigma) {
return sigma.graph.nodes();
}
function proxySetSettings(window, sigma, settings) {
function _proxySetSettings(window, sigma, settings) {
var id = sigma.id;
window.sigma.instances(id).settings(settings);
window.sigma.instances(id).refresh();
}
exports._sigma = _sigma;
exports._addRenderer = addRenderer;
exports._bindMouseSelectorPlugin = bindMouseSelectorPlugin;
exports._bind = bind;
exports._takeScreenshot = takeScreenshot;
exports._getEdges = getEdges;
exports._getNodes = getNodes;
exports._proxySetSettings = proxySetSettings;
export { _sigma,
_addRenderer,
_bindMouseSelectorPlugin,
_bind,
_takeScreenshot,
_getEdges,
_getNodes,
_proxySetSettings };
src/Gargantext/Hooks/Sigmax/Sigmajs.js
View file @ 5686b05c
'use strict';
exports.goToImpl = function(cam) {
export function goToImpl(cam) {
return function(props) {
return cam.goTo(props);
};
......
src/Gargantext/Hooks/StateRecord/Unboxed.purs
View file @ 5686b05c
......@@ -78,6 +78,6 @@ main stateBox = do
pure
{ state
, stateBox
, setStateKey : (_ # stateBox # setter)
, bindStateKey: (_ # stateBox # binder $ state)
, setStateKey : setter stateBox -- (_ # stateBox # setter)
, bindStateKey: binder stateBox state -- (_ # stateBox # binder $ state)
}
src/Gargantext/Hooks/Version.js
View file @ 5686b05c
'use strict';
const pkg = require('../../package.json');
import pkg from '../../package.json';
exports.version = pkg.version;
let version = pkg.version
export { version };
src/Gargantext/Text/BreakWords.js
View file @ 5686b05c
'use strict';
exports._wordRegex = /[a-z]+/gi;
export _wordRegex = /[a-z]+/gi;
src/Gargantext/Text/BreakWords.purs
View file @ 5686b05c
......@@ -45,12 +45,12 @@ preceding :: Breaking -> Int -> String -> Maybe String
preceding b origin word = p $ (lastIndex b) - (length word)
where p o
| o == origin = Nothing
| otherwise = slice origin o b.source
| otherwise = Just $ slice origin o b.source
finish :: Breaking -> Int -> Effect Boolean
finish b origin =
do let last = slice origin (-1) b.source
traverse_ (pushSpace b) last
finish b origin = do
let last = slice origin (-1) b.source :: String
pushSpace b last
pure false
type Breaking = { source :: String, wordRegex :: Regex, results :: Array BrokenWord }
......@@ -78,4 +78,3 @@ pushWord :: Breaking -> String -> Effect Unit
pushWord b = pushResult b <<< Word
foreign import _wordRegex :: Regex
src/Gargantext/Utils.purs
View file @ 5686b05c
......@@ -128,5 +128,5 @@ textEllipsisBreak :: Int -> String -> String
textEllipsisBreak len n =
if S.length n < len then n
else case (slice 0 len n) of
Nothing -> "???"
Just s -> s <> "…"
"" -> "???"
s -> s <> "…"
src/Gargantext/Utils/Argonaut.purs
View file @ 5686b05c
......@@ -8,7 +8,8 @@ import Data.Argonaut as Argonaut
import Data.Argonaut.Decode.Error (JsonDecodeError(..))
import Data.Either (Either(..))
import Data.Generic.Rep as GR
import Data.Symbol (class IsSymbol, SProxy(..), reflectSymbol)
import Data.Symbol (class IsSymbol, reflectSymbol)
import Type.Proxy (Proxy(..))
-- | Provide a generic sum JSON decoding for sum types deriving Generic
genericSumDecodeJson
......@@ -51,7 +52,7 @@ instance
genericSumDecodeJsonRep f = do
-- here we attempt to read the following json:
-- { "ConstructorName": argument }
let name = reflectSymbol (SProxy :: _ name)
let name = reflectSymbol (Proxy :: _ name)
obj <- Argonaut.decodeJson f
inner <- Argonaut.getField obj name
argument <- genericSumDecodeJsonRep inner
......@@ -81,7 +82,7 @@ instance
genericSumEncodeJsonRep (GR.Constructor inner) = do
-- here we attempt to write the following json:
-- { "ConstructorName": argument }
let name = reflectSymbol (SProxy :: _ name)
let name = reflectSymbol (Proxy :: _ name)
let argument = genericSumEncodeJsonRep inner
Argonaut.jsonSingletonObject name argument
......@@ -123,7 +124,7 @@ instance
then pure $ GR.Constructor GR.NoArguments
else Left $ Named s $ TypeMismatch $ "Enum did not match expected string " <> name
where
name = reflectSymbol (SProxy :: SProxy name)
name = reflectSymbol (Proxy :: Proxy name)
genericEnumEncodeJson :: forall a rep
. GR.Generic a rep
......@@ -147,4 +148,4 @@ instance
instance
( IsSymbol name
) => GenericEnumEncodeJson (GR.Constructor name GR.NoArguments) where
genericEnumEncodeJsonRep _ = Argonaut.encodeJson $ reflectSymbol (SProxy :: SProxy name)
genericEnumEncodeJsonRep _ = Argonaut.encodeJson $ reflectSymbol (Proxy :: Proxy name)
src/Gargantext/Utils/Array.js
View file @ 5686b05c
function _push(a, i) {
export function _push(a, i) {
a.push(i);
}
exports._push = _push;
src/Gargantext/Utils/Array.purs
View file @ 5686b05c
......@@ -36,4 +36,4 @@ min xs = foldr reducer (A.head xs) xs
range :: Int -> Int -> Int -> Array Int
range start end step = map (\i -> start + i*step) $ A.range 0 end'
where
end' = DI.round $ DI.floor $ (DI.toNumber $ end - start) / (DI.toNumber step)
end' = DI.floor $ (DI.toNumber $ end - start) / (DI.toNumber step)
src/Gargantext/Utils/ArrayBuffer.js
View file @ 5686b05c
......@@ -2,7 +2,7 @@
// https://stackoverflow.com/a/9458996
// This is because base64-codec/Data.Base64.encodeBase64 was too slow
exports.arrayBufferToBase64Impl = function(buffer) {
export function arrayBufferToBase64Impl(buffer) {
var binary = '';
var bytes = new Uint8Array( buffer );
var len = bytes.byteLength;
......
src/Gargantext/Utils/BootstrapNative.js
View file @ 5686b05c
"use strict";
exports.createDropdown = function(iid) {
export function createDropdown(iid) {
var el = document.getElementById(iid);
if (!window.Dropdown) return;
......
src/Gargantext/Utils/CacheAPI.js
View file @ 5686b05c
exports._makeRequest = function(url) {
export function _makeRequest(url) {
return function(options) {
return new Request(url, options);
}
}
exports._openCache = function(cacheName) {
export function _openCache(cacheName) {
return function() {
return window.caches.open(cacheName);
}
}
exports._delete = function(cacheName) {
export function _delete(cacheName) {
return function() {
return caches.delete(cacheName);
}
}
exports._deleteReq = function(cache) {
export function _deleteReq(cache) {
return function(req) {
return function() {
return cache.delete(req);
......@@ -24,7 +24,7 @@ exports._deleteReq = function(cache) {
}
}
exports._add = function(cache) {
export function _add(cache) {
return function(req) {
return function() {
return cache.add(req);
......@@ -32,7 +32,7 @@ exports._add = function(cache) {
}
}
exports._match = function(cache) {
export function _match(cache) {
return function(req) {
return function() {
return cache.match(req);
......@@ -40,7 +40,7 @@ exports._match = function(cache) {
}
}
exports._fetch = function(req) {
export function _fetch(req) {
return function() {
return fetch(req);
}
......
src/Gargantext/Utils/Console.js
View file @ 5686b05c
......@@ -3,6 +3,6 @@
* Get Creation Date
* @return {string}
*/
exports.getCreationDate = function() {
export function getCreationDate() {
return new Date().toLocaleTimeString()
}
src/Gargantext/Utils/Crypto.purs
View file @ 5686b05c
......@@ -34,5 +34,3 @@ instance IsHashable (Set String) where
concat :: Array Hash -> String
concat = Array.foldl (<>) ""
src/Gargantext/Utils/Debug.js
View file @ 5686b05c
function _debugger(a) {
export function _debugger(a) {
debugger;
}
exports._debugger = _debugger;
src/Gargantext/Utils/EtherCalc.purs
View file @ 5686b05c
module Gargantext.Utils.EtherCalc where
import Affjax (Error, Response, defaultRequest, request)
import Affjax.Web (Error, Response, defaultRequest, request)
import Affjax.ResponseFormat as ResponseFormat
import Data.Either (Either(..))
import Data.HTTP.Method (Method(GET))
......@@ -17,4 +17,3 @@ downloadCSV base nodeId = do
, responseFormat = ResponseFormat.string
, method = Left GET }
request req
src/Gargantext/Utils/HighlightJS.js
View file @ 5686b05c
'use strict';
const hljs = require('highlightjs/highlight.pack.min.js');
import * as hljs from 'highlightjs/highlight.pack.min.js';
function highlightBlock(el) {
export function _highlightBlock(el) {
hljs.highlightBlock(el);
}
exports._highlightBlock = highlightBlock;
src/Gargantext/Utils/JitsiMeet.js
View file @ 5686b05c
'use strict';
var API = require('../../src/external-deps/JitsiMeetAPI.js');
import API from '../../src/external-deps/JitsiMeetAPI.js';
// console.log('API', API);
exports._api = API;
exports._jitsiMeetAPI = function(host, options) {
export { API as _api };
export function _jitsiMeetAPI(host, options) {
return new API(host, options);
};
src/Gargantext/Utils/KarpRabin.purs
View file @ 5686b05c
......@@ -26,6 +26,7 @@ module Gargantext.Utils.KarpRabin ( -- * Overview
import Data.Array as A
import Data.Enum (fromEnum)
import Data.Foldable (class Foldable, minimum, foldl)
import Data.FunctorWithIndex (mapWithIndex)
import Data.Int (quot)
import Data.List as L
import Data.Map as M
......@@ -139,7 +140,7 @@ strictMatcher pats = unsafePartial search
<<< S.take hLen
hashMap =
M.fromFoldableWith (flip (<>))
(A.mapWithIndex (\i a -> Tuple (hash a) [i]) pats)
(mapWithIndex (\i a -> Tuple (hash a) [i]) pats)
search :: Partial => String -> Array (Tuple Int (Array Int))
search str = if strLen < hLen then []
else A.fromFoldable (go 0 shash)
......
src/Gargantext/Utils/Popover.js
View file @ 5686b05c
'use strict';
const popover = require('react-awesome-popover');
import popover from 'react-awesome-popover';
if (typeof window !== 'undefined') {
window.Popover = popover;
}
exports.popoverCpt = popover;
exports._setState = function(el, val) {
export { popover as popoverCpt };
export function _setState(el, val) {
el.setState(val);
}
src/Gargantext/Utils/Range.purs
View file @ 5686b05c
......@@ -45,4 +45,3 @@ withMin (Closed {max}) min = Closed { min, max }
-- | Updates the maximum value in a closed range
withMax :: forall t. Closed t -> t -> Closed t
withMax (Closed {min}) max = Closed { min, max }
src/Gargantext/Utils/ReactBootstrap.js
View file @ 5686b05c
'use strict';
const ReactBootstrap = require('react-bootstrap');
import * as ReactBootstrap from 'react-bootstrap';
if (typeof window !== 'undefined') {
window.ReactBootstrap = ReactBootstrap;
}
const Alert = require('react-bootstrap/Alert');
const OverlayTrigger = require('react-bootstrap/OverlayTrigger');
const Popover = require('react-bootstrap/Popover');
import * as Alert from 'react-bootstrap/Alert';
import * as OverlayTrigger from 'react-bootstrap/OverlayTrigger';
import * as Popover from 'react-bootstrap/Popover';
exports.alertCpt = Alert;
exports.overlayTriggerCpt = OverlayTrigger;
exports.popoverCpt = Popover;
exports.popoverContentCpt = Popover.Content;
exports.popoverTitleCpt = Popover.Title;
let Content = Popover.Content;
let Title = Popover.Title;
export { Alert as alertCpt,
OverlayTrigger as overlayTriggerCpt,
Popover as popoverCpt,
Content as popoverContentCpt,
Title as popoverTitleCpt };
src/Gargantext/Utils/Reactix.js
View file @ 5686b05c
'use strict';
function addRootElement(rootElem) {
export function _addRootElement(rootElem) {
document.body.insertBefore(
rootElem,
document.body.lastElementChild.nextElementSibling
);
}
function getSelection(_u) {
export function _getSelection(_u) {
return window.getSelection();
}
function stringify(j, indent) {
export function _stringify(j, indent) {
return JSON.stringify(j, null, indent);
}
function postMessage(obj, msg, src) {
export function _postMessage(obj, msg, src) {
obj.contentWindow.postMessage(msg, src);
}
function setCookie(c) {
export function _setCookie(c) {
document.cookie = c;
}
function domRectFromRect(obj) {
export function _domRectFromRect(obj) {
return DOMRectReadOnly.fromRect(obj)
}
function preventDefault(e) {
export function _preventDefault(e) {
return e.preventDefault();
}
function stopPropagation(e) {
export function _stopPropagation(e) {
return e.stopPropagation();
}
function blur(el) {
export function _blur(el) {
return el.blur();
}
function triggerEvent(el, evtType) {
export function _triggerEvent(el, evtType) {
// https://stackoverflow.com/questions/8789423/trigger-onchange-event
var event = new UIEvent(evtType, {
view: window,
......@@ -49,18 +49,7 @@ function triggerEvent(el, evtType) {
el.dispatchEvent(event);
}
exports._addRootElement = addRootElement;
exports._getSelection = getSelection;
exports._stringify = stringify;
exports._postMessage = postMessage;
exports._setCookie = setCookie;
exports._domRectFromRect = domRectFromRect;
exports._preventDefault = preventDefault;
exports._stopPropagation = stopPropagation;
exports._blur = blur;
exports._keyCode = function(e) {
export function _keyCode(e) {
// https://www.w3schools.com/jsref/event_key_keycode.asp
return e.which || e.keyCode;
}
exports._triggerEvent = triggerEvent;
src/Gargantext/Utils/Regex.js
View file @ 5686b05c
function _cloneRegex(r) {
export function _cloneRegex(r) {
return new RegExp(r.source, r.flags);
}
function _getRegexLastIndex(r) {
export function _getRegexLastIndex(r) {
return r.lastIndex;
}
function _execRegex(r, s) {
export function _execRegex(r, s) {
return r.exec(s);
}
exports._cloneRegex = _cloneRegex;
exports._getRegexLastIndex = _getRegexLastIndex;
exports._execRegex = _execRegex;
src/Gargantext/Utils/Selection.js
View file @ 5686b05c
exports._getSelection = function() { return window.getSelection() || null; };
export function _getSelection() {
return window.getSelection() || null;
};
src/Gargantext/Utils/SimpleJSON.purs
View file @ 5686b05c
......@@ -11,7 +11,8 @@ import Foreign (Foreign, ForeignError(..), fail)
import Foreign as Foreign
import Foreign.Object as FO
import Simple.JSON as JSON
import Type.Prelude (class IsSymbol, SProxy(..), reflectSymbol)
import Type.Prelude (class IsSymbol, reflectSymbol)
import Type.Proxy (Proxy(..))
taggedSumRep :: forall a rep
. GR.Generic a rep
......@@ -51,7 +52,7 @@ instance ( GenericTaggedSumRep a
then withExcept (map $ ErrorAtProperty name) $ GR.Constructor <$> (genericTaggedSumRep $ Foreign.unsafeToForeign obj)
else fail $ ForeignError $ "Wrong type tag " <> n' <> " where " <> name <> " was expected."
where
nameP = SProxy :: SProxy name
nameP = Proxy :: Proxy name
name = reflectSymbol nameP
instance ( JSON.ReadForeign a
......
src/Gargantext/Utils/String.js
View file @ 5686b05c
exports._btoa = function(s) {
export function _btoa(s) {
return btoa(unescape(encodeURIComponent(s)));
}
yarn.lock
View file @ 5686b05c
This diff is collapsed.
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