Skip to content

P
purescript-gargantext
Commit 47a33fae authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

Merge branch 'dev' into 294-dev-test

parents c5056383 76d6c977
Pipeline #1530 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 370 additions and 67 deletions
    dist/styles/sass.css
    View file @ 47a33fae
    ......@@ -862,11 +862,23 @@ ul li {
    background-color: #F5949931;
    }
    .folders {
    .fv.folders {
    display: grid;
    grid-template-columns: 100px 100px 100px;
    gap: 25px;
    margin: 10px 0px;
    margin: 20px 0px;
    }
    .fv.action {
    position: relative;
    left: 100px;
    top: -15px;
    color: blue;
    }
    .fv.btn {
    size: 100%;
    width: 100%;
    }
    /*# sourceMappingURL=sass.css.map */
    dist/styles/sass.css.map
    View file @ 47a33fae
    {"version":3,"sourceRoot":"","sources":["../../src/sass/_menu.sass","../../src/sass/_context_menu.sass","../../src/sass/_graph.sass","../../src/sass/_login.sass","../../src/sass/_tree.sass","../../src/sass/_code_editor.sass","../../src/sass/_styles.sass","../../src/sass/_range_slider.sass","../../src/sass/_annotation.sass","../../src/sass/_folder_view.sass"],"names":[],"mappings":"AAAA;AAEA;AACA;AACA;AACA;AACA;AAEA;EACI;EACA;;;AAEJ;EACI;EACA;EACA;EACA;;;AAEJ;EACE;;;AAEF;AACI;EACA;;;AAEJ;AACI;EACA;;;AAGJ;AACA;EACI;;;AAEJ;EACI;EACA;EACA;EACA;;;AAEJ;EACE;EACA;;;AAEF;EACE;;;AC7CF;EACE;EACA;EACA;EACA;EACA;;;AAEF;EACE;;;AAEF;EACE;EACA;EACA;EACA;EACA;EACA;EACA;;;AAEF;EACE;EACA;EACA;;;AAEF;EACE;;;AClBF;EACE;EACA;EACA;;;AAEF;AAkCE;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAxCA;EAZA;EACA;EAEA;EAWE;EACA;EACA;EACA;;AAEA;EACE;EACA;;AAEF;EACE;EACA;;AAGA;EACE;EACA;;AACN;EACE;;AACF;EACE;;AAEF;EApCA;EACA;EAEA;EAmCE;EACA;;AACF;EACE;;AACF;EACE;;AAWF;EAEE;EAEA;EACA;EACA;EAEA;EACA;EACA;;AAEA;EACE;;AAEJ;EACE;;AAEA;EACE;;AAEJ;EACE;EACA;;;AAGF;EACE;EACA;EACA;EACA;EACA;;;ACtFJ;EAEE;;;AAQF;EACE;;AACA;EACE;EACA;;;AAEJ;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAGF;EACE;;AAEE;EACE;EACA;;AACA;EACE;;;AAIJ;EACE;EACA;EACA;EACA;;;AAKJ;EACE;EACA;EACA;;;AAGJ;EACE;EACA;EACA;EACA;EACA;;AACA;EACE;EACA;;AACF;EACE;EACA;;AACA;EACE;EACA;EACA;EACA;;AACA;EACE;;AACF;EACE;EACA;EACA;EACA;;AACA;EACE;;AACN;EACE;EACA;EACA;EACA;;;AAGN;EACE;EACA;EACA;EACA;EACA;;AAGE;EACE;;;AAEN;EACE;EACA;EACA;EACA;EACA;;AAGE;EACE;;;AAEN;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;EACA;EACA;;;AAEJ;EACE;EACA;;;AAGF;EACE;EACA;EACA;EACA;;AACA;EACE;EACA;;;AAGF;EACE;;;AAEJ;EACI;EACA;;;AAGF;EACE;;;AAEJ;EACE;;;AAEF;EACE;EACA;;;AAEF;EACE;EACA;EACA;;;AAEF;EACE;EACA;;;AAEF;EACE;;;ACzKF;EACE;;;AAGA;EACE;EACA;EACA;;AAEA;EACE;EACA;;AAGA;EACE;;AACF;EACE;;AAEJ;EACE;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;;;AAGN;EACE;;;AAIA;EACE;;AACA;EACE;EACA;EACA;EACA;;AACF;EACE;EACA;EACA;EACA;EACA;;AACF;EACE;;AACF;EACE;EACA;EACA;EAEA;EACA;EACA;;AAEA;EACE;;AACF;EACE;;AAGN;EACE;;AACF;EACE;;AACA;EACE;EACA;;AAEE;EACE;EACA;;AACF;EACE;EACA;;AAIR;EACE;;AACF;EACE;;AACA;EACE;EACA;;AAEE;EACE;EACA;;AACF;EACE;EACA;;AACF;EACE;EACA;;AAEV;EACE;;AACF;EACE;;AAEE;EACE;;AACF;EACE;;AACN;EACE;;AAEE;EACE;;;AAGR;EACE;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AAEA;EAEE;EACA;EACA;EACA;EACA;;AAEF;EACE;EACA;EACA;;AAEF;EACE;;;AAIF;EACE;;AAEA;EACE;;;AAGN;EACE;;AACF;EACE;;AACF;EACE;;;AAEJ;EACE;EACA;EACA;EACA;EACA;;;AAEA;EACE;;;AAEF;EACE;;;AC9JA;EACE;EACA;EACA;EACA;;AACA;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AACA;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EApCR;EACA;EACA;EACA;EACA;EACA;EACA;EAlBA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AA0CM;EACE;EACA;EACA;EACA;EACA;EA5CR;EACA;EACA;EACA;EACA;EACA;EACA;EAlBA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AAkDE;EACE;EACA;EACA;EACA;EACA;EACA;;AACF;EACE;EACA;EACA;;AACA;EACE;EACA;;AACF;EACE;EACA;;AACF;EACE;EACA;;AAGE;EACE;;AAEF;EACE;;;ACtFZ;EACE;;;AAEA;EAEE;EACA;EACA;EACA;EACA;EACA;;AACA;EACE;;AAGE;EACE;EACA;;AAEF;EACE;EACA;;;AAER;EAEE;EACA;EACA;EACA;EACA;EACA;;AACA;EACE;;AAGE;EACE;EACA;;AAEF;EACE;EACA;;;AAEV;EACE;;AACA;EACE;;AACF;EACE;EACA;EACA;;;AAIA;EACE;;AACA;EACE;EACA;;AACF;EACE;;AACA;EACE;;AACJ;EACE;;;AAER;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAEF;AAGI;EACE;;AACF;EACE;;;AAEN;EACE;EACA;EACA;;;AAIA;EACE;;AACF;EACE;;;AAEJ;EACE;;AACA;EACE;;;AAEJ;EACE;EACA;;;ACtGF;EACE;AACA;EACA;;AAEA;EACE;EACA;;AAEA;EACE;EACA;EACA;EACA;EACA;;AAEF;EACE;EACA;EACA;EACA;;AAEF;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EAEA;EAEA;EAEA;;AAEA;EACE;EAEA;EACA;EACA;;;AAGN;EACE;;;ACxBJ;EACE;;AAEA;EANE;EACA;;AAQF;EAbE;EACA;;AAeF;EAhBE;EACA;;AAkBF;EAnBE;EACA;;AAqBF;EA1BE;EACA,kBANyB;;AAkC3B;EA7BE;EACA,kBAPqB;;AAsCvB;EAhCE;EACA,kBAJoB;;;AAuCtB;EApCE;EACA,kBANyB;;AA4C3B;EAvCE;EACA,kBAPqB;;AAgDvB;EA1CE;EACA,kBAJoB;;;ACRxB;EACE;EACA;EACA;EACA","file":"sass.css"}
    \ No newline at end of file
    {"version":3,"sourceRoot":"","sources":["../../src/sass/_menu.sass","../../src/sass/_context_menu.sass","../../src/sass/_graph.sass","../../src/sass/_login.sass","../../src/sass/_tree.sass","../../src/sass/_code_editor.sass","../../src/sass/_styles.sass","../../src/sass/_range_slider.sass","../../src/sass/_annotation.sass","../../src/sass/_folder_view.sass"],"names":[],"mappings":"AAAA;AAEA;AACA;AACA;AACA;AACA;AAEA;EACI;EACA;;;AAEJ;EACI;EACA;EACA;EACA;;;AAEJ;EACE;;;AAEF;AACI;EACA;;;AAEJ;AACI;EACA;;;AAGJ;AACA;EACI;;;AAEJ;EACI;EACA;EACA;EACA;;;AAEJ;EACE;EACA;;;AAEF;EACE;;;AC7CF;EACE;EACA;EACA;EACA;EACA;;;AAEF;EACE;;;AAEF;EACE;EACA;EACA;EACA;EACA;EACA;EACA;;;AAEF;EACE;EACA;EACA;;;AAEF;EACE;;;AClBF;EACE;EACA;EACA;;;AAEF;AAkCE;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAxCA;EAZA;EACA;EAEA;EAWE;EACA;EACA;EACA;;AAEA;EACE;EACA;;AAEF;EACE;EACA;;AAGA;EACE;EACA;;AACN;EACE;;AACF;EACE;;AAEF;EApCA;EACA;EAEA;EAmCE;EACA;;AACF;EACE;;AACF;EACE;;AAWF;EAEE;EAEA;EACA;EACA;EAEA;EACA;EACA;;AAEA;EACE;;AAEJ;EACE;;AAEA;EACE;;AAEJ;EACE;EACA;;;AAGF;EACE;EACA;EACA;EACA;EACA;;;ACtFJ;EAEE;;;AAQF;EACE;;AACA;EACE;EACA;;;AAEJ;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAGF;EACE;;AAEE;EACE;EACA;;AACA;EACE;;;AAIJ;EACE;EACA;EACA;EACA;;;AAKJ;EACE;EACA;EACA;;;AAGJ;EACE;EACA;EACA;EACA;EACA;;AACA;EACE;EACA;;AACF;EACE;EACA;;AACA;EACE;EACA;EACA;EACA;;AACA;EACE;;AACF;EACE;EACA;EACA;EACA;;AACA;EACE;;AACN;EACE;EACA;EACA;EACA;;;AAGN;EACE;EACA;EACA;EACA;EACA;;AAGE;EACE;;;AAEN;EACE;EACA;EACA;EACA;EACA;;AAGE;EACE;;;AAEN;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;EACA;EACA;;;AAEJ;EACE;EACA;;;AAGF;EACE;EACA;EACA;EACA;;AACA;EACE;EACA;;;AAGF;EACE;;;AAEJ;EACI;EACA;;;AAGF;EACE;;;AAEJ;EACE;;;AAEF;EACE;EACA;;;AAEF;EACE;EACA;EACA;;;AAEF;EACE;EACA;;;AAEF;EACE;;;ACzKF;EACE;;;AAGA;EACE;EACA;EACA;;AAEA;EACE;EACA;;AAGA;EACE;;AACF;EACE;;AAEJ;EACE;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;;;AAGN;EACE;;;AAIA;EACE;;AACA;EACE;EACA;EACA;EACA;;AACF;EACE;EACA;EACA;EACA;EACA;;AACF;EACE;;AACF;EACE;EACA;EACA;EAEA;EACA;EACA;;AAEA;EACE;;AACF;EACE;;AAGN;EACE;;AACF;EACE;;AACA;EACE;EACA;;AAEE;EACE;EACA;;AACF;EACE;EACA;;AAIR;EACE;;AACF;EACE;;AACA;EACE;EACA;;AAEE;EACE;EACA;;AACF;EACE;EACA;;AACF;EACE;EACA;;AAEV;EACE;;AACF;EACE;;AAEE;EACE;;AACF;EACE;;AACN;EACE;;AAEE;EACE;;;AAGR;EACE;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AAEA;EAEE;EACA;EACA;EACA;EACA;;AAEF;EACE;EACA;EACA;;AAEF;EACE;;;AAIF;EACE;;AAEA;EACE;;;AAGN;EACE;;AACF;EACE;;AACF;EACE;;;AAEJ;EACE;EACA;EACA;EACA;EACA;;;AAEA;EACE;;;AAEF;EACE;;;AC9JA;EACE;EACA;EACA;EACA;;AACA;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AACA;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EApCR;EACA;EACA;EACA;EACA;EACA;EACA;EAlBA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AA0CM;EACE;EACA;EACA;EACA;EACA;EA5CR;EACA;EACA;EACA;EACA;EACA;EACA;EAlBA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;AAkDE;EACE;EACA;EACA;EACA;EACA;EACA;;AACF;EACE;EACA;EACA;;AACA;EACE;EACA;;AACF;EACE;EACA;;AACF;EACE;EACA;;AAGE;EACE;;AAEF;EACE;;;ACtFZ;EACE;;;AAEA;EAEE;EACA;EACA;EACA;EACA;EACA;;AACA;EACE;;AAGE;EACE;EACA;;AAEF;EACE;EACA;;;AAER;EAEE;EACA;EACA;EACA;EACA;EACA;;AACA;EACE;;AAGE;EACE;EACA;;AAEF;EACE;EACA;;;AAEV;EACE;;AACA;EACE;;AACF;EACE;EACA;EACA;;;AAIA;EACE;;AACA;EACE;EACA;;AACF;EACE;;AACA;EACE;;AACJ;EACE;;;AAER;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAEF;AAGI;EACE;;AACF;EACE;;;AAEN;EACE;EACA;EACA;;;AAIA;EACE;;AACF;EACE;;;AAEJ;EACE;;AACA;EACE;;;AAEJ;EACE;EACA;;;ACtGF;EACE;AACA;EACA;;AAEA;EACE;EACA;;AAEA;EACE;EACA;EACA;EACA;EACA;;AAEF;EACE;EACA;EACA;EACA;;AAEF;EACE;EACA;EACA;EACA;EACA;EACA;EACA;EAEA;EAEA;EAEA;;AAEA;EACE;EAEA;EACA;EACA;;;AAGN;EACE;;;ACxBJ;EACE;;AAEA;EANE;EACA;;AAQF;EAbE;EACA;;AAeF;EAhBE;EACA;;AAkBF;EAnBE;EACA;;AAqBF;EA1BE;EACA,kBANyB;;AAkC3B;EA7BE;EACA,kBAPqB;;AAsCvB;EAhCE;EACA,kBAJoB;;;AAuCtB;EApCE;EACA,kBANyB;;AA4C3B;EAvCE;EACA,kBAPqB;;AAgDvB;EA1CE;EACA,kBAJoB;;;ACRxB;EACE;EACA;EACA;EACA;;;AAEF;EACE;EACA;EACA;EACA;;;AAEF;EACE;EACA","file":"sass.css"}
    \ No newline at end of file
    src/Gargantext/Components/FolderView.js
    View file @ 47a33fae
    ......@@ -4,4 +4,10 @@ exports.back = function() {
    return function() {
    history.back();
    }
    }
    exports.link = function (url) {
    return function() {
    window.location.href = url
    }
    }
    \ No newline at end of file
    src/Gargantext/Components/FolderView.purs
    View file @ 47a33fae
    module Gargantext.Components.FolderView where
    import DOM.Simple.Console (log, log2)
    import Data.Array as A
    import Data.Maybe (Maybe(..), fromMaybe)
    import Data.Nullable (null)
    import Data.Traversable (traverse_)
    import Effect (Effect)
    import Effect.Aff (Aff)
    import Effect.Class (liftEffect)
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Add (AddNodeValue(..), addNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Contact as Contact
    import Gargantext.Components.Forest.Tree.Node.Action.Delete (deleteNode, unpublishNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Link (linkNodeReq)
    import Gargantext.Components.Forest.Tree.Node.Action.Merge (mergeNodeReq)
    import Gargantext.Components.Forest.Tree.Node.Action.Move (moveNodeReq)
    import Gargantext.Components.Forest.Tree.Node.Action.Rename (RenameValue(..), rename)
    import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
    import Gargantext.Components.Forest.Tree.Node.Action.Update (updateRequest)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadArbitraryFile, uploadFile)
    import Gargantext.Components.Forest.Tree.Node.Box (nodePopupView)
    import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..), fTreeID)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut(..))
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Prelude (Ordering, Unit, compare, pure, ($), (<$>), (<>))
    import Gargantext.Prelude (Ordering, Unit, bind, compare, discard, pure, unit, void, ($), (<$>), (<>))
    import Gargantext.Routes (AppRoute(Home), SessionRoute(..), appPath, nodeTypeAppRoute)
    import Gargantext.Sessions (Session, get, sessionId)
    import Gargantext.Types (NodeType(..))
    import Gargantext.Types as GT
    import Gargantext.Utils.Popover as Popover
    import Gargantext.Utils.Reactix as R2
    import Gargantext.Utils.Toestand as T2
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Record as Record
    import Toestand as T
    foreign import back :: Effect Unit
    foreign import link :: String -> Effect Unit
    here :: R2.Here
    here = R2.here "Gargantext.Components.FolderView"
    ......@@ -23,6 +47,7 @@ type Props =
    ( nodeId :: Int
    , session :: Session
    , backFolder :: Boolean
    , tasks :: T.Box GAT.Storage
    )
    data FolderStyle = FolderUp | FolderChild
    ......@@ -32,9 +57,12 @@ folderView props = R.createElement folderViewCpt props []
    folderViewCpt :: R.Component Props
    folderViewCpt = here.component "folderViewCpt" cpt where
    cpt {nodeId, session, backFolder} _ = do
    useLoader {nodeId, session, backFolder} loadFolders $
    \folders -> folderViewMain {folders, nodeId, session, backFolder}
    cpt {nodeId, session, backFolder, tasks} _ = do
    setPopoverRef <- R.useRef Nothing
    reload <- T.useBox T2.newReload
    reload' <- T.useLive T.unequal reload
    useLoader { nodeId, session, reload: reload'} loadFolders $
    \folders -> folderViewMain {folders, nodeId, session, backFolder, tasks, reload, setPopoverRef}
    type FolderViewProps =
    (
    ......@@ -42,6 +70,9 @@ type FolderViewProps =
    , folders:: FTree
    , session :: Session
    , backFolder :: Boolean
    , tasks :: T.Box GAT.Storage
    , reload :: T.Box T2.Reload
    , setPopoverRef :: R.Ref (Maybe (Boolean -> Effect Unit))
    )
    folderViewMain :: Record FolderViewProps -> R.Element
    ......@@ -49,25 +80,31 @@ folderViewMain props = R.createElement folderViewMainCpt props []
    folderViewMainCpt :: R.Component FolderViewProps
    folderViewMainCpt = here.component "folderViewMainCpt" cpt where
    cpt {nodeId, session, backFolder, folders: (NTree (LNode {parent_id: parentId, nodeType}) (folders))} _ = do
    let sid = sessionId session
    cpt {nodeId, session, backFolder, tasks, setPopoverRef, reload, folders: tree@(NTree (LNode {parent_id: parentId, nodeType}) (folders))} _ = do
    let foldersS = A.sortBy sortFolders folders
    let children = makeFolderElements foldersS sid
    let backHome = isBackHome nodeType
    let parent = makeParentFolder parentId sid backFolder backHome
    let parent = makeParentFolder parentId session backFolder backHome
    let children = makeFolderElements foldersS {session, setPopoverRef, nodeId, tasks, reload}
    pure $ H.div {className: "folders"} $ parent <> children
    pure $ H.div {className: "fv folders"} $ parent <> children
    makeFolderElements :: Array (NTree LNode) -> GT.SessionId -> Array R.Element
    makeFolderElements foldersS sid = makeFolderElementsMap <$> foldersS where
    makeFolderElements foldersS props = makeFolderElementsMap <$> foldersS where
    makeFolderElementsMap :: NTree LNode -> R.Element
    makeFolderElementsMap (NTree (LNode node) _) = folder {style: FolderChild, text: node.name, nodeId: node.id, nodeType: node.nodeType, sid: sid} []
    makeFolderElementsMap (NTree (LNode node) _) = folder {style: FolderChild
    , text: node.name
    , nodeId: node.id
    , nodeType: node.nodeType
    , session: props.session
    , setPopoverRef: props.setPopoverRef
    , parentId: props.nodeId
    , tasks: props.tasks
    , reload: props.reload} []
    makeParentFolder :: Maybe Int -> GT.SessionId -> Boolean -> Boolean -> Array R.Element
    makeParentFolder (Just parentId) sid _ _ =
    makeParentFolder :: Maybe Int -> Session -> Boolean -> Boolean -> Array R.Element
    makeParentFolder (Just parentId) session _ _ =
    -- FIXME: The NodeType here should not be hardcoded to FolderPrivate but we currently can't get the actual NodeType
    -- without performing another API call. Also parentId is never being returned by this API even when it clearly exists
    [ folder {style: FolderUp, text: "..", nodeId: parentId, nodeType: GT.FolderPrivate, sid: sid} [] ]
    [ folderSimple {style: FolderUp, text: "..", nodeId: parentId, nodeType: GT.FolderPrivate, session: session} [] ]
    makeParentFolder Nothing _ _ true = [ H.a {className: "btn btn-primary", href: appPath Home} [ H.i { className: "fa fa-folder-open" } []
    , H.br {}
    , H.text ".."] ]
    ......@@ -76,6 +113,7 @@ folderViewMainCpt = here.component "folderViewMainCpt" cpt where
    , H.text ".."] ]
    makeParentFolder Nothing _ _ _ = []
    sortFolders :: FTree -> FTree -> Ordering
    sortFolders a b = compare (fTreeID a) (fTreeID b)
    ......@@ -86,20 +124,22 @@ folderViewMainCpt = here.component "folderViewMainCpt" cpt where
    isBackHome _ = false
    type FolderProps =
    type FolderSimpleProps =
    (
    style :: FolderStyle
    , text :: String
    , nodeType :: GT.NodeType
    , nodeId :: Int
    , sid :: GT.SessionId
    , session :: Session
    )
    folder :: R2.Component FolderProps
    folder = R.createElement folderCpt
    folderCpt :: R.Component FolderProps
    folderCpt = here.component "folderCpt" cpt where
    cpt {style, text, nodeId, sid, nodeType} _ = do
    folderSimple :: R2.Component FolderSimpleProps
    folderSimple = R.createElement folderSimpleCpt
    folderSimpleCpt :: R.Component FolderSimpleProps
    folderSimpleCpt = here.component "folderSimpleCpt" cpt where
    cpt {style, text, nodeId, session, nodeType} _ = do
    let sid = sessionId session
    pure $ H.a { className: "btn btn-primary"
    , href: "/#/" <> getFolderPath nodeType sid nodeId }
    [ H.i { className: icon style nodeType } []
    ......@@ -113,6 +153,70 @@ folderCpt = here.component "folderCpt" cpt where
    getFolderPath :: GT.NodeType -> GT.SessionId -> Int -> String
    getFolderPath nodeType sid nodeId = appPath $ fromMaybe Home $ nodeTypeAppRoute nodeType sid nodeId
    type FolderProps =
    (
    setPopoverRef :: R.Ref (Maybe (Boolean -> Effect Unit))
    , parentId :: Int
    , tasks :: T.Box GAT.Storage
    , reload :: T.Box T2.Reload
    | FolderSimpleProps
    )
    folder :: R2.Component FolderProps
    folder = R.createElement folderCpt
    folderCpt :: R.Component FolderProps
    folderCpt = here.component "folderCpt" cpt where
    cpt props@{style, text, nodeId, session, nodeType, setPopoverRef, parentId, tasks, reload} _ = do
    let sid = sessionId session
    let dispatch a = performAction a {setPopoverRef, session, nodeId, parentId, tasks, reload}
    popoverRef <- R.useRef null
    R.useEffect' $ do
    R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef
    pure $
    H.div {} [
    H.span{style: {position: "absolute"}} [ Popover.popover {
    arrow: false
    , open: false
    , onClose: \_ -> pure unit
    , onOpen: \_ -> pure unit
    , ref: popoverRef
    } [
    popOverIcon
    , mNodePopupView (Record.merge props {dispatch}) (onPopoverClose popoverRef)
    ]]
    , H.button {on: {click: link ("/#/" <> getFolderPath nodeType sid nodeId) }, className: "btn btn-primary fv btn" } [
    H.i {className: icon style nodeType} []
    , H.br {}
    , H.text text]]
    icon :: FolderStyle -> GT.NodeType -> String
    icon FolderUp _ = "fa fa-folder-open"
    icon _ nodeType = GT.fldr nodeType false
    getFolderPath :: GT.NodeType -> GT.SessionId -> Int -> String
    getFolderPath nodeType sid nodeId = appPath $ fromMaybe Home $ nodeTypeAppRoute nodeType sid nodeId
    onPopoverClose popoverRef _ = Popover.setOpen popoverRef false
    popOverIcon = H.span { className: "fv action" } [
    H.a { className: "settings fa fa-cog"
    , title : "Each node of the Tree can perform some actions.\n"
    <> "Click here to execute one of them." } []
    ]
    mNodePopupView props opc = nodePopupView {onPopoverClose: opc
    ,nodeType: props.nodeType
    , name: props.text
    , id: props.nodeId
    , dispatch: props.dispatch
    , session: props.session
    , handed: GT.RightHanded
    }
    backButton :: R.Element
    backButton =
    H.button {
    ......@@ -130,7 +234,113 @@ homeButton =
    } [
    H.i { className: "fa fa-home", title: "Back to home"} []
    ]
    loadFolders :: Record Props -> Aff FTree
    type LoadProps =
    (
    session :: Session,
    nodeId :: Int,
    reload :: T2.Reload
    )
    loadFolders :: Record LoadProps -> Aff FTree
    loadFolders {nodeId, session} = get session $ TreeFirstLevel (Just nodeId) ""
    type PerformActionProps =
    (
    setPopoverRef :: R.Ref (Maybe (Boolean -> Effect Unit))
    , session :: Session
    , nodeId :: Int
    , parentId :: Int
    , tasks :: T.Box GAT.Storage
    , reload :: T.Box T2.Reload
    )
    performAction :: Action -> Record PerformActionProps -> Aff Unit
    performAction = performAction' where
    performAction' (DeleteNode nt) p = deleteNode' nt p
    performAction' (DoSearch task) p = doSearch task p
    performAction' (UpdateNode params) p = updateNode params p
    performAction' (RenameNode name) p = renameNode name p
    performAction' (ShareTeam username) p = shareTeam username p
    performAction' (SharePublic { params }) p = sharePublic params p
    performAction' (AddContact params) p = addContact params p
    performAction' (AddNode name nodeType) p = addNode' name nodeType p
    performAction' (UploadFile nodeType fileType mName blob) p = uploadFile' nodeType fileType mName blob p
    performAction' (UploadArbitraryFile mName blob) p = uploadArbitraryFile' mName blob p
    performAction' DownloadNode _ = liftEffect $ log "[performAction] DownloadNode"
    performAction' (MoveNode {params}) p = moveNode params p
    performAction' (MergeNode {params}) p = mergeNode params p
    performAction' (LinkNode { nodeType, params }) p = linkNode nodeType params p
    performAction' NoAction _ = liftEffect $ log "[performAction] NoAction"
    performAction' ClosePopover p = closePopover p
    performAction' _ _ = liftEffect $ log "[performAction] unsupported action"
    closePopover { setPopoverRef } =
    liftEffect $ traverse_ (\set -> set false) (R.readRef setPopoverRef)
    refreshFolders p = do
    liftEffect $ T2.reload p.reload
    closePopover p
    deleteNode' nt p@{ nodeId: id, parentId: parent_id } = do
    case nt of
    NodePublic FolderPublic -> void $ deleteNode p.session nt id
    NodePublic _ -> void $ unpublishNode p.session (Just parent_id) id
    _ -> void $ deleteNode p.session nt id
    refreshFolders p
    doSearch task p@{ tasks, nodeId: id } = liftEffect $ do
    GAT.insert id task tasks
    log2 "[performAction] DoSearch task:" task
    updateNode params p@{ tasks, nodeId: id } = do
    task <- updateRequest params p.session id
    liftEffect $ do
    GAT.insert id task tasks
    log2 "[performAction] UpdateNode task:" task
    shareTeam username p@{ nodeId: id} =
    void $ Share.shareReq p.session id $ Share.ShareTeamParams {username}
    sharePublic params p = traverse_ f params where
    f (SubTreeOut { in: inId, out }) = do
    void $ Share.shareReq p.session inId $ Share.SharePublicParams { node_id: out }
    refreshFolders p
    addContact params p@{ nodeId: id } =
    void $ Contact.contactReq p.session id params
    uploadFile' nodeType fileType mName blob p@{ tasks, nodeId: id } = do
    task <- uploadFile p.session nodeType id fileType {mName, blob}
    liftEffect $ do
    GAT.insert id task tasks
    log2 "[performAction] UploadFile, uploaded, task:" task
    uploadArbitraryFile' mName blob p@{ tasks, nodeId: id } = do
    task <- uploadArbitraryFile p.session id { blob, mName }
    liftEffect $ do
    GAT.insert id task tasks
    log2 "[performAction] UploadArbitraryFile, uploaded, task:" task
    moveNode params p@{ session } = traverse_ f params where
    f (SubTreeOut { in: in', out }) = do
    void $ moveNodeReq p.session in' out
    refreshFolders p
    mergeNode params p = traverse_ f params where
    f (SubTreeOut { in: in', out }) = do
    void $ mergeNodeReq p.session in' out
    refreshFolders p
    linkNode nodeType params p = traverse_ f params where
    f (SubTreeOut { in: in', out }) = do
    void $ linkNodeReq p.session nodeType in' out
    refreshFolders p
    renameNode name p@{ nodeId: id } = do
    void $ rename p.session id $ RenameValue { text: name }
    refreshFolders p
    addNode' name nodeType p@{ nodeId: id } = do
    void $ addNode p.session id $ AddNodeValue {name, nodeType}
    refreshFolders p
    src/Gargantext/Components/FolderView/Box.purs 0 → 100644
    View file @ 47a33fae
    module Gargantext.Components.FolderView.Box where
    import Gargantext.Prelude
    import DOM.Simple as DOM
    import Data.Maybe (Maybe(..))
    import Effect (Effect)
    import Gargantext.Components.Forest.Tree.Node.Settings (SettingsBox(..), settingsBox)
    import Gargantext.Components.Forest.Tree.Node.Tools (prettyNodeType)
    import Gargantext.Types (ID, Name)
    import Gargantext.Types as GT
    import Gargantext.Utils (glyphicon)
    import Gargantext.Utils.Reactix as R2
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    here :: R2.Here
    here = R2.here "Gargantext.Components.FolderView.Box"
    type NodePopupProps =
    ( id :: ID
    , name :: Name
    , nodeType :: GT.NodeType
    , onPopoverClose :: DOM.Element -> Effect Unit
    )
    nodePopupView :: Record NodePopupProps -> R.Element
    nodePopupView props = R.createElement nodePopupCpt props []
    nodePopupCpt :: R.Component NodePopupProps
    nodePopupCpt = here.component "nodePopupView" cpt where
    cpt props@{ id, name, nodeType } _ = do
    pure $ H.div tooltipProps
    [ H.div { className: "popup-container" }
    [ H.div { className: "card" }
    [ panelHeading props
    ]]]
    closePopover props = props.onPopoverClose <<< R.unsafeEventTarget
    tooltipProps = { id: "node-popup-tooltip", title: "Node settings"
    , data: { toggle: "tooltip", placement: "right" } }
    panelHeading props@{id, name, nodeType } =
    H.div { className: "card-header" }
    [ R2.row
    [ H.div { className: "col-4" }
    [ H.span { className: GT.fldr nodeType true} [] -- TODO fix names
    , H.span { className: "h5" } [ H.text $ prettyNodeType nodeType ] ]
    , H.div { className: "col-6" }
    [ H.span { className: "text-primary center" } [ H.text props.name ] ]
    , H.div { className: "col-1" }
    [ H.a { type: "button", on: { click: closePopover props }, title: "Close"
    , className: glyphicon "window-close" } [] ]]] where
    SettingsBox { edit, doc, buttons } = settingsBox nodeType
    src/Gargantext/Components/Forest/Tree/Node/Box.purs
    View file @ 47a33fae
    module Gargantext.Components.Forest.Tree.Node.Box where
    import Gargantext.Prelude
    import Data.Array as A
    import Data.Maybe (Maybe(..))
    import Effect.Aff (Aff)
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Prelude
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Add (NodePopup(..), addNodeView)
    import Gargantext.Components.Forest.Tree.Node.Action.Contact as Contact
    import Gargantext.Components.Forest.Tree.Node.Action.Delete (actionDelete)
    import Gargantext.Components.Forest.Tree.Node.Action.Documentation (actionDoc)
    import Gargantext.Components.Forest.Tree.Node.Action.Download (actionDownload)
    import Gargantext.Components.Forest.Tree.Node.Action.Link (linkNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Merge (mergeNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Move (moveNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Rename (renameAction)
    import Gargantext.Components.Forest.Tree.Node.Action.Search (actionSearch)
    import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
    import Gargantext.Components.Forest.Tree.Node.Action.Contact as Contact
    import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
    import Gargantext.Components.Forest.Tree.Node.Action.Update (update)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload (actionUpload)
    import Gargantext.Components.Forest.Tree.Node.Action.Move (moveNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Link (linkNode)
    import Gargantext.Components.Forest.Tree.Node.Action.Merge (mergeNode)
    import Gargantext.Components.Forest.Tree.Node.Box.Types (NodePopupProps, NodePopupS)
    import Gargantext.Components.Forest.Tree.Node.Settings
    (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
    import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
    import Gargantext.Components.Forest.Tree.Node.Status (Status(..), hasStatus)
    import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT, panel)
    import Gargantext.Sessions (Session)
    ......@@ -32,6 +28,9 @@ import Gargantext.Types (Name, ID, prettyNodeType)
    import Gargantext.Types as GT
    import Gargantext.Utils (glyphicon, glyphiconActive)
    import Gargantext.Utils.Reactix as R2
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    here :: R2.Here
    here = R2.here "Gargantext.Components.Forest.Tree.Node.Box"
    ......@@ -82,7 +81,7 @@ nodePopupCpt = here.component "nodePopupView" cpt where
    , title : "Rename", on: { click: \_ -> T.write_ true isOpen } } []
    panelBody :: T.Box (Maybe NodeAction) -> Record NodePopupProps -> R.Element
    panelBody nodePopupState {dispatch: d, nodeType} =
    let (SettingsBox { edit, doc, buttons }) = settingsBox nodeType in
    let (SettingsBox { edit, doc, buttons}) = settingsBox nodeType in
    H.div {className: "card-body flex-space-between"}
    $ [ H.p { className: "spacer" } []
    , H.div { className: "flex-center" }
    ......
    src/Gargantext/Components/Forest/Tree/Node/Tools.purs
    View file @ 47a33fae
    ......@@ -21,7 +21,6 @@ import Toestand as T
    import Gargantext.Components.Forest.Tree.Node.Action (Action, icon, text)
    import Gargantext.Components.InputWithEnter (inputWithEnter)
    import Gargantext.Ends (Frontends, url)
    import Gargantext.Components.GraphExplorer.API as GraphAPI
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Sessions (Session, sessionId)
    import Gargantext.Types as GT
    ......
    src/Gargantext/Components/Nodes/Corpus.purs
    View file @ 47a33fae
    ......@@ -17,6 +17,7 @@ import Effect.Class (liftEffect)
    import Effect.Exception (error)
    import Gargantext.Components.CodeEditor as CE
    import Gargantext.Components.FolderView as FV
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.InputWithEnter (inputWithEnter)
    import Gargantext.Components.Node (NodePoly(..), HyperdataList)
    import Gargantext.Components.Nodes.Corpus.Types (CorpusData, Hyperdata(..))
    ......@@ -37,15 +38,15 @@ import Toestand as T
    here :: R2.Here
    here = R2.here "Gargantext.Components.Nodes.Corpus"
    type Props = ( nodeId :: Int, session :: Session )
    type Props = ( nodeId :: Int, session :: Session, tasks :: T.Box GAT.Storage )
    corpusLayout :: R2.Leaf Props
    corpusLayout props = R.createElement corpusLayoutCpt props []
    corpusLayoutCpt :: R.Component Props
    corpusLayoutCpt = here.component "corpusLayout" cpt where
    cpt { nodeId, session } _ = do
    pure $ corpusLayoutMain { key, nodeId, session }
    cpt { nodeId, session, tasks } _ = do
    pure $ corpusLayoutMain { key, nodeId, session, tasks }
    where
    key = show (sessionId session) <> "-" <> show nodeId
    ......@@ -53,6 +54,7 @@ type KeyProps =
    ( nodeId :: Int
    , key :: String
    , session :: Session
    , tasks :: T.Box GAT.Storage
    )
    corpusLayoutMain :: R2.Leaf KeyProps
    ......@@ -61,7 +63,7 @@ corpusLayoutMain props = R.createElement corpusLayoutMainCpt props []
    corpusLayoutMainCpt :: R.Component KeyProps
    corpusLayoutMainCpt = here.component "corpusLayoutMain" cpt
    where
    cpt { nodeId, key, session } _ = do
    cpt { nodeId, key, session, tasks } _ = do
    viewType <- T.useBox Folders
    pure $ H.div {} [
    ......@@ -71,7 +73,7 @@ corpusLayoutMainCpt = here.component "corpusLayoutMain" cpt
    , H.div { className: "col-1" } [ FV.homeButton ]
    ]
    ]
    , H.div {} [corpusLayoutSelection {state: viewType, key, session, nodeId}]
    , H.div {} [corpusLayoutSelection {state: viewType, key, session, nodeId, tasks}]
    ]
    type SelectionProps =
    ......@@ -79,6 +81,7 @@ type SelectionProps =
    , key :: String
    , session :: Session
    , state :: T.Box ViewType
    , tasks :: T.Box GAT.Storage
    )
    corpusLayoutSelection :: R2.Leaf SelectionProps
    ......@@ -86,20 +89,25 @@ corpusLayoutSelection props = R.createElement corpusLayoutSelectionCpt props []
    corpusLayoutSelectionCpt :: R.Component SelectionProps
    corpusLayoutSelectionCpt = here.component "corpusLayoutSelection" cpt where
    cpt { nodeId, session, key, state} _ = do
    cpt { nodeId, session, key, state, tasks} _ = do
    state' <- T.useLive T.unequal state
    viewType <- T.read state
    pure $ renderContent viewType nodeId session key
    pure $ renderContent viewType nodeId session key tasks
    renderContent Folders nodeId session key = FV.folderView { nodeId, session, backFolder: true }
    renderContent Code nodeId session key = corpusLayoutWithKey { key, nodeId, session }
    renderContent Folders nodeId session key tasks = FV.folderView { nodeId, session, backFolder: true, tasks }
    renderContent Code nodeId session key tasks = corpusLayoutWithKey { key, nodeId, session }
    type CorpusKeyProps =
    ( nodeId :: Int
    , key :: String
    , session :: Session
    )
    corpusLayoutWithKey :: R2.Leaf KeyProps
    corpusLayoutWithKey :: R2.Leaf CorpusKeyProps
    corpusLayoutWithKey props = R.createElement corpusLayoutWithKeyCpt props []
    corpusLayoutWithKeyCpt :: R.Component KeyProps
    corpusLayoutWithKeyCpt :: R.Component CorpusKeyProps
    corpusLayoutWithKeyCpt = here.component "corpusLayoutWithKey" cpt where
    cpt { nodeId, session } _ = do
    reload <- T.useBox T2.newReload
    ......
    src/Gargantext/Components/Nodes/Home.purs
    View file @ 47a33fae
    ......@@ -6,6 +6,7 @@ import Data.Array as Array
    import Data.Maybe (Maybe(..))
    import Data.Newtype (class Newtype)
    import Effect (Effect)
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.Data.Landing (BlockText(..), BlockTexts(..), Button(..), LandingData(..))
    import Gargantext.Components.FolderView as FV
    import Gargantext.Components.Lang (LandingLang(..))
    ......@@ -57,6 +58,7 @@ type HomeProps s l =
    , lang :: LandingLang
    , sessions :: s
    , showLogin :: l
    , tasks :: T.Box GAT.Storage
    )
    homeLayout :: forall s l. T.Read s Sessions => T.ReadWrite l Boolean
    ......@@ -66,7 +68,7 @@ homeLayoutCpt :: forall s l. T.Read s Sessions => T.ReadWrite l Boolean
    => R.Component (HomeProps s l)
    homeLayoutCpt = here.component "homeLayout" cpt
    where
    cpt { backend, lang, sessions, showLogin } _ = do
    cpt { backend, lang, sessions, showLogin, tasks} _ = do
    backend' <- T.useLive T.unequal backend
    sessions' <- T.useLive T.unequal sessions
    let landingData = langLandingData lang
    ......@@ -75,7 +77,7 @@ homeLayoutCpt = here.component "homeLayout" cpt
    [ H.div { className: "home-title container1" }
    [ jumboTitle landingData ]
    , H.div { className: "home-research-form container1" } [] -- TODO
    , joinButtonOrTutorial sessions' (click backend')
    , joinButtonOrTutorial tasks sessions' (click backend')
    , H.div { className: "home-public container1" }
    [ renderPublic { }
    , H.div { className:"col-12 d-flex justify-content-center" }
    ......@@ -96,11 +98,11 @@ homeLayoutCpt = here.component "homeLayout" cpt
    T.write_ true showLogin
    Just b -> T.write_ true showLogin
    joinButtonOrTutorial :: forall e. Sessions -> (e -> Effect Unit) -> R.Element
    joinButtonOrTutorial sessions click =
    joinButtonOrTutorial :: forall e. T.Box GAT.Storage -> Sessions -> (e -> Effect Unit) -> R.Element
    joinButtonOrTutorial tasks sessions click =
    if Sessions.null sessions
    then joinButton click
    else tutorial {sessions: Sessions.unSessions sessions}
    else tutorial {tasks, sessions: Sessions.unSessions sessions}
    joinButton :: forall e. (e -> Effect Unit) -> R.Element
    joinButton click =
    ......@@ -146,12 +148,12 @@ summary =
    , H.ol {} (map toSummary tutos) ] ]
    toSummary (Tuto x) = H.li {} [ H.a {href: "#" <> x.id} [ H.text x.title ]]
    tutorial :: R2.Leaf (sessions :: Array Session)
    tutorial :: R2.Leaf (sessions :: Array Session, tasks :: T.Box GAT.Storage)
    tutorial props = R.createElement tutorialCpt props []
    tutorialCpt :: R.Component (sessions :: Array Session)
    tutorialCpt :: R.Component (sessions :: Array Session, tasks:: T.Box GAT.Storage)
    tutorialCpt = here.component "tutorial" cpt where
    cpt {sessions} _ = do
    cpt {sessions, tasks} _ = do
    let folders = makeFolders sessions
    pure $ H.div { className: "mx-auto container" }
    ......@@ -176,7 +178,7 @@ tutorialCpt = here.component "tutorial" cpt where
    sessionToFolder session@(Session {treeId, username, backend: (Backend {name})}) =
    H.tr {} [
    H.div { className: "d-flex justify-content-center" } [ H.text (username <> "@" <> name) ]
    , H.div {} [ FV.folderView {session, nodeId: treeId, backFolder: false} ] ]
    , H.div {} [ FV.folderView {session, tasks, nodeId: treeId, backFolder: false} ] ]
    startTutos :: Array Tuto
    startTutos =
    ......
    src/Gargantext/Components/Router.purs
    View file @ 47a33fae
    ......@@ -279,7 +279,7 @@ corpusCpt = here.component "corpus" cpt where
    cpt props@{ boxes, nodeId } _ = do
    let sessionProps = RE.pick props :: Record SessionProps
    pure $ authed (Record.merge { content: \session ->
    corpusLayout { nodeId, session } } sessionProps) []
    corpusLayout { nodeId, session, tasks: boxes.tasks } } sessionProps) []
    type CorpusDocumentProps =
    ( corpusId :: CorpusId
    ......@@ -340,8 +340,8 @@ home :: R2.Component Props
    home = R.createElement homeCpt
    homeCpt :: R.Component Props
    homeCpt = here.component "home" cpt where
    cpt props@{ boxes: boxes@{ backend, sessions, showLogin } } _ = do
    pure $ homeLayout { backend, lang: LL_EN, sessions, showLogin }
    cpt props@{ boxes: boxes@{ backend, sessions, showLogin, tasks } } _ = do
    pure $ homeLayout { backend, lang: LL_EN, sessions, showLogin, tasks }
    lists :: R2.Component SessionNodeProps
    lists = R.createElement listsCpt
    ......@@ -410,7 +410,7 @@ teamCpt = here.component "team" cpt where
    cpt props@{ boxes, nodeId } _ = do
    let sessionProps = RE.pick props :: Record SessionProps
    pure $ authed (Record.merge { content: \session ->
    corpusLayout { nodeId, session } } sessionProps) []
    corpusLayout { nodeId, session, tasks: boxes.tasks} } sessionProps) []
    texts :: R2.Component SessionNodeProps
    texts = R.createElement textsCpt
    ......
    src/sass/_folder_view.sass
    View file @ 47a33fae
    .folders
    .fv.folders
    display: grid
    grid-template-columns: 100px 100px 100px
    gap: 25px
    margin: 10px 0px
    \ No newline at end of file
    margin: 20px 0px
    .fv.action
    position: relative
    left: 100px
    top: -15px
    color: blue
    .fv.btn
    size: 100%
    width:100%
    \ No newline at end of file
    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