Skip to content

haskell-gargantext
haskell-gargantext
Commit e1637133 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[GRAPH] Title + Legend cosmetics.

parent 63f7002e
Pipeline #164 failed with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 5 deletions
    src/Gargantext/API/Node.hs
    View file @ e1637133
    ...@@ -254,12 +254,10 @@ graphAPI nId = do ...@@ -254,12 +254,10 @@ graphAPI nId = do
    nodeGraph <- getNode nId HyperdataGraph nodeGraph <- getNode nId HyperdataGraph
    let title = "IMT - Scientific publications - 1982-2017 - English" let title = "Graph Title"
    let metadata = GraphMetadata title [maybe 0 identity $ _node_parentId nodeGraph] let metadata = GraphMetadata title [maybe 0 identity $ _node_parentId nodeGraph]
    [ LegendField 6 "#FFF" "Data processing" [ LegendField 1 "#FFF" "Cluster"
    , LegendField 7 "#FFF" "Networks" , LegendField 2 "#FFF" "Cluster"
    , LegendField 1 "#FFF" "Material science"
    , LegendField 5 "#FFF" "Energy / Environment"
    ] ]
    -- (map (\n -> LegendField n "#FFFFFF" (pack $ show n)) [1..10]) -- (map (\n -> LegendField n "#FFFFFF" (pack $ show n)) [1..10])
    let cId = maybe (panic "no parentId") identity $ _node_parentId nodeGraph let cId = maybe (panic "no parentId") identity $ _node_parentId nodeGraph
    ......
    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