Skip to content

P
purescript-gargantext
Commit 138dba79 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[ihaskell] some frame notebook work

parent d5d21e67
Pipeline #2764 failed with stage
    in 0 seconds
    Show whitespace changes
    Inline Side-by-side
    Showing with 55 additions and 55 deletions
    src/Gargantext/Components/Forest/Tree/Node/Settings.purs
    View file @ 138dba79
    ......@@ -188,6 +188,7 @@ settingsBox Corpus =
    , NodeFrameWrite
    , NodeFrameCalc
    , Phylo
    , NodeFrameNotebook
    ]
    , Link (linkParams Annuaire)
    , Move moveParameters
    ......
    src/Gargantext/Components/Nodes/Frame.purs
    View file @ 138dba79
    ......@@ -83,7 +83,7 @@ type Base = String
    type FrameId = String
    hframeUrl :: NodeType -> Base -> FrameId -> String
    hframeUrl NodeFrameNotebook _ frame_id = frame_id -- Temp fix : frame_id is currently the whole url created
    hframeUrl NodeFrameNotebook _ frame_id = base <> "/" <> frame_id -- Temp fix : frame_id is currently the whole url created
    hframeUrl NodeFrameCalc base frame_id = base <> "/" <> frame_id
    hframeUrl NodeFrameVisio base frame_id = base <> "/" <> frame_id
    hframeUrl _ base frame_id = base <> "/" <> frame_id <> "?view" -- "?both"
    ......
    src/Gargantext/Types.purs
    View file @ 138dba79
    ......@@ -356,7 +356,6 @@ getIcon NodeFrameVisio true = "video-camera"
    getIcon NodeFrameVisio false = "video-camera"
    getIcon (NodePublic nt) b = getIcon nt b
    getIcon _ true = "folder-open"
    ......
    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