Skip to content

P
purescript-gargantext
Verified Commit 263c5db9 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

Merge branch 'dev' into dev-searx-parser

parents 9b74edb0 fc5f4032
Pipeline #1818 canceled with stage
    Expand all Hide whitespace changes
    Inline Side-by-side
    Showing with 3381 additions and 1320 deletions
    .envrc 0 → 100644
    View file @ 263c5db9
    use nix
    .psc-package/local/.set/packages.json
    View file @ 263c5db9
    This diff is collapsed.
    dist/styles/bootstrap-darkster.css
    View file @ 263c5db9
    ......@@ -9998,23 +9998,40 @@ h3 {
    }
    .right-handed .forest-layout {
    border-right: 1px solid #000;
    }
    .right-handed .forest-layout:hover {
    border-right: 1px solid #dee2e6;
    border-right: 2px solid #dee2e6;
    }
    .left-handed .forest-layout {
    border-left: 1px solid #000;
    }
    .left-handed .forest-layout:hover {
    border-left: 1px solid #dee2e6;
    border-left: 2px solid #dee2e6;
    }
    .forest-layout-teaser {
    .forest-layout-bottom-teaser {
    background: linear-gradient(to bottom, rgba(0, 0, 0, 0) 0%, black 45%);
    }
    .forest-layout-top-teaser {
    background: linear-gradient(to top, rgba(0, 0, 0, 0) 0%, black 45%);
    }
    .main-page__horizontal-tiles {
    border-top: 2px solid #dee2e6;
    }
    .main-page__horizontal-tiles .tile-block:not(:first-child) {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles .tile-block:not(:first-child) {
    border-top: 2px solid #dee2e6;
    }
    .tile-menu__popover {
    border-radius: 0.25rem;
    background-color: #000;
    }
    .navbar-dark.bg-primary {
    background-color: #111111 !important;
    }
    ......
    dist/styles/bootstrap-default.css
    View file @ 263c5db9
    ......@@ -9950,21 +9950,38 @@ h3 {
    }
    .right-handed .forest-layout {
    border-right: 1px solid #fff;
    }
    .right-handed .forest-layout:hover {
    border-right: 1px solid #dee2e6;
    border-right: 2px solid #dee2e6;
    }
    .left-handed .forest-layout {
    border-left: 1px solid #fff;
    }
    .left-handed .forest-layout:hover {
    border-left: 1px solid #dee2e6;
    border-left: 2px solid #dee2e6;
    }
    .forest-layout-teaser {
    .forest-layout-bottom-teaser {
    background: linear-gradient(to bottom, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .forest-layout-top-teaser {
    background: linear-gradient(to top, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .main-page__horizontal-tiles {
    border-top: 2px solid #dee2e6;
    }
    .main-page__horizontal-tiles .tile-block:not(:first-child) {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles .tile-block:not(:first-child) {
    border-top: 2px solid #dee2e6;
    }
    .tile-menu__popover {
    border-radius: 0.25rem;
    background-color: #fff;
    }
    /*# sourceMappingURL=bootstrap-default.css.map */
    dist/styles/bootstrap-greyson.css
    View file @ 263c5db9
    ......@@ -9706,21 +9706,38 @@ h3 {
    }
    .right-handed .forest-layout {
    border-right: 1px solid #fff;
    }
    .right-handed .forest-layout:hover {
    border-right: 1px solid #dee2e6;
    border-right: 2px solid #dee2e6;
    }
    .left-handed .forest-layout {
    border-left: 1px solid #fff;
    }
    .left-handed .forest-layout:hover {
    border-left: 1px solid #dee2e6;
    border-left: 2px solid #dee2e6;
    }
    .forest-layout-teaser {
    .forest-layout-bottom-teaser {
    background: linear-gradient(to bottom, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .forest-layout-top-teaser {
    background: linear-gradient(to top, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .main-page__horizontal-tiles {
    border-top: 2px solid #dee2e6;
    }
    .main-page__horizontal-tiles .tile-block:not(:first-child) {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles .tile-block:not(:first-child) {
    border-top: 2px solid #dee2e6;
    }
    .tile-menu__popover {
    border-radius: 0.25rem;
    background-color: #fff;
    }
    /*# sourceMappingURL=bootstrap-greyson.css.map */
    dist/styles/bootstrap-herbie.css
    View file @ 263c5db9
    ......@@ -9938,21 +9938,38 @@ h3 {
    }
    .right-handed .forest-layout {
    border-right: 1px solid #fff;
    }
    .right-handed .forest-layout:hover {
    border-right: 1px solid #dee2e6;
    border-right: 2px solid #dee2e6;
    }
    .left-handed .forest-layout {
    border-left: 1px solid #fff;
    }
    .left-handed .forest-layout:hover {
    border-left: 1px solid #dee2e6;
    border-left: 2px solid #dee2e6;
    }
    .forest-layout-teaser {
    .forest-layout-bottom-teaser {
    background: linear-gradient(to bottom, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .forest-layout-top-teaser {
    background: linear-gradient(to top, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .main-page__horizontal-tiles {
    border-top: 2px solid #dee2e6;
    }
    .main-page__horizontal-tiles .tile-block:not(:first-child) {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles .tile-block:not(:first-child) {
    border-top: 2px solid #dee2e6;
    }
    .tile-menu__popover {
    border-radius: 0.25rem;
    background-color: #fff;
    }
    /*# sourceMappingURL=bootstrap-herbie.css.map */
    dist/styles/bootstrap-monotony.css
    View file @ 263c5db9
    ......@@ -9955,21 +9955,38 @@ h3 {
    }
    .right-handed .forest-layout {
    border-right: 1px solid #fff;
    }
    .right-handed .forest-layout:hover {
    border-right: 1px solid #dee2e6;
    border-right: 2px solid #dee2e6;
    }
    .left-handed .forest-layout {
    border-left: 1px solid #fff;
    }
    .left-handed .forest-layout:hover {
    border-left: 1px solid #dee2e6;
    border-left: 2px solid #dee2e6;
    }
    .forest-layout-teaser {
    .forest-layout-bottom-teaser {
    background: linear-gradient(to bottom, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .forest-layout-top-teaser {
    background: linear-gradient(to top, rgba(255, 255, 255, 0) 0%, white 45%);
    }
    .main-page__horizontal-tiles {
    border-top: 2px solid #dee2e6;
    }
    .main-page__horizontal-tiles .tile-block:not(:first-child) {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles {
    border-left: 2px solid #dee2e6;
    }
    .main-page__vertical-tiles .tile-block:not(:first-child) {
    border-top: 2px solid #dee2e6;
    }
    .tile-menu__popover {
    border-radius: 0.25rem;
    background-color: #fff;
    }
    /*# sourceMappingURL=bootstrap-monotony.css.map */
    dist/styles/sass.css
    View file @ 263c5db9
    ......@@ -59,6 +59,10 @@
    line-height: 100%;
    }
    .tile-menu__item .fa {
    margin-right: 8px;
    }
    .context-menu {
    position: absolute;
    left: 96px;
    ......@@ -186,13 +190,6 @@
    border: 3px solid white;
    }
    #page-wrapper {
    padding-top: 40px;
    padding-left: 16px;
    padding-right: 16px;
    width: 100%;
    }
    #user-page-header {
    border-bottom: 1px solid black;
    }
    ......@@ -229,46 +226,6 @@ li#rename #rename-a {
    left: 125px;
    }
    #node-popup-tooltip {
    background-color: white;
    border-bottom-left-radius: 6px;
    border-bottom-right-radius: 6px;
    border-top-left-radius: 6px;
    border-top-right-radius: 6px;
    }
    #node-popup-tooltip:hover {
    border: none;
    text-decoration: none;
    }
    #node-popup-tooltip .popup-container {
    display: flex;
    flex-direction: colum;
    }
    #node-popup-tooltip .popup-container > .card {
    border: 1px solid rgba(0, 0, 0, 0.2);
    box-shadow: 0 2px 5px rgba(0, 0, 0, 0.2);
    margin-bottom: 0px;
    width: 34rem;
    }
    #node-popup-tooltip .popup-container > .card .fa-pencil {
    color: black;
    }
    #node-popup-tooltip .popup-container > .card .card-body {
    display: flex;
    justify-content: center;
    background-color: white;
    border: none;
    }
    #node-popup-tooltip .popup-container > .card .card-body .spacer {
    margin: 10px;
    }
    #node-popup-tooltip .popup-container .frame-search.card {
    border: 1px solid rgba(0, 0, 0, 0.2);
    box-shadow: 0 2px 5px rgba(0, 0, 0, 0.2);
    height: 600px;
    width: 1000px;
    }
    #create-node-tooltip {
    position: absolute;
    left: 96px;
    ......@@ -392,10 +349,6 @@ li .leaf:hover a.settings {
    visibility: visible;
    }
    .forest-layout-content > .tree {
    margin-top: 20px;
    }
    .tree ul li {
    position: relative;
    }
    ......@@ -488,6 +441,63 @@ li .leaf:hover a.settings {
    text-decoration: underline;
    }
    .subtree__node {
    margin-top: 2px;
    }
    .subtree__node__text {
    display: flex;
    align-items: center;
    cursor: pointer;
    font-size: 15px;
    }
    .subtree__node__icons {
    display: flex;
    }
    .subtree__node__icons .fa {
    margin-left: 2px;
    margin-right: 2px;
    }
    .subtree__node--can-be-selected {
    text-decoration: underline;
    text-underline-offset: 2px;
    }
    .right-handed .subtree__node__text {
    flex-direction: row;
    text-align: left;
    }
    .right-handed .subtree__node__icons {
    flex-direction: row;
    }
    .right-handed .subtree__node__children > .subtree__node {
    padding-left: 16px;
    }
    .left-handed .subtree__node__text {
    flex-direction: row-reverse;
    text-align: right;
    }
    .left-handed .subtree__node__icons {
    flex-direction: row-reverse;
    }
    .left-handed .subtree__node__children > .subtree__node {
    padding-right: 20px;
    }
    .node-text {
    display: inline-flex;
    }
    .node-text--selected {
    font-weight: bold;
    text-decoration: underline;
    }
    .right-handed .node-text {
    flex-direction: row;
    }
    .left-handed .node-text {
    flex-direction: row-reverse;
    }
    .progress-pie {
    background: rgba(51, 122, 183, 0.1);
    border-radius: 100%;
    ......@@ -527,14 +537,13 @@ li .leaf:hover a.settings {
    #node-popup-tooltip {
    position: fixed;
    background-color: white;
    border-radius: 6px;
    }
    #node-popup-tooltip .tree .node {
    margin-top: 5px;
    }
    #node-popup-tooltip .tree .children .node {
    padding-left: 15px;
    #node-popup-tooltip:hover {
    border: none;
    text-decoration: none;
    }
    .right-handed #node-popup-tooltip {
    top: 50%;
    left: 16.6666666667%;
    ......@@ -547,21 +556,51 @@ li .leaf:hover a.settings {
    transform: translateY(-50%);
    }
    .panel-actions .almost-useable {
    #node-popup-tooltip .tree .node {
    margin-top: 5px;
    }
    #node-popup-tooltip .tree .children .node {
    padding-left: 15px;
    }
    #node-popup-tooltip .panel-actions .almost-useable {
    color: orange;
    }
    .panel-actions .development-in-progress {
    #node-popup-tooltip .panel-actions .development-in-progress {
    color: red;
    }
    .panel-actions .ok-to-use {
    #node-popup-tooltip .panel-actions .ok-to-use {
    color: black;
    }
    .popup-container > .card {
    #node-popup-tooltip .popup-container {
    display: flex;
    flex-direction: colum;
    }
    #node-popup-tooltip .popup-container > .card {
    width: auto !important;
    min-width: 544px;
    border: 1px solid rgba(0, 0, 0, 0.2);
    box-shadow: 0 2px 5px rgba(0, 0, 0, 0.2);
    margin-bottom: initial;
    }
    .popup-container-body {
    #node-popup-tooltip .popup-container > .card .fa-pencil {
    color: black;
    }
    #node-popup-tooltip .popup-container > .card .card-body {
    display: flex;
    justify-content: center;
    background-color: white;
    border: none;
    }
    #node-popup-tooltip .popup-container > .card .card-body .spacer {
    margin: 8px;
    }
    #node-popup-tooltip .popup-container .frame-search.card {
    border: 1px solid rgba(0, 0, 0, 0.2);
    box-shadow: 0 2px 5px rgba(0, 0, 0, 0.2);
    height: 600px;
    width: 1000px;
    }
    #node-popup-tooltip .popup-container-body {
    max-height: 70vh;
    overflow-y: auto;
    }
    ......@@ -572,7 +611,6 @@ li .leaf:hover a.settings {
    }
    .forest-layout {
    padding-top: 8px;
    z-index: 909;
    position: fixed;
    height: calc(100vh - 56px);
    ......@@ -587,30 +625,88 @@ li .leaf:hover a.settings {
    display: none;
    }
    .forest-layout-teaser {
    .forest-layout-action {
    display: flex;
    }
    .right-handed .forest-layout-action {
    padding-left: 16px;
    padding-right: 8px;
    }
    .left-handed .forest-layout-action {
    padding-left: 8px;
    padding-right: 16px;
    }
    .right-handed .forest-layout-action {
    flex-direction: row;
    }
    .right-handed .forest-layout-action__button {
    margin-right: 16px;
    }
    .left-handed .forest-layout-action {
    flex-direction: row-reverse;
    }
    .left-handed .forest-layout-action__button {
    margin-left: 16px;
    }
    .forest-layout-bottom-teaser {
    z-index: 1;
    pointer-events: none;
    position: fixed;
    bottom: 0;
    height: 24px;
    width: calc(16.6666666667% - 1px);
    }
    .right-handed .forest-layout-bottom-teaser {
    left: 0;
    }
    .left-handed .forest-layout-bottom-teaser {
    right: 0;
    }
    .right-handed .forest-layout-teaser {
    .forest-layout-top-teaser {
    z-index: 1;
    pointer-events: none;
    position: sticky;
    top: 0;
    height: 24px;
    width: calc(100% - 1px);
    }
    .right-handed .forest-layout-top-teaser {
    left: 0;
    }
    .left-handed .forest-layout-teaser {
    .left-handed .forest-layout-top-teaser {
    right: 0;
    }
    .left-handed .forest-layout {
    .forest-layout-content > ul.tree {
    margin-top: 24px;
    margin-bottom: 0;
    }
    .right-handed .forest-layout-content > ul.tree {
    padding-left: 16px;
    padding-right: 8px;
    }
    .left-handed .forest-layout-content > ul.tree {
    padding-left: 8px;
    padding-right: 16px;
    }
    .right-handed .forest-layout {
    padding-left: 16px;
    padding-right: 8px;
    .forest-layout-content > ul.tree:last-child {
    margin-bottom: 24px;
    }
    .ids-selector .tree .children {
    padding-left: 0.5em;
    }
    .ids-selector .tree .children .leaf input {
    margin: 0.1em;
    }
    .code-editor .editor .code-area {
    ......@@ -694,8 +790,10 @@ li .leaf:hover a.settings {
    }
    .code-editor .editor .html {
    flex-grow: 2;
    margin-left: 25px;
    padding-left: 25px;
    margin-left: 8px;
    margin-right: 8px;
    padding-left: 8px;
    padding-right: 8px;
    }
    .code-editor .editor .html.language-haskell {
    font-family: Fira code, Fira Mono, Consolas, Menlo, Courier, monospace;
    ......@@ -715,6 +813,12 @@ li .leaf:hover a.settings {
    .code-editor .editor .html.language-md ol li {
    list-style: decimal !important;
    }
    .code-editor__toolbar {
    margin-bottom: 20px;
    }
    .code-editor__toolbar__type {
    width: 200px;
    }
    .cache-toggle {
    cursor: pointer;
    ......@@ -848,6 +952,79 @@ ul li {
    flex-direction: row;
    }
    .main-page {
    flex-grow: 1;
    }
    .main-page__main-row {
    display: flex;
    }
    .main-page__main-row--with-y-tiles .main-page__main-route {
    width: 60%;
    }
    .main-page__main-row--with-y-tiles .main-page__vertical-tiles {
    width: 40%;
    }
    .main-page__main-row--only-y-tiles {
    min-height: calc( 100vh - 56px);
    }
    .main-page__main-route {
    padding: 24px 32px;
    width: 100%;
    }
    .main-page__vertical-tiles {
    display: flex;
    flex-direction: column;
    }
    .main-page__horizontal-tiles {
    display: flex;
    flex-direction: row;
    }
    .main-page__horizontal-tiles--1 .tile-block {
    width: calc( 100% / 1);
    }
    .main-page__horizontal-tiles--2 .tile-block {
    width: calc( 100% / 2);
    }
    .main-page__horizontal-tiles--3 .tile-block {
    width: calc( 100% / 3);
    }
    .main-page__horizontal-tiles--4 .tile-block {
    width: calc( 100% / 4);
    }
    .main-page__horizontal-tiles--5 .tile-block {
    width: calc( 100% / 5);
    }
    .main-page__horizontal-tiles--6 .tile-block {
    width: calc( 100% / 6);
    }
    .main-page__horizontal-tiles--7 .tile-block {
    width: calc( 100% / 7);
    }
    .main-page__horizontal-tiles--8 .tile-block {
    width: calc( 100% / 8);
    }
    .main-page__horizontal-tiles--9 .tile-block {
    width: calc( 100% / 9);
    }
    .main-page__horizontal-tiles--10 .tile-block {
    width: calc( 100% / 10);
    }
    .tile-block__header {
    display: flex;
    }
    .right-handed .tile-block__header {
    justify-content: flex-end;
    }
    .left-handed .tile-block__header {
    justify-content: flex-start;
    }
    .tile-block__body {
    padding: 4px 16px 12px;
    }
    .range {
    width: 400px;
    /* some space for the right knob */
    ......
    dist/styles/sass.css.map
    View file @ 263c5db9
    {"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;EACE;EACA;EACA;EACA;EAEA;;;AAEF;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;;;ACrDF;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;;;ACjFJ;EACE;;AACA;EACE;EACA;;;AAEJ;EACE;EACA;EACA;EACA;;;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;;;ACvKF;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;;;AAEN;EAWE;;AAGE;EACE;;AAEA;EACE;;;AAUR;EAEE;EACA,MAFW;EAGX;;;AAEF;EAEE;EACA,OAFW;EAGX;;;AAGA;EACE;;AACF;EACE;;AACF;EACE;;;AAMF;EACE;;;AAEJ;EAEE;EACA;;;AAEF;EAEE;EACA;;;AAEF;EAGE;EACA;EAKA;EACA;EACA;EACA;EAGA;EACA;EACA;EAKA;;AAHA;EACE;;;AASJ;EAKE;EACA;EACA;EACA,QAPS;EAQT;;;AAGF;EACE;;;AAEF;EACE;;;AAEF;EACI;EACA;;;AACJ;EACI;EACA;;;ACxPA;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;;;AAGF;EACE;;;AAEF;EACE;;AAEA;EACE;;AAEF;EACE;;;ACnHJ;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
    {"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/abstract/_members.scss","../../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":"AAEA;AAEA;AACA;AACA;AACA;AACA;AAEA;EACE;EACA;EACA;EACA;EAEA;;;AAEF;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;;;AAME;EACE;;;AC9DN;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;;;ACjFJ;EACE;;AACA;EACE;EACA;;;AAEJ;EACE;;;AAEF;EACE;;;AAEF;EACE;;;AAGF;EACE;;AAEE;EACE;EACA;;AACA;EACE;;;AAIJ;EACE;EACA;EACA;EACA;;;AAKJ;EACE;EACA;EACA;;;AAEJ;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;;;AC1GF;EACE;;;AAGA;EACE;EACA;EACA;;AAEA;EACE;EACA;;AAGA;EACE;;AACF;EACE;;AAEJ;EACE;EACA;EACA;EACA;EACA;EACA;;AAEA;EACE;;;AAKJ;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;;;AAMN;EACE;;AAEA;EACE;EACA;EACA;EACA;;AAEF;EACE;;AAEA;EACE;EACA;;AAEJ;EACE;EACA;;AAIA;EACE;EACA;;AAEF;EACE;;AAEF;EACE;;;AAIF;EACE;EACA;;AAEF;EACE;;AAEF;EACE;;;AAGR;EACE;;AAEA;EACE;EACA;;ACrJO;EDwJP;;;ACjKO;EDoKP;;;AAKJ;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;;;AAEN;EAWE;EAGA;EACA,eAvPkB;;AAyPlB;EACE;EACA;;ACxNO;EDqOP;EACA,MAFW;EAGX;;;AChPO;EDoPP;EACA,OAFW;EAGX;;;AAGA;EACE;;AAEA;EACE;;AAGJ;EACE;;AACF;EACE;;AACF;EACE;;AAGJ;EACE;EACA;;AAEA;EAGE;EACA,WAzSa;EA4Sb;EACA;EACA;;AAEA;EACE;;AAEF;EACE;EACA;EACA;EACA;;AACA;EACE;;AAEN;EACE;EACA;EACA;EACA;;AAEJ;EAEE;EACA;;;AAEJ;EAEE;EACA;;;AAEF;EAGE;EAKA;EACA;EACA;EACA;EAGA;EACA;EACA;EAKA;;AAHA;EACE;;;AAKJ;EAGE;;ACpUS;ED5BP;EACA;;;ACkBO;EDfP;EACA;;;ACuBO;EDuUP;;AAEA;EACE;;;ACnVK;EDsVP;;AAEA;EACE;;;AAON;EAIE;EAEA;EACA;EACA;EACA,QApYmC;EAqYnC;;ACjWS;EDqWP;;;AC9WO;EDiXP;;;AAEJ;EAGE;EAEA;EACA;EACA;EACA,QAvZgC;EAwZhC;;ACnXS;EDuXP;;;AChYO;EDmYP;;;AAKF;EAIE;EACA;;ACpYO;ED5BP;EACA;;;ACkBO;EDfP;EACA;;;AA6ZA;EACE,eA3a+B;;;AAibjC;EACE;;AAEE;EACE;;;AE/ZN;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;EACA;EACA;;AACA;EACE;EACA;;AACF;EACE;EACA;;AACF;EACE;EACA;;AAGE;EACE;;AAEF;EACE;;AAEV;EACE;;AAEA;EACE;;;AC9FN;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;;;AAGF;EACE;;;AAEF;EACE;;AAEA;EACE;;AAEF;EACE;;;AAGJ;EAKE;;AAEA;EACE;;AAIE;EACE;;AACF;EACE;;AAEJ;EAGE;;AAGJ;EACE,SAtBa;EAuBb;;AAGF;EACE;EACA;;AAGF;EACE;EACA;;AAKE;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;AADF;EACE;;;AAKN;EACE;;AFhIO;EEmIL;;;AF5IK;EE+IL;;;AAEJ;EACE,SAZa;;;ACpKjB;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;;;ACNxB;EACE;EACA;EACA;EACA;;;AAEF;EACE;EACA;EACA;EACA;;;AAEF;EACE;EACA","file":"sass.css"}
    \ No newline at end of file
    nix/easy-ps.nix
    View file @ 263c5db9
    ......@@ -5,8 +5,8 @@ import
    pkgs.fetchFromGitHub {
    owner = "justinwoo";
    repo = "easy-purescript-nix";
    rev = "bbef4245cd6810ea84e97a47c801947bfec9fadc";
    sha256 = "00764zbwhbn61jwb5px2syzi2f9djyl8fmbd2p8wma985af54iwx";
    rev = "d0f592b71b2be222f8dcfb4f4cefb52608bbc1ae";
    sha256 = "0bq26y836bd1y8657f182wnsl4cdr1xxbykxdgz7xm9shpii48r5";
    }
    ) {
    inherit pkgs;
    ......
    nix/purs-packages.nix
    View file @ 263c5db9
    ......@@ -75,11 +75,11 @@
    };
    "arraybuffer-types" = {
    name = "arraybuffer-types";
    version = "v3.0.0";
    version = "v3.0.1";
    src = pkgs.fetchgit {
    url = "https://github.com/purescript-contrib/purescript-arraybuffer-types.git";
    rev = "v3.0.0";
    sha256 = "19dh4k3n1lr8hbj15ivkiv1886s1q7brl9hic6zrkrr2rx1bz69r";
    rev = "v3.0.1";
    sha256 = "09r6bhsiq9iqdsjf9p8m3p31qkszsipsafvy836mfdi8af6h5fv6";
    };
    };
    "arrays" = {
    ......@@ -255,11 +255,11 @@
    };
    "exists" = {
    name = "exists";
    version = "v5.0.0";
    version = "v5.1.0";
    src = pkgs.fetchgit {
    url = "https://github.com/purescript/purescript-exists.git";
    rev = "v5.0.0";
    sha256 = "1kgq09c1pzwgyx9bmi2q0i5bsv2mj3v4sfy5bivhmj5k29h66lg7";
    rev = "v5.1.0";
    sha256 = "15qp52cpp2yvxihkzfmn6gabyvx5s6iz5lafvqhyfgp4wfnz0bds";
    };
    };
    "ffi-simple" = {
    ......@@ -318,11 +318,11 @@
    };
    "form-urlencoded" = {
    name = "form-urlencoded";
    version = "v6.0.1";
    version = "v6.0.2";
    src = pkgs.fetchgit {
    url = "https://github.com/purescript-contrib/purescript-form-urlencoded.git";
    rev = "v6.0.1";
    sha256 = "0afg83r1hj68qkacf501m06nbhwl7bh5kzld6wdgvy0blhhh243r";
    rev = "v6.0.2";
    sha256 = "1pi3vxix10crisisnd94li1vmmgiawlh5lgl51z7ssd9azygg0b0";
    };
    };
    "formula" = {
    ......@@ -642,11 +642,11 @@
    };
    "parsing" = {
    name = "parsing";
    version = "v6.0.1";
    version = "v6.0.2";
    src = pkgs.fetchgit {
    url = "https://github.com/purescript-contrib/purescript-parsing.git";
    rev = "v6.0.1";
    sha256 = "0vj01fw3nbgssvdl72zcjjc0gil6qcrb9irsxawsa2f5s97qq38c";
    rev = "v6.0.2";
    sha256 = "0lhri5bfk4j6dgzi4d5gvmd628hjs9jgyky910ylj6qzalw9fj56";
    };
    };
    "partial" = {
    ......@@ -750,11 +750,11 @@
    };
    "reactix" = {
    name = "reactix";
    version = "v0.4.12";
    version = "v0.4.13";
    src = pkgs.fetchgit {
    url = "https://github.com/irresponsible/purescript-reactix";
    rev = "v0.4.12";
    sha256 = "0xm01r4b7k54qyrs4v76i2ybqdkyg11hsay47l71z9qbnzzpsrff";
    url = "https://github.com/poorscript/purescript-reactix";
    rev = "v0.4.13";
    sha256 = "0b4hjwcw8y55p6iiyygzpw7c1jyh01nhmpszs7fnadjbg9x6d9d3";
    };
    };
    "read" = {
    ......@@ -975,11 +975,11 @@
    };
    "transformers" = {
    name = "transformers";
    version = "v5.1.0";
    version = "v5.2.0";
    src = pkgs.fetchgit {
    url = "https://github.com/purescript/purescript-transformers.git";
    rev = "v5.1.0";
    sha256 = "15ac1jia665mglxscj3gmbg4xmlnf7xgsrkh6mvx4ayvar529xzc";
    rev = "v5.2.0";
    sha256 = "0lggimnq016v98ib6h68gnciraambxrfqm2s033wm34srcy8xs06";
    };
    };
    "tuples" = {
    ......@@ -1092,11 +1092,11 @@
    };
    "variant" = {
    name = "variant";
    version = "v7.0.2";
    version = "v7.0.3";
    src = pkgs.fetchgit {
    url = "https://github.com/natefaubion/purescript-variant.git";
    rev = "v7.0.2";
    sha256 = "0a555fa2d8kd6rzfv9w64aphr7n6x0cizfp7n71wh5jw07b7hn5y";
    rev = "v7.0.3";
    sha256 = "1q2pky3gf177ihy2zjzqvp1cj18ycaki9vm4ghw18p7hf256lqmc";
    };
    };
    "versions" = {
    ......
    package.json
    View file @ 263c5db9
    {
    "name": "Gargantext",
    "version": "0.0.2.9.6.1",
    "version": "0.0.3.4",
    "scripts": {
    "generate-purs-packages-nix": "./nix/generate-purs-packages.nix",
    "generate-psc-packages-nix": "./nix/generate-packages-json.bash",
    ......@@ -24,13 +24,13 @@
    "prod:bundle": "pulp browserify --skip-compile -o dce-output -t app.js",
    "prod:pack": "parcel build index.html -d prod --public-url . --no-source-maps",
    "test-pulp": "pulp test",
    "test": "gauge run specs/"
    "test": "gauge run specs/"
    },
    "dependencies": {
    "@popperjs/core": "^2.9.2",
    "aes-js": "^3.1.1",
    "base-x": "^3.0.2",
    "bootstrap": "^4.6.0",
    "bootstrap": "^5.1.0",
    "bootstrap-dark": "^1.0.3",
    "create-react-class": "^15.6.3",
    "echarts": "^5.1.2",
    ......@@ -50,12 +50,12 @@
    "devDependencies": {
    "@babel/core": "^7.15.0",
    "@babel/preset-react": "^7.12.7",
    "@getgauge/cli": "^1.4.0",
    "@getgauge/cli": "^1.4.0",
    "parcel": "^2.0.0-beta.2",
    "react-testing-library": "^8.0.1",
    "sass": "^1.35.2",
    "serve": "^12.0.0",
    "taiko": "latest",
    "taiko": "latest",
    "vscode-languageserver": "^7.0.0",
    "xhr2": "^0.2.1"
    },
    ......
    packages.dhall
    View file @ 263c5db9
    let upstream =
    https://github.com/purescript/package-sets/releases/download/psc-0.14.3-20210716/packages.dhall sha256:1f9af624ddfd5352455b7ac6df714f950d499e7e3c6504f62ff467eebd11042c
    https://github.com/purescript/package-sets/releases/download/psc-0.14.4-20210826/packages.dhall sha256:eee0765aa98e0da8fc414768870ad588e7cada060f9f7c23c37385c169f74d9f
    let overrides =
    { globals =
    ......
    packages.json
    View file @ 263c5db9
    ......@@ -1080,17 +1080,6 @@
    "repo": "https://github.com/purescript/purescript-gen.git",
    "version": "v2.1.1"
    },
    "generics-rep": {
    "dependencies": [
    "enums",
    "foldable-traversable",
    "maybe",
    "newtype",
    "prelude"
    ],
    "repo": "https://github.com/purescript/purescript-generics-rep.git",
    "version": "v6.1.1"
    },
    "globals": {
    "dependencies": [
    "functions",
    ......
    shell.nix
    View file @ 263c5db9
    ......@@ -26,6 +26,17 @@ let
    browserify
    '';
    build-css = pkgs.writeShellScriptBin "build-css" ''
    #!/usr/bin/env bash
    set -e
    yarn css
    '';
    build-watch = pkgs.writeShellScriptBin "build-watch" ''
    #!/usr/bin/env bash
    set -e
    ......@@ -41,6 +52,13 @@ let
    pulp browserify --skip-compile -t dist/bundle.js --src-path output
    '';
    minify-bundle = pkgs.writeShellScriptBin "minify-bundle" ''
    #!/usr/bin/env bash
    set -e
    minify dist/bundle.js > dist/bundle.min.js
    '';
    repl = pkgs.writeShellScriptBin "repl" ''
    #!/usr/bin/env bash
    ......@@ -61,13 +79,17 @@ let
    in
    pkgs.mkShell {
    buildInputs = [
    easy-ps.purs-0_14_3
    easy-ps.purs-0_14_4
    easy-ps.psc-package
    easy-ps.dhall-json-simple
    browserify
    build-css
    build-purs
    build-watch
    build
    minify-bundle
    pkgs.minify
    pkgs.nodejs
    repl
    pkgs.pulp
    pkgs.spago
    ......
    spago.dhall
    View file @ 263c5db9
    ......@@ -88,6 +88,7 @@ to generate this file without the comments in this block.
    , "unfoldable"
    , "unsafe-coerce"
    , "uri"
    , "uuid"
    , "web-file"
    , "web-html"
    , "web-storage"
    ......
    src/Gargantext/Components/App/Data.purs
    View file @ 263c5db9
    ......@@ -11,7 +11,7 @@ import Gargantext.Components.GraphExplorer.Sidebar.Types as GEST
    import Gargantext.Components.Nodes.Lists.Types as ListsT
    import Gargantext.Components.Nodes.Texts.Types as TextsT
    import Gargantext.Ends (Backend)
    import Gargantext.Routes (AppRoute(Home))
    import Gargantext.Routes (AppRoute(Home), Tile)
    import Gargantext.Sessions (Session, Sessions)
    import Gargantext.Sessions as Sessions
    import Gargantext.Sessions.Types (OpenNodes(..))
    ......@@ -19,68 +19,74 @@ import Gargantext.Types (FrontendError, Handed(RightHanded), SidePanelState(..))
    import Gargantext.Utils.Toestand as T2
    type App =
    { backend :: Maybe Backend
    , errors :: Array FrontendError
    , forestOpen :: OpenNodes
    , graphVersion :: T2.Reload
    , handed :: Handed
    , reloadForest :: T2.Reload
    , reloadMainPage :: T2.Reload
    , reloadRoot :: T2.Reload
    , route :: AppRoute
    , session :: Maybe Session
    , sessions :: Sessions
    , showCorpus :: Boolean
    , showLogin :: Boolean
    , showTree :: Boolean
    , sidePanelGraph :: Maybe (Record GEST.SidePanel)
    , sidePanelLists :: Maybe (Record ListsT.SidePanel)
    , sidePanelTexts :: Maybe (Record TextsT.SidePanel)
    , sidePanelState :: SidePanelState
    , tasks :: GAT.Storage
    { backend :: Maybe Backend
    , errors :: Array FrontendError
    , forestOpen :: OpenNodes
    , graphVersion :: T2.Reload
    , handed :: Handed
    , reloadForest :: T2.Reload
    , reloadMainPage :: T2.Reload
    , reloadRoot :: T2.Reload
    , route :: AppRoute
    , session :: Maybe Session
    , sessions :: Sessions
    , showCorpus :: Boolean
    , showLogin :: Boolean
    , showTree :: Boolean
    , sidePanelGraph :: Maybe (Record GEST.SidePanel)
    , sidePanelLists :: Maybe (Record ListsT.SidePanel)
    , sidePanelTexts :: Maybe (Record TextsT.SidePanel)
    , sidePanelState :: SidePanelState
    , tasks :: GAT.Storage
    , tileAxisXList :: Array (Record Tile)
    , tileAxisYList :: Array (Record Tile)
    }
    emptyApp :: App
    emptyApp =
    { backend : Nothing
    , errors : []
    , forestOpen : OpenNodes $ Set.empty
    , graphVersion : T2.newReload
    , handed : RightHanded
    , reloadForest : T2.newReload
    , reloadMainPage : T2.newReload
    , reloadRoot : T2.newReload
    , route : Home
    , session : Nothing
    , sessions : Sessions.empty
    , showCorpus : false
    , showLogin : false
    , showTree : true
    , sidePanelGraph : GEST.initialSidePanel
    , sidePanelLists : ListsT.initialSidePanel
    , sidePanelTexts : TextsT.initialSidePanel
    , sidePanelState : InitialClosed
    , tasks : GAT.empty
    { backend : Nothing
    , errors : []
    , forestOpen : OpenNodes $ Set.empty
    , graphVersion : T2.newReload
    , handed : RightHanded
    , reloadForest : T2.newReload
    , reloadMainPage : T2.newReload
    , reloadRoot : T2.newReload
    , route : Home
    , session : Nothing
    , sessions : Sessions.empty
    , showCorpus : false
    , showLogin : false
    , showTree : true
    , sidePanelGraph : GEST.initialSidePanel
    , sidePanelLists : ListsT.initialSidePanel
    , sidePanelTexts : TextsT.initialSidePanel
    , sidePanelState : InitialClosed
    , tasks : GAT.empty
    , tileAxisXList : mempty
    , tileAxisYList : mempty
    }
    type Boxes =
    { backend :: T.Box (Maybe Backend)
    , errors :: T.Box (Array FrontendError)
    , forestOpen :: T.Box OpenNodes
    , graphVersion :: T2.ReloadS
    , handed :: T.Box Handed
    , reloadForest :: T2.ReloadS
    , reloadMainPage :: T2.ReloadS
    , reloadRoot :: T2.ReloadS
    , route :: T.Box AppRoute
    , session :: T.Box (Maybe Session)
    , sessions :: T.Box Sessions
    , showCorpus :: T.Box Boolean
    , showLogin :: T.Box Boolean
    , showTree :: T.Box Boolean
    , sidePanelGraph :: T.Box (Maybe (Record GEST.SidePanel))
    , sidePanelLists :: T.Box (Maybe (Record ListsT.SidePanel))
    , sidePanelTexts :: T.Box (Maybe (Record TextsT.SidePanel))
    , sidePanelState :: T.Box SidePanelState
    , tasks :: T.Box GAT.Storage
    { backend :: T.Box (Maybe Backend)
    , errors :: T.Box (Array FrontendError)
    , forestOpen :: T.Box OpenNodes
    , graphVersion :: T2.ReloadS
    , handed :: T.Box Handed
    , reloadForest :: T2.ReloadS
    , reloadMainPage :: T2.ReloadS
    , reloadRoot :: T2.ReloadS
    , route :: T.Box AppRoute
    , session :: T.Box (Maybe Session)
    , sessions :: T.Box Sessions
    , showCorpus :: T.Box Boolean
    , showLogin :: T.Box Boolean
    , showTree :: T.Box Boolean
    , sidePanelGraph :: T.Box (Maybe (Record GEST.SidePanel))
    , sidePanelLists :: T.Box (Maybe (Record ListsT.SidePanel))
    , sidePanelTexts :: T.Box (Maybe (Record TextsT.SidePanel))
    , sidePanelState :: T.Box SidePanelState
    , tasks :: T.Box GAT.Storage
    , tileAxisXList :: T.Box (Array (Record Tile))
    , tileAxisYList :: T.Box (Array (Record Tile))
    }
    src/Gargantext/Components/CodeEditor.purs
    View file @ 263c5db9
    ......@@ -123,9 +123,9 @@ codeEditorCpt = here.component "codeEditor" cpt
    pure $ H.div { className: "code-editor" }
    [ toolbar { controls, onChange }
    , H.div { className: "row error" }
    , H.div { className: "row no-gutters error" }
    [ errorComponent {error: controls.error} ]
    , H.div { className: "row editor" }
    , H.div { className: "row no-gutters editor" }
    [ H.div { className: "code-area " <> (codeHidden viewType') }
    [ H.div { className: "code-container" }
    [ H.textarea { defaultValue: codeS'
    ......@@ -217,15 +217,15 @@ toolbarCpt = here.component "toolbar" cpt
    codeType' <- T.useLive T.unequal codeType
    pure $
    H.div { className: "row toolbar" }
    [ H.div { className: "col-2" }
    H.div { className: "row no-gutters align-items-center mb-3 code-editor__toolbar" }
    [ H.div { className: "code-editor__toolbar__type" }
    [ codeTypeSelector {
    codeType
    -- Handle rerendering of preview when viewType changed
    , onChange: \ct -> onChange ct codeS'
    }
    ]
    , H.div { className: "col-1" }
    , H.div {}
    [ viewTypeSelector {state: viewType} [] ]
    ]
    ......@@ -246,7 +246,7 @@ errorComponentCpt = here.component "errorComponent" cpt
    pure $ case error' of
    Nothing -> H.div {} []
    Just err -> H.div { className: "text-danger" } [ H.text err ]
    Just err -> H.div { className: "text-danger mb-3" } [ H.text err ]
    type CodeTypeSelectorProps =
    ......
    src/Gargantext/Components/DocsTable.purs
    View file @ 263c5db9
    ......@@ -3,7 +3,6 @@ module Gargantext.Components.DocsTable where
    import Gargantext.Prelude
    import DOM.Simple.Console (log2)
    import DOM.Simple.Event as DE
    import Data.Array as A
    import Data.Either (Either)
    ......@@ -276,8 +275,10 @@ pageLayoutCpt = here.component "pageLayout" cpt where
    handleResponse :: HashedResponse (TableResult Response) -> Tuple Int (Array DocumentsView)
    handleResponse (HashedResponse { hash, value: res }) = ret
    where
    filters = filterDocs query
    filterDocs' q ds = case cacheState' of
    NT.CacheOff -> ds
    NT.CacheOn -> filterDocs q ds
    filters = filterDocs' query
    >>> \res' -> case yearFilter' of
    Nothing -> res'
    Just year -> filterDocsByYear year res'
    ......@@ -496,9 +497,9 @@ docChooserCpt = here.component "docChooser" cpt
    ]
    where
    onClick selected _ = do
    -- log2 "[docChooser] onClick, listId" listId
    -- log2 "[docChooser] onClick, corpusId" corpusId
    -- log2 "[docChooser] onClick, nodeId" nodeId
    -- here.log2 "[docChooser] onClick, listId" listId
    -- here.log2 "[docChooser] onClick, corpusId" corpusId
    -- here.log2 "[docChooser] onClick, nodeId" nodeId
    -- R2.callTrigger triggerAnnotatedDocIdChange { corpusId, listId, nodeId }
    -- T2.reload tableReload
    if selected then do
    ......@@ -510,7 +511,7 @@ docChooserCpt = here.component "docChooser" cpt
    , mCurrentDocId: Just nodeId
    , nodeId: nodeId }) sidePanel
    T.write_ Opened sidePanelState
    log2 "[docChooser] sidePanel opened" sidePanelState
    here.log2 "[docChooser] sidePanel opened" sidePanelState
    newtype SearchQuery = SearchQuery {
    ......
    src/Gargantext/Components/ErrorsView.purs
    View file @ 263c5db9
    ......@@ -26,7 +26,7 @@ errorsViewCpt = here.component "errorsView" cpt
    where
    cpt { errors } _ = do
    errors' <- T.useLive T.unequal errors
    pure $ H.div {}
    ( mapWithIndex (showError errors) errors' )
    showError errors i (FStringError { error }) =
    ......
    src/Gargantext/Components/FacetsTable.purs
    View file @ 263c5db9
    ......@@ -18,17 +18,13 @@ import Data.Show.Generic (genericShow)
    import Data.Tuple.Nested ((/\))
    import Effect (Effect)
    import Effect.Aff (Aff, launchAff_)
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Simple.JSON as JSON
    import Toestand as T
    import Effect.Class (liftEffect)
    import Gargantext.Components.Category (CategoryQuery(..), putCategories)
    import Gargantext.Components.Category.Types (Category(..), decodeCategory, favCategory)
    import Gargantext.Components.Search (Contact(..), Document(..), HyperdataRowContact(..), HyperdataRowDocument(..), SearchQuery, SearchResult(..), SearchResultTypes(..))
    import Gargantext.Components.Table as T
    import Gargantext.Components.Table.Types as T
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Config.REST (RESTError(..))
    import Gargantext.Ends (url, Frontends)
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Routes (SessionRoute(Search, NodeAPI))
    ......@@ -37,6 +33,10 @@ import Gargantext.Sessions (Session, sessionId, post, deleteWithBody)
    import Gargantext.Types (NodeType(..), OrderBy(..), NodeID)
    import Gargantext.Utils (toggleSet, zeroPad)
    import Gargantext.Utils.Reactix as R2
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Simple.JSON as JSON
    import Toestand as T
    here :: R2.Here
    here = R2.here "Gargantext.Components.FacetsTable"
    ......@@ -67,10 +67,8 @@ newtype Pair =
    }
    derive instance Generic Pair _
    instance Eq Pair where
    eq = genericEq
    instance Show Pair where
    show = genericShow
    instance Eq Pair where eq = genericEq
    instance Show Pair where show = genericShow
    ----------------------------------------------------------------------
    newtype DocumentsView =
    ......@@ -90,10 +88,8 @@ newtype DocumentsView =
    }
    derive instance Generic DocumentsView _
    instance Eq DocumentsView where
    eq = genericEq
    instance Show DocumentsView where
    show = genericShow
    instance Eq DocumentsView where eq = genericEq
    instance Show DocumentsView where show = genericShow
    ----------------------------------------------------------------------
    newtype ContactsView =
    ......@@ -105,17 +101,14 @@ newtype ContactsView =
    , delete :: Boolean
    }
    derive instance Generic ContactsView _
    instance Eq ContactsView where
    eq = genericEq
    instance Show ContactsView where
    show = genericShow
    instance Eq ContactsView where eq = genericEq
    instance Show ContactsView where show = genericShow
    ----------------------------------------------------------------------
    data Rows = Docs { docs :: Seq DocumentsView }
    | Contacts { contacts :: Seq ContactsView }
    derive instance Generic Rows _
    instance Eq Rows where
    eq = genericEq
    instance Eq Rows where eq = genericEq
    ----------------------------------------------------------------------
    ......@@ -212,7 +205,7 @@ initialPagePath :: {session :: Session, nodeId :: Int, listId :: Int, query :: S
    initialPagePath {session, nodeId, listId, query} = {session, nodeId, listId, query, params: T.initialParams}
    loadPage :: PagePath -> Aff (Either RESTError Rows)
    loadPage { session, nodeId, listId, query, params: {limit, offset, orderBy }} = do
    loadPage { session, nodeId, listId, query, params: {limit, offset, orderBy } } = do
    let
    convOrderBy (T.ASC (T.ColumnName "Date")) = DateAsc
    convOrderBy (T.DESC (T.ColumnName "Date")) = DateDesc
    ......@@ -228,7 +221,8 @@ loadPage { session, nodeId, listId, query, params: {limit, offset, orderBy }} =
    eSearchResult <- post session p query
    case eSearchResult of
    Left err -> pure $ Left err
    Right (SearchResult {result}) ->
    Right (SearchResult {result}) -> do
    liftEffect $ here.log2 "[loadPage] result" result
    -- $ SearchQuery {query: concat query, expected: SearchDoc}
    pure $ Right $ case result of
    SearchResultDoc {docs} -> Docs {docs: doc2view <$> Seq.fromFoldable docs}
    ......@@ -239,7 +233,6 @@ doc2view :: Document -> DocumentsView
    doc2view ( Document { id
    , created: date
    , hyperdata: HyperdataRowDocument { authors
    , title
    , source
    , publication_year
    , publication_month
    ......@@ -247,10 +240,11 @@ doc2view ( Document { id
    }
    , category
    , score
    , title
    }
    ) = DocumentsView { id
    , date
    , title: fromMaybe "Title" title
    , title: title
    , source: fromMaybe "Source" source
    , score
    , authors: fromMaybe "Authors" authors
    ......@@ -315,11 +309,14 @@ pageLayoutCpt = here.component "pageLayout" cpt
    , loader: loadPage
    , path: path'
    , render: \rowsLoaded -> page { container, deletions, frontends, path, rowsLoaded, session, totalRecords } [] }
    errorHandler err = here.log2 "[pageLayout] RESTError" err
    errorHandler err = do
    here.log2 "[pageLayout] RESTError" err
    case err of
    ReadJSONError err' -> here.log2 "[pageLayout] ReadJSONError" $ show err'
    _ -> pure unit
    page :: R2.Component PageProps
    page = R.createElement pageCpt
    pageCpt :: R.Component PageProps
    pageCpt = here.component "page" cpt
    where
    ......@@ -350,8 +347,8 @@ pageCpt = here.component "page" cpt
    }
    where
    colNames = case rowsLoaded of
    Docs _ -> T.ColumnName <$> [ "", "Date", "Title", "Journal", "", "" ]
    Contacts _ -> T.ColumnName <$> [ "", "Contact", "Organization", "", "", "" ]
    Docs _ -> T.ColumnName <$> [ "", "Date", "Title", "Journal", "", "" ]
    Contacts _ -> T.ColumnName <$> [ "", "Contact", "Organization", "", "", "" ]
    wrapColElts = const identity
    -- TODO: how to interprete other scores?
    ......
    src/Gargantext/Components/FolderView.purs
    View file @ 263c5db9
    ......@@ -10,7 +10,6 @@ import Effect.Aff (Aff)
    import Effect.Class (liftEffect)
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.App.Data (Boxes)
    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)
    ......@@ -19,10 +18,11 @@ 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.Types (Action(..))
    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.FTree (FTree, LNode(..), NTree(..), ID, fTreeID)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut(..))
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Config.Utils (handleRESTError)
    ......@@ -70,13 +70,13 @@ folderViewCpt = here.component "folderViewCpt" cpt where
    , boxes
    , folders
    , nodeId
    , session
    , reload
    , setPopoverRef } }
    , session
    , setPopoverRef } [] }
    where
    errorHandler err = here.log2 "[folderView] RESTError" err
    type FolderViewProps =
    type FolderViewProps =
    ( backFolder :: Boolean
    , boxes :: Boxes
    , folders :: FTree
    ......@@ -86,8 +86,8 @@ type FolderViewProps =
    , setPopoverRef :: R.Ref (Maybe (Boolean -> Effect Unit))
    )
    folderViewMain :: Record FolderViewProps -> R.Element
    folderViewMain props = R.createElement folderViewMainCpt props []
    folderViewMain :: R2.Component FolderViewProps
    folderViewMain = R.createElement folderViewMainCpt
    folderViewMainCpt :: R.Component FolderViewProps
    folderViewMainCpt = here.component "folderViewMainCpt" cpt where
    cpt { backFolder
    ......@@ -140,7 +140,7 @@ folderViewMainCpt = here.component "folderViewMainCpt" cpt where
    isBackHome _ = false
    type FolderSimpleProps =
    type FolderSimpleProps =
    (
    style :: FolderStyle
    , text :: String
    ......@@ -161,7 +161,7 @@ folderSimpleCpt = here.component "folderSimpleCpt" cpt where
    [ 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
    ......@@ -169,7 +169,7 @@ folderSimpleCpt = here.component "folderSimpleCpt" cpt where
    getFolderPath :: GT.NodeType -> GT.SessionId -> Int -> String
    getFolderPath nodeType sid nodeId = appPath $ fromMaybe Home $ nodeTypeAppRoute nodeType sid nodeId
    type FolderProps =
    type FolderProps =
    ( boxes :: Boxes
    , parentId :: Int
    , reload :: T.Box T2.Reload
    ......@@ -197,24 +197,24 @@ folderCpt = here.component "folderCpt" cpt where
    R.useEffect' $ do
    R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef
    pure $
    pure $
    H.div {} [
    H.span{style: {position: "absolute"}} [ Popover.popover {
    arrow: false
    , open: false
    , onClose: \_ -> pure unit
    , onOpen: \_ -> pure unit
    , ref: popoverRef
    , 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.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
    ......@@ -225,7 +225,7 @@ folderCpt = here.component "folderCpt" cpt where
    onPopoverClose popoverRef _ = Popover.setOpen popoverRef false
    popOverIcon = H.span { className: "fv action" } [
    H.a { className: "settings fa fa-cog"
    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." } []
    ]
    ......@@ -240,7 +240,7 @@ folderCpt = here.component "folderCpt" cpt where
    }
    backButton :: R.Element
    backButton =
    backButton =
    H.button {
    className: "btn btn-primary"
    , on: {click: back}
    ......@@ -248,15 +248,6 @@ backButton =
    H.i { className: "fa fa-arrow-left", title: "Previous view"} []
    ]
    homeButton :: R.Element
    homeButton =
    H.a {
    className: "btn btn-primary"
    , href: appPath Home
    } [
    H.i { className: "fa fa-home", title: "Back to home"} []
    ]
    type LoadProps =
    (
    session :: Session,
    ......@@ -286,8 +277,10 @@ performAction = performAction' where
    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 contents) p = uploadFile' nodeType fileType mName contents p
    performAction' (UploadArbitraryFile mName blob) p = uploadArbitraryFile' mName blob p
    performAction' (UploadFile nodeType fileType mName contents selection) p =
    uploadFile' nodeType fileType mName contents p selection
    performAction' (UploadArbitraryFile mName blob selection) p =
    uploadArbitraryFile' mName blob p selection
    performAction' DownloadNode _ = liftEffect $ here.log "[performAction] DownloadNode"
    performAction' (MoveNode {params}) p = moveNode params p
    performAction' (MergeNode {params}) p = mergeNode params p
    ......@@ -299,7 +292,7 @@ performAction = performAction' where
    closePopover { setPopoverRef } =
    liftEffect $ traverse_ (\set -> set false) (R.readRef setPopoverRef)
    refreshFolders p@{ boxes: { reloadForest }, reload } = do
    refreshFolders p@{ boxes: { reloadForest }, reload } = do
    liftEffect $ T2.reload reload
    liftEffect $ T2.reload reloadForest
    closePopover p
    ......@@ -320,7 +313,7 @@ performAction = performAction' where
    handleRESTError errors eTask $ \task -> liftEffect $ do
    GAT.insert id task tasks
    here.log2 "[performAction] UpdateNode task:" task
    shareTeam username { boxes: { errors }, nodeId: id, session } = do
    eTask <- Share.shareReq session id $ Share.ShareTeamParams { username }
    handleRESTError errors eTask $ \_task -> pure unit
    ......@@ -334,14 +327,14 @@ performAction = performAction' where
    addContact params { nodeId: id, session } =
    void $ Contact.contactReq session id params
    uploadFile' nodeType fileType mName contents { boxes: { errors, tasks }, nodeId: id, session } = do
    eTask <- uploadFile { contents, fileType, id, nodeType, mName, session }
    uploadFile' nodeType fileType mName contents { boxes: { errors, tasks }, nodeId: id, session } selection = do
    eTask <- uploadFile { contents, fileType, id, nodeType, mName, selection, session }
    handleRESTError errors eTask $ \task -> liftEffect $ do
    GAT.insert id task tasks
    here.log2 "[performAction] UploadFile, uploaded, task:" task
    uploadArbitraryFile' mName blob { boxes: { errors, tasks }, nodeId: id, session } = do
    eTask <- uploadArbitraryFile session id { blob, mName }
    uploadArbitraryFile' mName blob { boxes: { errors, tasks }, nodeId: id, session } selection = do
    eTask <- uploadArbitraryFile session id { blob, mName } selection
    handleRESTError errors eTask $ \task -> liftEffect $ do
    GAT.insert id task tasks
    here.log2 "[performAction] UploadArbitraryFile, uploaded, task:" task
    ......
    src/Gargantext/Components/FolderView/Box.purs
    View file @ 263c5db9
    ......@@ -3,9 +3,7 @@ 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
    ......@@ -13,7 +11,6 @@ import Gargantext.Utils.Glyphicon (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"
    ......@@ -25,12 +22,11 @@ type NodePopupProps =
    , 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
    nodePopupView :: R2.Leaf NodePopupProps
    nodePopupView props = R.createElement nodePopupViewCpt props []
    nodePopupViewCpt :: R.Component NodePopupProps
    nodePopupViewCpt = here.component "nodePopupView" cpt where
    cpt props _ = do
    pure $ H.div tooltipProps
    [ H.div { className: "popup-container" }
    ......@@ -43,7 +39,7 @@ nodePopupCpt = here.component "nodePopupView" cpt where
    tooltipProps = { id: "node-popup-tooltip", title: "Node settings"
    , data: { toggle: "tooltip", placement: "right" } }
    panelHeading props@{id, name, nodeType } =
    panelHeading props@{ nodeType } =
    H.div { className: "card-header" }
    [ R2.row
    [ H.div { className: "col-4" }
    ......@@ -53,5 +49,4 @@ nodePopupCpt = here.component "nodePopupView" cpt where
    [ 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
    , className: glyphicon "window-close" } [] ]]]
    src/Gargantext/Components/Forest.purs
    View file @ 263c5db9
    ......@@ -7,12 +7,13 @@ module Gargantext.Components.Forest
    import Gargantext.Prelude
    import Data.Array as A
    import Data.Foldable (intercalate)
    import Data.Maybe (Maybe(..))
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree (treeLoader)
    import Gargantext.Ends (Frontends)
    import Gargantext.Routes (AppRoute(..), appPath)
    import Gargantext.Sessions (Session(..), unSessions)
    import Gargantext.Types (switchHanded)
    import Gargantext.Utils.Reactix as R2
    import Reactix as R
    import Reactix.DOM.HTML as H
    ......@@ -51,7 +52,7 @@ forestCpt = here.component "forest" cpt where
    (A.cons (plus { boxes }) (trees handed' sessions'))
    where
    trees handed' sessions' = (tree handed') <$> unSessions sessions'
    tree handed' s@(Session { treeId }) =
    tree handed' s@(Session { treeId }) =
    treeLoader { boxes
    , frontends
    , handed: handed'
    ......@@ -65,16 +66,41 @@ plus :: R2.Leaf Plus
    plus p = R.createElement plusCpt p []
    plusCpt :: R.Component Plus
    plusCpt = here.component "plus" cpt where
    cpt { boxes: { backend, handed, showLogin } } _ = do
    handed' <- T.useLive T.unequal handed
    cpt { boxes: { backend, showLogin } } _ = pure $
    pure $ H.div {}
    [ H.button { className: buttonClass handed'
    , on: { click }
    , title }
    [ H.div { className: divClass } [ H.text " Log in/out " ] -- fa-lg
    , H.div {} [ H.text " " ] ]
    H.div
    { className: "forest-layout-action" }
    [
    H.a
    { className: intercalate " "
    [ "btn btn-primary"
    , "forest-layout-action__button"
    ]
    , href: appPath Home
    }
    [
    H.i
    { className: "fa fa-home"
    , title: "Back to home"
    }
    []
    ]
    ,
    H.button
    { className: intercalate " "
    [ "btn btn-primary d-block"
    , "forest-layout-action__button"
    ]
    , on: { click }
    , title: "Add or remove connections to the server(s)."
    }
    [
    H.span
    { className: "fa fa-universal-access" }
    [ H.text " Log in/out " ]
    ]
    ]
    --, H.div { "type": "", className: "fa fa-plus-circle fa-lg"} []
    --, H.div { "type": "", className: "fa fa-minus-circle fa-lg"} []
    -- TODO same as the one in the Login Modal (same CSS)
    ......@@ -85,10 +111,7 @@ plusCpt = here.component "plus" cpt where
    -- from current url
    _ <- T.write Nothing backend
    T.write_ true showLogin
    title = "Add or remove connections to the server(s)."
    divClass = "fa fa-universal-access"
    buttonClass handed' =
    "btn btn-primary d-block " <> switchHanded "mr-1 ml-auto" "ml-1 mr-auto" handed'
    forestLayout :: R2.Component Props
    forestLayout = R.createElement forestLayoutCpt
    ......@@ -100,8 +123,10 @@ forestLayoutCpt = here.component "forestLayout" cpt where
    [
    H.div { className: "forest-layout" }
    [
    H.div { className: "forest-layout-top-teaser" } []
    ,
    forest p []
    ,
    H.div { className: "forest-layout-teaser" } []
    H.div { className: "forest-layout-bottom-teaser" } []
    ]
    ]
    src/Gargantext/Components/Forest/Tree.purs
    View file @ 263c5db9
    ......@@ -12,7 +12,6 @@ import Effect.Class (liftEffect)
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node (nodeSpan)
    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)
    ......@@ -21,6 +20,7 @@ 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.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Update (updateRequest)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadFile, uploadArbitraryFile)
    import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..), fTreeID)
    ......@@ -64,7 +64,8 @@ type NodeProps =
    | Common )
    type TreeProps =
    ( tree :: FTree
    ( root :: ID
    , tree :: FTree
    | NodeProps )
    type ChildrenTreeProps =
    ......@@ -91,8 +92,9 @@ type NSCommon =
    -- way. This function is only called by functions in this module, so
    -- we just have to careful in what we pass.
    type ChildLoaderProps =
    ( id :: ID
    ( id :: ID
    , render :: R2.Leaf TreeProps
    , root :: ID
    | NodeProps )
    type PerformActionProps =
    ......@@ -118,7 +120,7 @@ treeLoaderCpt = here.component "treeLoader" cpt where
    loaded tree' = tree props where
    props = Record.merge common extra where
    common = RecordE.pick p :: Record Common
    extra = { tree: tree', reloadTree: p.reload, session }
    extra = { reloadTree: p.reload, root, session, tree: tree' }
    errorHandler err = here.log2 "[treeLoader] RESTError" err
    getNodeTree :: Session -> ID -> Aff (Either RESTError FTree)
    ......@@ -135,6 +137,7 @@ treeCpt = here.component "tree" cpt where
    , frontends
    , handed
    , reload
    , root
    , session
    , tree: NTree (LNode { id, name, nodeType }) children } _ = do
    setPopoverRef <- R.useRef Nothing
    ......@@ -150,6 +153,7 @@ treeCpt = here.component "tree" cpt where
    , name
    , nodeType
    , reload
    , root
    , session
    , setPopoverRef }
    [ renderChildren (Record.merge p { childProps: { children', folderOpen, render: tree } } ) [] ]
    ......@@ -186,13 +190,14 @@ renderTreeChildren = R.createElement renderTreeChildrenCpt
    renderTreeChildrenCpt :: R.Component ChildrenTreeProps
    renderTreeChildrenCpt = here.component "renderTreeChildren" cpt where
    cpt p@{ childProps: { children'
    , render } } _ = do
    , render }
    , root } _ = do
    pure $ R.fragment (map renderChild children')
    where
    nodeProps = RecordE.pick p :: Record NodeProps
    renderChild (NTree (LNode {id: cId}) _) = childLoader props [] where
    props = Record.merge nodeProps { id: cId, render }
    props = Record.merge nodeProps { id: cId, render, root }
    childLoader :: R2.Component ChildLoaderProps
    childLoader = R.createElement childLoaderCpt
    ......@@ -200,7 +205,8 @@ childLoaderCpt :: R.Component ChildLoaderProps
    childLoaderCpt = here.component "childLoader" cpt where
    cpt p@{ boxes: { reloadRoot }
    , reloadTree
    , render } _ = do
    , render
    , root } _ = do
    reload <- T.useBox T2.newReload
    let reloads = [ reload, reloadRoot, reloadTree ]
    cache <- (A.cons p.id) <$> traverse (T.useLive T.unequal) reloads
    ......@@ -213,7 +219,7 @@ childLoaderCpt = here.component "childLoader" cpt where
    fetch _ = getNodeTreeFirstLevel p.session p.id
    paint reload tree' = render (Record.merge base extra) where
    base = nodeProps { reload = reload }
    extra = { tree: tree' }
    extra = { root, tree: tree' }
    nodeProps = RecordE.pick p :: Record NodeProps
    closePopover { setPopoverRef } =
    ......@@ -265,14 +271,14 @@ addNode' name nodeType p@{ boxes: { errors, forestOpen }, session, tree: (NTree
    liftEffect $ T.modify_ (openNodesInsert (mkNodeId session id)) forestOpen
    refreshTree p
    uploadFile' nodeType fileType mName contents p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } = do
    eTask <- uploadFile { contents, fileType, id, mName, nodeType, session }
    uploadFile' nodeType fileType mName contents p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } selection = do
    eTask <- uploadFile { contents, fileType, id, mName, nodeType, selection, session }
    handleRESTError errors eTask $ \task -> liftEffect $ do
    GAT.insert id task tasks
    here.log2 "[uploadFile'] UploadFile, uploaded, task:" task
    uploadArbitraryFile' mName blob p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } = do
    eTask <- uploadArbitraryFile session id { blob, mName }
    uploadArbitraryFile' mName blob p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } selection = do
    eTask <- uploadArbitraryFile session id { blob, mName } selection
    handleRESTError errors eTask $ \task -> liftEffect $ do
    GAT.insert id task tasks
    here.log2 "[uploadArbitraryFile'] UploadArbitraryFile, uploaded, task:" task
    ......@@ -307,8 +313,10 @@ performAction (ShareTeam username) p = shareTeam userna
    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 contents) p = uploadFile' nodeType fileType mName contents p
    performAction (UploadArbitraryFile mName blob) p = uploadArbitraryFile' mName blob p
    performAction (UploadFile nodeType fileType mName contents selection) p =
    uploadFile' nodeType fileType mName contents p selection
    performAction (UploadArbitraryFile mName blob selection) p =
    uploadArbitraryFile' mName blob p selection
    performAction DownloadNode _ = liftEffect $ here.log "[performAction] DownloadNode"
    performAction (MoveNode {params}) p = moveNode params p
    performAction (MergeNode {params}) p = mergeNode params p
    ......
    src/Gargantext/Components/Forest/Tree/Node.purs
    View file @ 263c5db9
    ......@@ -10,7 +10,7 @@ import Effect.Aff (Aff, launchAff)
    import Effect.Class (liftEffect)
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Upload (DroppedFile(..), fileTypeView)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload.Types (FileType(..), UploadFileBlob(..))
    import Gargantext.Components.Forest.Tree.Node.Box (nodePopupView)
    ......@@ -51,6 +51,7 @@ type NodeMainSpanProps =
    , name :: Name
    , nodeType :: GT.NodeType
    , reload :: T2.ReloadS
    , root :: ID
    , session :: Session
    , setPopoverRef :: R.Ref (Maybe (Boolean -> Effect Unit))
    )
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action.purs
    View file @ 263c5db9
    module Gargantext.Components.Forest.Tree.Node.Action where
    import Data.Generic.Rep (class Generic)
    import Data.Maybe (Maybe(..))
    import Effect.Aff (Aff)
    import Gargantext.Prelude
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut, SubTreeParams(..))
    import Data.Maybe (Maybe(..))
    import Effect.Aff (Aff)
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), glyphiconNodeAction)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload.Types (FileType, UploadFileBlob)
    import Gargantext.Components.Forest.Tree.Node.Action.Update.Types (UpdateNodeParams)
    import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams)
    import Gargantext.Components.Forest.Tree.Node.Tools.FTree (ID)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut, SubTreeParams(..))
    import Gargantext.Sessions (Session)
    import Gargantext.Types as GT
    import Gargantext.Types as GT
    type Props =
    ( dispatch :: Action -> Aff Unit
    , id :: Int
    , id :: ID
    , nodeType :: GT.NodeType
    , session :: Session
    )
    data Action = AddNode String GT.NodeType
    | DeleteNode GT.NodeType
    | RenameNode String
    | UpdateNode UpdateNodeParams
    | DoSearch GT.AsyncTaskWithType
    | UploadFile GT.NodeType FileType (Maybe String) String
    | UploadArbitraryFile (Maybe String) UploadFileBlob
    | DownloadNode
    | RefreshTree
    | ClosePopover
    | ShareTeam String
    | AddContact AddContactParams
    | SharePublic {params :: Maybe SubTreeOut}
    | MoveNode {params :: Maybe SubTreeOut}
    | MergeNode {params :: Maybe SubTreeOut}
    | LinkNode {nodeType :: Maybe GT.NodeType, params :: Maybe SubTreeOut}
    | NoAction
    subTreeOut :: Action -> Maybe SubTreeOut
    subTreeOut (MoveNode {params}) = params
    subTreeOut (MergeNode {params}) = params
    ......@@ -57,47 +33,6 @@ setTreeOut (LinkNode {nodeType, params:_}) p = LinkNode {nodeType, params: p}
    setTreeOut (SharePublic {params:_}) p = SharePublic {params: p}
    setTreeOut a _ = a
    derive instance Generic Action _
    instance Eq Action where
    eq (AddNode s1 nt1) (AddNode s2 nt2) = (eq s1 s2) && (eq nt1 nt2)
    eq (DeleteNode nt1) (DeleteNode nt2) = eq nt1 nt2
    eq (RenameNode s1) (RenameNode s2) = eq s1 s2
    eq (UpdateNode un1) (UpdateNode un2) = eq un1 un2
    eq (DoSearch at1) (DoSearch at2) = eq at1 at2
    eq (UploadFile nt1 ft1 s1 _) (UploadFile nt2 ft2 s2 _) = (eq nt1 nt2) && (eq ft1 ft2) && (eq s1 s2)
    eq (UploadArbitraryFile s1 _) (UploadArbitraryFile s2 _) = eq s1 s2
    eq DownloadNode DownloadNode = true
    eq RefreshTree RefreshTree = true
    eq ClosePopover ClosePopover = true
    eq (ShareTeam s1) (ShareTeam s2) = eq s1 s2
    eq (AddContact ac1) (AddContact ac2) = eq ac1 ac2
    eq (SharePublic p1) (SharePublic p2) = eq p1 p2
    eq (MoveNode p1) (MoveNode p2) = eq p1 p2
    eq (MergeNode p1) (MergeNode p2) = eq p1 p2
    eq (LinkNode l1) (LinkNode l2) = eq l1 l2
    eq NoAction NoAction = true
    eq _ _ = false
    instance Show Action where
    show (AddNode _ _ ) = "AddNode"
    show (DeleteNode _ ) = "DeleteNode"
    show (RenameNode _ ) = "RenameNode"
    show (UpdateNode _ ) = "UpdateNode"
    show (ShareTeam _ ) = "ShareTeam"
    show (AddContact _ ) = "AddContact"
    show (SharePublic _ ) = "SharePublic"
    show (DoSearch _ ) = "SearchQuery"
    show (UploadFile _ _ _ _) = "UploadFile"
    show (UploadArbitraryFile _ _) = "UploadArbitraryFile"
    show RefreshTree = "RefreshTree"
    show ClosePopover = "ClosePopover"
    show DownloadNode = "Download"
    show (MoveNode _ ) = "MoveNode"
    show (MergeNode _ ) = "MergeNode"
    show (LinkNode _ ) = "LinkNode"
    show NoAction = "NoAction"
    -----------------------------------------------------------------------
    icon :: Action -> String
    icon (AddNode _ _) = glyphiconNodeAction (Add [])
    ......@@ -108,8 +43,8 @@ icon (ShareTeam _) = glyphiconNodeAction Share
    icon (AddContact _) = glyphiconNodeAction Share
    icon (SharePublic _ ) = glyphiconNodeAction (Publish { subTreeParams : SubTreeParams {showtypes:[], valitypes:[] }})
    icon (DoSearch _) = glyphiconNodeAction SearchBox
    icon (UploadFile _ _ _ _) = glyphiconNodeAction Upload
    icon (UploadArbitraryFile _ _ ) = glyphiconNodeAction Upload
    icon (UploadFile _ _ _ _ _) = glyphiconNodeAction Upload
    icon (UploadArbitraryFile _ _ _ ) = glyphiconNodeAction Upload
    icon RefreshTree = glyphiconNodeAction Refresh
    icon ClosePopover = glyphiconNodeAction CloseNodePopover
    icon DownloadNode = glyphiconNodeAction Download
    ......@@ -122,21 +57,22 @@ icon NoAction = "hand-o-right"
    -- icon _ = "hand-o-right"
    text :: Action -> String
    text (AddNode _ _ ) = "Add !"
    text (DeleteNode _ ) = "Delete !"
    text (RenameNode _ ) = "Rename !"
    text (UpdateNode _ ) = "Update !"
    text (ShareTeam _ ) = "Share with team !"
    text (AddContact _ ) = "Add contact !"
    text (SharePublic _ ) = "Publish !"
    text (DoSearch _ ) = "Launch search !"
    text (UploadFile _ _ _ _) = "Upload File !"
    text (UploadArbitraryFile _ _) = "Upload arbitrary file !"
    text RefreshTree = "Refresh Tree !"
    text ClosePopover = "Close Popover !"
    text DownloadNode = "Download !"
    text (MoveNode _ ) = "Move !"
    text (MergeNode _ ) = "Merge !"
    text (LinkNode _ ) = "Link !"
    text NoAction = "No Action"
    text (AddNode _ _ ) = "Add !"
    text (DeleteNode _ ) = "Delete !"
    text (RenameNode _ ) = "Rename !"
    text (UpdateNode _ ) = "Update !"
    text (ShareTeam _ ) = "Share with team !"
    text (AddContact _ ) = "Add contact !"
    text (SharePublic _ ) = "Publish !"
    text (DoSearch _ ) = "Launch search !"
    text (UploadFile _ _ _ _ _) = "Upload File !"
    text (UploadArbitraryFile _ _ _) = "Upload arbitrary file !"
    text RefreshTree = "Refresh Tree !"
    text ClosePopover = "Close Popover !"
    text DownloadNode = "Download !"
    text (MoveNode _ ) = "Move !"
    text (MergeNode _ ) = "Merge !"
    text (LinkNode _ ) = "Link !"
    text NoAction = "No Action"
    -----------------------------------------------------------------------
    src/Gargantext/Components/Forest/Tree/Node/Action/Add.purs
    View file @ 263c5db9
    ......@@ -11,7 +11,7 @@ import Data.String (Pattern(..), indexOf)
    import Data.Tuple.Nested ((/\))
    import Effect (Effect)
    import Effect.Aff (Aff, launchAff_)
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Settings (SettingsBox(..), settingsBox)
    import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe, panel, submitButton)
    import Gargantext.Components.InputWithEnter (inputWithEnter)
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Contact.purs
    View file @ 263c5db9
    ......@@ -10,7 +10,7 @@ import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams(..))
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Routes as GR
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Contact/Types.purs
    View file @ 263c5db9
    module Gargantext.Components.Forest.Tree.Node.Action.Contact.Types where
    import Data.Generic.Rep (class Generic)
    import Data.Newtype (class Newtype)
    import Data.Show.Generic (genericShow)
    import Gargantext.Utils.SimpleJSON as GUSJ
    import Simple.JSON as JSON
    import Gargantext.Prelude (class Eq, class Show)
    newtype AddContactParams =
    AddContactParams { firstname :: String, lastname :: String }
    data AddContactParams =
    AddContactParams { firstname :: String, lastname :: String }
    | AddContactParamsAdvanced { firstname :: String, lastname :: String }
    derive instance Eq AddContactParams
    derive instance Generic AddContactParams _
    derive instance Newtype AddContactParams _
    instance Show AddContactParams where show = genericShow
    derive newtype instance JSON.ReadForeign AddContactParams
    derive newtype instance JSON.WriteForeign AddContactParams
    instance JSON.ReadForeign AddContactParams where readImpl = GUSJ.taggedSumRep
    instance JSON.WriteForeign AddContactParams where
    writeImpl (AddContactParams { firstname, lastname }) =
    JSON.writeImpl { type: "AddContactParams"
    , values: { firstname, lastname } }
    writeImpl (AddContactParamsAdvanced { firstname, lastname }) =
    JSON.writeImpl { type: "AddContactParamsAdvanced"
    , values: { firstname, lastname } }
    src/Gargantext/Components/Forest/Tree/Node/Action/Delete.purs
    View file @ 263c5db9
    ......@@ -9,7 +9,7 @@ import Effect.Aff (Aff)
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Routes (SessionRoute(..))
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Download.purs
    View file @ 263c5db9
    ......@@ -4,7 +4,7 @@ import Data.Maybe (Maybe(..))
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Gargantext.Components.Forest.Tree.Node.Action (Action(DownloadNode))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(DownloadNode))
    import Gargantext.Components.Forest.Tree.Node.Tools (fragmentPT, panel, submitButtonHref)
    import Gargantext.Ends (url)
    import Gargantext.Prelude (pure, ($))
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Link.purs
    View file @ 263c5db9
    ......@@ -7,7 +7,7 @@ import Data.Generic.Rep (class Generic)
    import Data.Maybe (Maybe(..))
    import Data.Show.Generic (genericShow)
    import Effect.Aff (Aff)
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
    import Gargantext.Config.REST (RESTError)
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Merge.purs
    View file @ 263c5db9
    ......@@ -10,7 +10,7 @@ import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel, checkbox, checkboxesListGroup)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
    import Gargantext.Config.REST (RESTError)
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Move.purs
    View file @ 263c5db9
    module Gargantext.Components.Forest.Tree.Node.Action.Move where
    import Gargantext.Prelude
    module Gargantext.Components.Forest.Tree.Node.Action.Move
    ( moveNodeReq
    , moveNode
    ) where
    import Data.Either (Either)
    import Data.Maybe (Maybe(..))
    import Effect.Aff (Aff)
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsIn, subTreeView)
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Prelude
    import Gargantext.Routes (SessionRoute(..))
    import Gargantext.Sessions (Session, put_)
    import Gargantext.Types as GT
    import Gargantext.Types as GT
    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.Action.Move"
    ......@@ -32,22 +33,47 @@ moveNodeCpt = here.component "moveNode" cpt
    where
    cpt { boxes, dispatch, id, nodeType, session, subTreeParams } _ = do
    action :: T.Box Action <- T.useBox (MoveNode {params: Nothing})
    action' <- T.useLive T.unequal action
    let button = case action' of
    MoveNode { params } -> case params of
    Just val -> submitButton (MoveNode {params: Just val}) dispatch
    Nothing -> H.div {} []
    _ -> H.div {} []
    pure $
    panel [ subTreeView { action
    , boxes
    , dispatch
    , id
    , nodeType
    , session
    , subTreeParams
    } []
    ] button
    moveNode' { action
    , boxes
    , dispatch
    , id
    , nodeType
    , session
    , subTreeParams
    } []
    type Props =
    ( action :: T.Box Action
    | SubTreeParamsIn
    )
    -- @XXX re-render issue -> clone component
    moveNode' :: R2.Component Props
    moveNode' = R.createElement moveNodeCpt'
    moveNodeCpt' :: R.Component Props
    moveNodeCpt' = here.component "foo" cpt where
    cpt { boxes, dispatch, id, nodeType, session, subTreeParams, action } _ = do
    action' <- T.useLive T.unequal action
    let button = case action' of
    MoveNode { params } -> case params of
    Just val -> submitButton (MoveNode {params: Just val}) dispatch
    Nothing -> H.div {} []
    _ -> H.div {} []
    pure $
    panel
    [ subTreeView { action
    , boxes
    , dispatch
    , id
    , nodeType
    , session
    , subTreeParams
    } []
    ] button
    src/Gargantext/Components/Forest/Tree/Node/Action/Rename.purs
    View file @ 263c5db9
    ......@@ -10,7 +10,7 @@ import Simple.JSON as JSON
    import Gargantext.Prelude
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Routes as GR
    import Gargantext.Sessions (Session, put)
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Search.purs
    View file @ 263c5db9
    ......@@ -6,7 +6,8 @@ import Data.Maybe (Maybe)
    import Effect (Effect)
    import Effect.Aff (Aff, launchAff)
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Add (NodePopup)
    import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar (searchBar)
    import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (defaultSearch)
    import Gargantext.Components.Lang (allLangs)
    ......@@ -36,16 +37,17 @@ actionSearchCpt = here.component "actionSearch" cpt
    where
    cpt { boxes: { errors }, dispatch, id, session } _ = do
    search <- T.useBox $ defaultSearch { node_id = id }
    pure $ R.fragment [ H.p { className: "action-search" }
    [ H.text $ "Search and create a private "
    <> "corpus with the search query as corpus name." ]
    , searchBar { errors
    , langs: allLangs
    , onSearch: searchOn dispatch
    , search
    , session
    } []
    ]
    pure $ R.fragment
    [ H.p { className: "action-search" }
    [ H.text $ "Search and create a private "
    <> "corpus with the search query as corpus name." ]
    , searchBar { errors
    , langs: allLangs
    , onSearch: searchOn dispatch
    , search
    , session
    } []
    ]
    where
    searchOn :: (Action -> Aff Unit)
    -> GT.AsyncTaskWithType
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchBar.purs
    View file @ 263c5db9
    ......@@ -34,11 +34,11 @@ searchBarCpt = here.component "searchBar" cpt
    cpt { errors, langs, onSearch, search, session } _ = do
    --onSearchChange session s
    pure $ H.div { className: "search-bar" }
    [ searchField { databases: allDatabases
    , errors
    , langs
    , onSearch
    , search
    , session
    } []
    ]
    [ searchField { databases: allDatabases
    , errors
    , langs
    , onSearch
    , search
    , session
    } []
    ]
    src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs
    View file @ 263c5db9
    ......@@ -19,6 +19,7 @@ import URI.Query as Q
    import Gargantext.Prelude
    import Gargantext.Components.Lang (Lang)
    import Gargantext.Components.ListSelection.Types as ListSelection
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Ends (class ToUrl, backendUrl)
    import Gargantext.Routes as GR
    ......@@ -330,27 +331,13 @@ newtype SearchQuery = SearchQuery
    , node_id :: Maybe Int
    , offset :: Maybe Int
    , order :: Maybe SearchOrder
    , selection :: ListSelection.Selection
    }
    derive instance Generic SearchQuery _
    derive instance Newtype SearchQuery _
    defaultSearchQuery :: SearchQuery
    defaultSearchQuery = SearchQuery
    { query: ""
    , databases: Empty
    , datafield: Nothing
    , files_id : []
    , lang : Nothing
    , limit : Nothing
    , node_id : Nothing
    , offset : Nothing
    , order : Nothing
    }
    instance ToUrl Session SearchQuery where
    toUrl (Session {backend}) q = backendUrl backend q2
    where q2 = "new" <> Q.print (GT.toQuery q)
    instance GT.ToQuery SearchQuery where
    toQuery (SearchQuery {offset, limit, order}) =
    QP.print id id $ QP.QueryPairs
    ......@@ -361,14 +348,29 @@ instance GT.ToQuery SearchQuery where
    pair k = maybe [] $ \v ->
    [ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ]
    instance JSON.WriteForeign SearchQuery where
    writeImpl (SearchQuery { databases, datafield, lang, node_id, query }) =
    writeImpl (SearchQuery { databases, datafield, lang, node_id, query, selection }) =
    JSON.writeImpl { query: String.replace (String.Pattern "\"") (String.Replacement "\\\"") query
    , databases
    , datafield
    , lang: maybe "EN" show lang
    , node_id: fromMaybe 0 node_id
    , flowListWith: selection
    }
    defaultSearchQuery :: SearchQuery
    defaultSearchQuery = SearchQuery
    { query : ""
    , databases : Empty
    , datafield : Nothing
    , files_id : []
    , lang : Nothing
    , limit : Nothing
    , node_id : Nothing
    , offset : Nothing
    , order : Nothing
    , selection : ListSelection.MyListsFirst
    }
    performSearch :: Session -> Int -> SearchQuery -> Aff (Either RESTError GT.AsyncTaskWithType)
    performSearch session nodeId q = do
    eTask :: Either RESTError GT.AsyncTask <- post session p q
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Share.purs
    View file @ 263c5db9
    ......@@ -13,8 +13,8 @@ import Toestand as T
    import Gargantext.Prelude
    import Gargantext.Components.Forest.Tree.Node.Action (Action)
    import Gargantext.Components.Forest.Tree.Node.Action as Action
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
    import Gargantext.Components.Forest.Tree.Node.Action.Types as Action
    import Gargantext.Components.Forest.Tree.Node.Tools as Tools
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
    import Gargantext.Config.REST (RESTError)
    ......@@ -22,6 +22,7 @@ import Gargantext.Routes as GR
    import Gargantext.Sessions (Session, post)
    import Gargantext.Types (ID)
    import Gargantext.Types as GT
    import Gargantext.Utils.SimpleJSON as GUSJ
    import Gargantext.Utils.Reactix as R2
    here :: R2.Here
    ......@@ -41,8 +42,12 @@ data ShareNodeParams = ShareTeamParams { username :: String }
    | SharePublicParams { node_id :: Int }
    derive instance Eq ShareNodeParams
    derive instance Generic ShareNodeParams _
    instance JSON.ReadForeign ShareNodeParams where readImpl = JSONG.untaggedSumRep
    instance JSON.WriteForeign ShareNodeParams where writeImpl = JSON.writeImpl <<< show
    instance JSON.ReadForeign ShareNodeParams where readImpl = GUSJ.taggedSumRep
    instance JSON.WriteForeign ShareNodeParams where
    writeImpl (ShareTeamParams { username }) = JSON.writeImpl { "type": "ShareTeamParams"
    , username }
    writeImpl (SharePublicParams { node_id }) = JSON.writeImpl { "type": "SharePublicParams"
    , node_id }
    instance Show ShareNodeParams where show = genericShow
    ------------------------------------------------------------------------
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Types.purs 0 → 100644
    View file @ 263c5db9
    module Gargantext.Components.Forest.Tree.Node.Action.Types where
    import Gargantext.Prelude
    import Data.Generic.Rep (class Generic)
    import Data.Maybe (Maybe)
    import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams)
    import Gargantext.Components.Forest.Tree.Node.Action.Update.Types (UpdateNodeParams)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload.Types (FileType, UploadFileBlob)
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut)
    import Gargantext.Components.ListSelection.Types (Selection)
    import Gargantext.Types as GT
    data Action = AddNode String GT.NodeType
    | DeleteNode GT.NodeType
    | RenameNode String
    | UpdateNode UpdateNodeParams
    | DoSearch GT.AsyncTaskWithType
    | UploadFile GT.NodeType FileType (Maybe String) String Selection
    | UploadArbitraryFile (Maybe String) UploadFileBlob Selection
    | DownloadNode
    | RefreshTree
    | ClosePopover
    | ShareTeam String
    | AddContact AddContactParams
    | SharePublic {params :: Maybe SubTreeOut}
    | MoveNode {params :: Maybe SubTreeOut}
    | MergeNode {params :: Maybe SubTreeOut}
    | LinkNode {nodeType :: Maybe GT.NodeType, params :: Maybe SubTreeOut}
    | NoAction
    derive instance Generic Action _
    instance Eq Action where
    eq (AddNode s1 nt1) (AddNode s2 nt2) = (eq s1 s2) && (eq nt1 nt2)
    eq (DeleteNode nt1) (DeleteNode nt2) = eq nt1 nt2
    eq (RenameNode s1) (RenameNode s2) = eq s1 s2
    eq (UpdateNode un1) (UpdateNode un2) = eq un1 un2
    eq (DoSearch at1) (DoSearch at2) = eq at1 at2
    eq (UploadFile nt1 ft1 s1 _ _) (UploadFile nt2 ft2 s2 _ _) =
    (eq nt1 nt2) && (eq ft1 ft2) && (eq s1 s2)
    eq (UploadArbitraryFile s1 _ _) (UploadArbitraryFile s2 _ _) = eq s1 s2
    eq DownloadNode DownloadNode = true
    eq RefreshTree RefreshTree = true
    eq ClosePopover ClosePopover = true
    eq (ShareTeam s1) (ShareTeam s2) = eq s1 s2
    eq (AddContact ac1) (AddContact ac2) = eq ac1 ac2
    eq (SharePublic p1) (SharePublic p2) = eq p1 p2
    eq (MoveNode p1) (MoveNode p2) = eq p1 p2
    eq (MergeNode p1) (MergeNode p2) = eq p1 p2
    eq (LinkNode l1) (LinkNode l2) = eq l1 l2
    eq NoAction NoAction = true
    eq _ _ = false
    instance Show Action where
    show (AddNode _ _ ) = "AddNode"
    show (DeleteNode _ ) = "DeleteNode"
    show (RenameNode _ ) = "RenameNode"
    show (UpdateNode _ ) = "UpdateNode"
    show (ShareTeam _ ) = "ShareTeam"
    show (AddContact _ ) = "AddContact"
    show (SharePublic _ ) = "SharePublic"
    show (DoSearch _ ) = "SearchQuery"
    show (UploadFile _ _ _ _ _) = "UploadFile"
    show (UploadArbitraryFile _ _ _) = "UploadArbitraryFile"
    show RefreshTree = "RefreshTree"
    show ClosePopover = "ClosePopover"
    show DownloadNode = "Download"
    show (MoveNode _ ) = "MoveNode"
    show (MergeNode _ ) = "MergeNode"
    show (LinkNode _ ) = "LinkNode"
    show NoAction = "NoAction"
    src/Gargantext/Components/Forest/Tree/Node/Action/Update.purs
    View file @ 263c5db9
    ......@@ -9,7 +9,7 @@ import Toestand as T
    import Gargantext.Prelude
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Update.Types
    import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe, submitButton, panel)
    import Gargantext.Config.REST (RESTError)
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Update/Types.purs
    View file @ 263c5db9
    ......@@ -18,10 +18,18 @@ derive instance Generic UpdateNodeParams _
    instance Show UpdateNodeParams where show = genericShow
    instance JSON.ReadForeign UpdateNodeParams where readImpl = JSONG.untaggedSumRep
    instance JSON.WriteForeign UpdateNodeParams where
    writeImpl (UpdateNodeParamsList { methodList }) = JSON.writeImpl { methodList }
    writeImpl (UpdateNodeParamsGraph { methodGraph }) = JSON.writeImpl { methodGraph }
    writeImpl (UpdateNodeParamsTexts { methodTexts }) = JSON.writeImpl { methodTexts }
    writeImpl (UpdateNodeParamsBoard { methodBoard }) = JSON.writeImpl { methodBoard }
    writeImpl (UpdateNodeParamsList { methodList }) =
    JSON.writeImpl { type: "UpdateNodeParamsList"
    , values: methodList }
    writeImpl (UpdateNodeParamsGraph { methodGraph }) =
    JSON.writeImpl { type: "UpdateNodeParamsGraph"
    , methodGraph }
    writeImpl (UpdateNodeParamsTexts { methodTexts }) =
    JSON.writeImpl { type: "UpdateNodeParamsTexts"
    , methodTexts }
    writeImpl (UpdateNodeParamsBoard { methodBoard }) =
    JSON.writeImpl { type: "UpdateNodeParamsBoard"
    , methodBoard }
    ----------------------------------------------------------------------
    data Method = Basic | Advanced | WithModel
    ......
    src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs
    View file @ 263c5db9
    ......@@ -14,13 +14,17 @@ import Data.Tuple.Nested ((/\))
    import Effect (Effect)
    import Effect.Aff (Aff, launchAff)
    import Effect.Class (liftEffect)
    import Gargantext.Components.Forest.Tree.Node.Action (Action(..), Props)
    import Gargantext.Components.Forest.Tree.Node.Action (Props)
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
    import Gargantext.Components.Forest.Tree.Node.Action.Upload.Types (FileType(..), UploadFileBlob(..), readUFBAsText)
    import Gargantext.Components.Forest.Tree.Node.Tools (fragmentPT, formChoiceSafe, panel)
    import Gargantext.Components.Lang (Lang(..))
    import Gargantext.Components.ListSelection as ListSelection
    import Gargantext.Components.ListSelection.Types (Selection(..))
    import Gargantext.Components.ListSelection.Types as ListSelection
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Routes as GR
    import Gargantext.Sessions (Session, postWwwUrlencoded)
    import Gargantext.Sessions (Session(..), postWwwUrlencoded)
    import Gargantext.Types (NodeType(..), ID)
    import Gargantext.Types as GT
    import Gargantext.Utils.Reactix as R2
    ......@@ -48,8 +52,10 @@ actionUpload :: R2.Component ActionUpload
    actionUpload = R.createElement actionUploadCpt
    actionUploadCpt :: R.Component ActionUpload
    actionUploadCpt = here.component "actionUpload" cpt where
    cpt { nodeType: Corpus, dispatch, id, session } _ = pure $ uploadFileView {dispatch, id, nodeType: GT.Corpus, session}
    cpt { nodeType: NodeList, dispatch, id, session } _ = pure $ uploadTermListView {dispatch, id, nodeType: GT.NodeList, session}
    cpt { nodeType: Corpus, dispatch, id, session } _ =
    pure $ uploadFileView { dispatch, id, nodeType: GT.Corpus, session }
    cpt { nodeType: NodeList, dispatch, id, session } _ =
    pure $ uploadTermListView { dispatch, id, nodeType: GT.NodeList, session }
    cpt props@{ nodeType: _ } _ = pure $ actionUploadOther props []
    {-
    ......@@ -72,8 +78,7 @@ data DroppedFile =
    , lang :: Lang
    }
    derive instance Generic DroppedFile _
    instance Eq DroppedFile where
    eq = genericEq
    instance Eq DroppedFile where eq = genericEq
    type FileHash = String
    ......@@ -88,11 +93,12 @@ uploadFileView props = R.createElement uploadFileViewCpt props []
    uploadFileViewCpt :: R.Component Props
    uploadFileViewCpt = here.component "uploadFileView" cpt
    where
    cpt {dispatch, id, nodeType} _ = do
    cpt { dispatch, id, nodeType, session } _ = do
    -- mFile :: R.State (Maybe UploadFile) <- R.useState' Nothing
    mFile <- T.useBox (Nothing :: Maybe UploadFile)
    fileType <- T.useBox CSV
    lang <- T.useBox EN
    selection <- T.useBox ListSelection.MyListsFirst
    let setFileType' val = T.write_ val fileType
    let setLang' val = T.write_ val lang
    ......@@ -125,14 +131,18 @@ uploadFileViewCpt = here.component "uploadFileView" cpt
    show
    ]
    ]
    , R2.row
    [ H.div { className: "col-6 flex-space-around" }
    [ ListSelection.selection { selection, session } [] ]
    ]
    ]
    let footer = H.div {} [ uploadButton { dispatch
    , fileType
    , lang
    , id
    , mFile
    , nodeType
    , selection
    }
    ]
    pure $ panel bodies footer
    ......@@ -152,12 +162,12 @@ uploadFileViewCpt = here.component "uploadFileView" cpt
    type UploadButtonProps =
    ( dispatch :: Action -> Aff Unit
    , fileType :: T.Box FileType
    , id :: GT.ID
    , lang :: T.Box Lang
    , mFile :: T.Box (Maybe UploadFile)
    , nodeType :: GT.NodeType
    ( dispatch :: Action -> Aff Unit
    , fileType :: T.Box FileType
    , lang :: T.Box Lang
    , mFile :: T.Box (Maybe UploadFile)
    , nodeType :: GT.NodeType
    , selection :: T.Box ListSelection.Selection
    )
    uploadButton :: Record UploadButtonProps -> R.Element
    ......@@ -167,13 +177,14 @@ uploadButtonCpt = here.component "uploadButton" cpt
    where
    cpt { dispatch
    , fileType
    , id
    , lang
    , mFile
    , nodeType
    , selection
    } _ = do
    fileType' <- T.useLive T.unequal fileType
    mFile' <- T.useLive T.unequal mFile
    selection' <- T.useLive T.unequal selection
    let disabled = case mFile' of
    Nothing -> "1"
    ......@@ -183,19 +194,19 @@ uploadButtonCpt = here.component "uploadButton" cpt
    , "type" : "button"
    , disabled
    , style : { width: "100%" }
    , on: {click: onClick fileType' mFile'}
    , on: { click: onClick fileType' mFile' selection' }
    } [ H.text "Upload" ]
    where
    onClick fileType' mFile' e = do
    onClick fileType' mFile' selection' e = do
    let { blob, name } = unsafePartial $ fromJust mFile'
    here.log2 "[uploadButton] fileType" fileType'
    void $ launchAff do
    case fileType' of
    Arbitrary ->
    dispatch $ UploadArbitraryFile (Just name) blob
    dispatch $ UploadArbitraryFile (Just name) blob selection'
    _ -> do
    contents <- readUFBAsText blob
    dispatch $ UploadFile nodeType fileType' (Just name) contents
    dispatch $ UploadFile nodeType fileType' (Just name) contents selection'
    liftEffect $ do
    T.write_ Nothing mFile
    T.write_ CSV fileType
    ......@@ -282,7 +293,7 @@ fileTypeViewCpt = here.component "fileTypeView" cpt
    T.write_ Nothing droppedFile
    launchAff $ do
    contents <- readUFBAsText blob
    dispatch $ UploadFile nodeType ft Nothing contents
    dispatch $ UploadFile nodeType ft Nothing contents (SelectedLists [])
    }
    } [H.text "Upload"]
    Nothing ->
    ......@@ -303,12 +314,13 @@ instance GT.ToQuery FileUploadQuery where
    where pair :: forall a. Show a => String -> a -> Array (Tuple QP.Key (Maybe QP.Value))
    pair k v = [ QP.keyFromString k /\ (Just $ QP.valueFromString $ show v) ]
    uploadFile :: { contents :: String
    , fileType :: FileType
    , id :: ID
    , nodeType :: GT.NodeType
    , mName :: Maybe String
    , session :: Session }
    uploadFile :: { contents :: String
    , fileType :: FileType
    , id :: ID
    , nodeType :: GT.NodeType
    , mName :: Maybe String
    , selection :: ListSelection.Selection
    , session :: Session }
    -> Aff (Either RESTError GT.AsyncTaskWithType)
    {-
    uploadFile session NodeList id JSON { mName, contents } = do
    ......@@ -350,8 +362,9 @@ uploadFile { contents, fileType, id, nodeType, mName, session } = do
    uploadArbitraryFile :: Session
    -> ID
    -> {blob :: UploadFileBlob, mName :: Maybe String}
    -> ListSelection.Selection
    -> Aff (Either RESTError GT.AsyncTaskWithType)
    uploadArbitraryFile session id {mName, blob: UploadFileBlob blob} = do
    uploadArbitraryFile session id {mName, blob: UploadFileBlob blob} selection = do
    contents <- readAsDataURL blob
    uploadArbitraryDataURL session id mName contents
    ......@@ -468,6 +481,6 @@ uploadTermButtonCpt = here.component "uploadTermButton" cpt
    let {name, blob} = unsafePartial $ fromJust mFile'
    void $ launchAff do
    contents <- readUFBAsText blob
    _ <- dispatch $ UploadFile nodeType uploadType' (Just name) contents
    _ <- dispatch $ UploadFile nodeType uploadType' (Just name) contents (SelectedLists [])
    liftEffect $ do
    T.write_ Nothing mFile
    src/Gargantext/Components/Forest/Tree/Node/Box.purs
    View file @ 263c5db9
    ......@@ -9,9 +9,8 @@ import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Components.Forest.Tree.Node.Action (Action)
    import Gargantext.Components.Forest.Tree.Node.Action.Add (addNodeView)
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node.Action.Add (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)
    ......@@ -22,6 +21,7 @@ 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.Types (Action)
    import Gargantext.Components.Forest.Tree.Node.Action.Update (update)
    import Gargantext.Components.Forest.Tree.Node.Action.Upload (actionUpload)
    import Gargantext.Components.Forest.Tree.Node.Box.Types (NodePopupProps, NodePopupS)
    ......@@ -29,7 +29,7 @@ import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), Settings
    import Gargantext.Components.Forest.Tree.Node.Status (Status(..), hasStatus)
    import Gargantext.Components.Forest.Tree.Node.Tools (fragmentPT, textInputBox)
    import Gargantext.Sessions (Session)
    import Gargantext.Types (FrontendError, ID, Name, prettyNodeType)
    import Gargantext.Types (ID, Name, prettyNodeType)
    import Gargantext.Types as GT
    import Gargantext.Utils.Glyphicon (glyphicon, glyphiconActive)
    import Gargantext.Utils.Reactix as R2
    ......@@ -41,7 +41,7 @@ type CommonProps =
    ( dispatch :: Action -> Aff Unit
    , session :: Session )
    nodePopupView :: Record NodePopupProps -> R.Element
    nodePopupView :: R2.Leaf NodePopupProps
    nodePopupView p = R.createElement nodePopupCpt p []
    nodePopupCpt :: R.Component NodePopupProps
    nodePopupCpt = here.component "nodePopupView" cpt where
    ......
    src/Gargantext/Components/Forest/Tree/Node/Box/Types.purs
    View file @ 263c5db9
    ......@@ -5,7 +5,7 @@ import Data.Maybe (Maybe)
    import Effect (Effect)
    import Effect.Aff (Aff)
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node.Action (Action)
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
    import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction)
    import Gargantext.Prelude (Unit)
    import Gargantext.Sessions (Session)
    ......
    src/Gargantext/Components/Forest/Tree/Node/Tools.purs
    View file @ 263c5db9
    module Gargantext.Components.Forest.Tree.Node.Tools where
    import Data.Foldable (intercalate)
    import Data.Maybe (fromMaybe, Maybe(..))
    import Data.Nullable (null)
    import Data.Set (Set)
    import Data.Set as Set
    import Data.String as S
    ......@@ -9,13 +9,14 @@ import Data.String.CodeUnits as DSCU
    import Effect (Effect)
    import Effect.Aff (Aff, launchAff, launchAff_)
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node.Action (Action, icon, text)
    import Gargantext.Components.Forest.Tree.Node.Action (icon, text)
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
    import Gargantext.Components.InputWithEnter (inputWithEnter)
    import Gargantext.Ends (Frontends, url)
    import Gargantext.Prelude (class Ord, class Read, class Show, Unit, bind, const, discard, map, not, pure, read, show, when, mempty, ($), (<), (<<<), (<>), (<$>), (<*>))
    import Gargantext.Sessions (Session, sessionId)
    import Gargantext.Types as GT
    import Gargantext.Utils (toggleSet)
    import Gargantext.Utils (toggleSet, (?))
    import Gargantext.Utils.Glyphicon (glyphicon)
    import Gargantext.Utils.ReactTooltip as ReactTooltip
    import Gargantext.Utils.Reactix as R2
    ......@@ -201,7 +202,6 @@ type CheckboxProps =
    checkbox :: R2.Leaf CheckboxProps
    checkbox props = R.createElement checkboxCpt props []
    checkboxCpt :: R.Component CheckboxProps
    checkboxCpt = here.component "checkbox" cpt
    where
    ......@@ -269,7 +269,7 @@ nodeLink = R.createElement nodeLinkCpt
    nodeLinkCpt :: R.Component NodeLinkProps
    nodeLinkCpt = here.component "nodeLink" cpt
    where
    cpt { boxes: { handed }
    cpt { boxes
    , folderOpen
    , frontends
    , id
    ......@@ -278,13 +278,12 @@ nodeLinkCpt = here.component "nodeLink" cpt
    , nodeType
    , session
    } _ = do
    popoverRef <- R.useRef null
    pure $
    H.div { className: "node-link"
    , on: { click } }
    [ H.a { href, data: { for: tooltipId id, tip: true } }
    [ nodeText { handed, isSelected, name } []
    [ nodeText { isSelected, name }
    , ReactTooltip.reactTooltip { effect: "float", id: tooltipId id, type: "dark" }
    [ R2.row
    [ H.h4 {className: GT.fldr nodeType true}
    ......@@ -305,29 +304,45 @@ nodeLinkCpt = here.component "nodeLink" cpt
    type NodeTextProps =
    ( isSelected :: Boolean
    , handed :: T.Box GT.Handed
    , name :: GT.Name
    )
    nodeText :: R2.Component NodeTextProps
    nodeText = R.createElement nodeTextCpt
    nodeTextCpt :: R.Component NodeTextProps
    nodeTextCpt = here.component "nodeText" cpt where
    cpt { isSelected, handed, name } _ = do
    handed' <- T.useLive T.unequal handed
    pure $ if isSelected then
    H.u { className }
    [ H.b {}
    [ H.text ("| " <> name15 name <> " | ") ]
    ]
    else
    GT.flipHanded l r handed' where
    l = H.text "..."
    r = H.text (name15 name)
    name_ len n =
    if S.length n < len then n
    else case (DSCU.slice 0 len n) of
    Nothing -> "???"
    Just s -> s <> "..."
    name15 = name_ 15
    className = "node-text"
    nodeText :: R2.Leaf NodeTextProps
    nodeText p = R.createElement nodeTextCpt p []
    nodeTextCpt :: R.Memo NodeTextProps
    nodeTextCpt = R.memo' $ here.component "nodeText" cpt where
    cpt props@{ isSelected } _ = do
    -- Computed
    let
    className = intercalate " "
    [ "node-text"
    , isSelected ? "node-text--selected" $ ""
    ]
    prefix = isSelected ?
    "" $
    "..."
    name = isSelected ?
    "| " <> (textEllipsisBreak 15 props.name) <> " | " $
    textEllipsisBreak 15 props.name
    -- Render
    pure $
    H.span { className }
    [
    H.span {}
    [ H.text prefix ]
    ,
    H.span {}
    [ H.text name ]
    ]
    textEllipsisBreak :: Int -> String -> String
    textEllipsisBreak len n =
    if S.length n < len then n
    else case (DSCU.slice 0 len n) of
    Nothing -> "???"
    Just s -> s <> "..."
    src/Gargantext/Components/Forest/Tree/Node/Tools/SubTree.purs
    View file @ 263c5db9
    ......@@ -2,12 +2,16 @@ module Gargantext.Components.Forest.Tree.Node.Tools.SubTree where
    import Gargantext.Prelude
    import Data.Array (length)
    import Data.Array as A
    import Data.Either (Either)
    import Data.Foldable (intercalate)
    import Data.Maybe (Maybe(..))
    import Data.Tuple.Nested ((/\))
    import Effect.Aff (Aff)
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Forest.Tree.Node.Action (Props, Action, subTreeOut, setTreeOut)
    import Gargantext.Components.Forest.Tree.Node.Action (Props, subTreeOut, setTreeOut)
    import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
    import Gargantext.Components.Forest.Tree.Node.Tools (nodeText)
    import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..))
    import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeParams(..), SubTreeOut(..))
    ......@@ -16,8 +20,9 @@ import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Routes as GR
    import Gargantext.Sessions (Session(..), get)
    import Gargantext.Types as GT
    import Gargantext.Utils ((?))
    import Gargantext.Utils.Reactix (if', useBox', useLive')
    import Gargantext.Utils.Reactix as R2
    import React.SyntheticEvent as E
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Record as Record
    ......@@ -39,7 +44,7 @@ type SubTreeParamsProps =
    )
    subTreeView :: R2.Component SubTreeParamsProps
    subTreeView = R.createElement subTreeViewCpt
    subTreeView = R.createElement $ R.memo' subTreeViewCpt
    subTreeViewCpt :: R.Component SubTreeParamsProps
    subTreeViewCpt = here.component "subTreeView" cpt
    where
    ......@@ -91,63 +96,94 @@ type CorpusTreeProps =
    subTreeViewLoaded :: R2.Component CorpusTreeProps
    subTreeViewLoaded = R.createElement subTreeViewLoadedCpt
    subTreeViewLoadedCpt :: R.Component CorpusTreeProps
    subTreeViewLoadedCpt = here.component "subTreeViewLoaded" cpt
    where
    cpt p@{ boxes: { handed } } _ = do
    handed' <- T.useLive T.unequal handed
    let pRender = Record.merge { render: subTreeTreeView } p
    pure $ H.div {className:"tree"}
    [ H.div { className: if handed' == GT.RightHanded
    then "righthanded"
    else "lefthanded"
    }
    [ subTreeTreeView (CorpusTreeRenderProps pRender) [] ]
    ]
    subTreeViewLoadedCpt = here.component "subTreeViewLoaded" cpt where
    cpt props _ = do
    let pRender = Record.merge { render: subTreeTreeView } props
    pure $
    H.div { className: "subtree" }
    [ subTreeTreeView (CorpusTreeRenderProps pRender) [] ]
    newtype CorpusTreeRenderProps = CorpusTreeRenderProps
    { render :: CorpusTreeRenderProps -> Array R.Element -> R.Element
    | CorpusTreeProps }
    | CorpusTreeProps
    }
    subTreeTreeView :: CorpusTreeRenderProps -> Array R.Element -> R.Element
    subTreeTreeView = R2.ntCreateElement subTreeTreeViewCpt
    subTreeTreeViewCpt :: R2.NTComponent CorpusTreeRenderProps
    subTreeTreeViewCpt = here.ntComponent "subTreeTreeView" cpt where
    cpt (CorpusTreeRenderProps p@{ action
    , boxes: { handed }
    , id
    cpt (CorpusTreeRenderProps p@{ id
    , render
    , subTreeParams
    , tree: NTree (LNode { id: targetId, name, nodeType }) ary }) _ = do
    action' <- T.useLive T.unequal action
    handed' <- T.useLive T.unequal handed
    let click e = do
    let action'' = if not validNodeType then Nothing else Just $ SubTreeOut { in: id, out: targetId }
    E.preventDefault e
    E.stopPropagation e
    T.modify_ (\a -> setTreeOut a action'') action
    -- Hooks
    action <- useLive' p.action
    isExpanded /\ isExpandedBox <- useBox' false
    -- Computed
    let
    expandCbk _ = T.modify_ not isExpandedBox
    selectCbk _ = do
    params <- pure $
    if validNodeType
    then Just $ SubTreeOut { in: id, out: targetId }
    else Nothing
    T.modify_ (\a -> setTreeOut a params) p.action
    children = (map (\ctree -> render (CorpusTreeRenderProps (p { tree = ctree })) []) sortedAry) :: Array R.Element
    pure $ H.div {} $ GT.reverseHanded handed'
    [ H.div { className: nodeClass validNodeType }
    [ H.span { className: "text"
    , on: { click } }
    [ nodeText { handed
    , isSelected: isSelected targetId action'
    , name: " " <> name } []
    , H.span { className: "children" } children
    hasChild = length children > 0
    -- Render
    pure $
    H.div
    { className: intercalate " "
    [ "subtree__node"
    , validNodeType ? "subtree__node--can-be-selected" $ ""
    ]
    }
    [
    H.div
    { className: "subtree__node__text" }
    [
    H.div
    { className: "subtree__node__icons"
    , on: { click: expandCbk }
    }
    [
    H.span { className: GT.fldr nodeType true } []
    ,
    if' hasChild $
    if isExpanded then
    H.span { className: "fa fa-chevron-down" } []
    else
    H.span { className: "fa fa-chevron-right" } []
    ]
    ,
    H.div
    { on: { click: selectCbk } }
    [
    nodeText
    { isSelected: isSelected targetId action
    , name
    }
    ]
    ]
    ]
    ,
    if' (hasChild && isExpanded) $
    H.div { className: "subtree__node__children" }
    children
    ]
    where
    nodeClass vnt = "node " <> GT.fldr nodeType true <> " " <> validNodeTypeClass where
    validNodeTypeClass = if vnt then "node-type-valid" else ""
    SubTreeParams { valitypes } = subTreeParams
    sortedAry = A.sortWith (\(NTree (LNode {id:id'}) _) -> id')
    $ A.filter (\(NTree (LNode {id:id'}) _) -> id'/= id) ary
    validNodeType = (A.elem nodeType valitypes) && (id /= targetId)
    isSelected n action' = case (subTreeOut action') of
    isSelected n action = case (subTreeOut action) of
    Nothing -> false
    (Just (SubTreeOut {out})) -> n == out
    src/Gargantext/Components/Forest/Tree/Node/Tools/Sync.purs
    View file @ 263c5db9
    module Gargantext.Components.Forest.Tree.Node.Tools.Sync where
    import Gargantext.Prelude
    ( Unit, bind, const, discard, pure, unit, ($), (<>), (==) )
    ( Unit, bind, discard, pure, unit, ($), (<>), (==) )
    import Effect.Aff (Aff, launchAff_)
    import Data.Tuple.Nested ((/\))
    import Data.Maybe (Maybe(..))
    import Data.Tuple (fst)
    import Effect.Class (liftEffect)
    import Reactix.DOM.HTML as H
    import Reactix as R
    ......@@ -69,7 +67,7 @@ graphUpdateButtonCpt = here.component "graphUpdateButton" cpt
    onClick true enabled = do
    launchAff_ $ do
    liftEffect $ T.write_ false enabled
    g <- GraphAPI.updateGraphVersions { graphId: id, session }
    _g <- GraphAPI.updateGraphVersions { graphId: id, session }
    liftEffect $ T.write_ true enabled
    refresh unit
    pure unit
    ......@@ -105,7 +103,6 @@ type NodeListUpdateButtonProps =
    nodeListUpdateButton :: Record NodeListUpdateButtonProps -> R.Element
    nodeListUpdateButton p = R.createElement nodeListUpdateButtonCpt p []
    nodeListUpdateButtonCpt :: R.Component NodeListUpdateButtonProps
    nodeListUpdateButtonCpt = here.component "nodeListUpdateButton" cpt
    where
    ......
    src/Gargantext/Components/GraphExplorer/API.purs
    View file @ 263c5db9
    ......@@ -2,7 +2,7 @@ module Gargantext.Components.GraphExplorer.API where
    import Gargantext.Prelude
    import Data.Either (Either(..))
    import Data.Either (Either)
    import Data.Maybe (Maybe)
    import Effect.Aff (Aff)
    import Gargantext.Components.GraphExplorer.Types as GET
    ......
    src/Gargantext/Components/GraphExplorer/Button.purs
    View file @ 263c5db9
    ......@@ -21,7 +21,6 @@ import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadArbitraryData
    import Gargantext.Components.GraphExplorer.API (cloneGraph)
    import Gargantext.Components.GraphExplorer.Types as GET
    import Gargantext.Components.GraphExplorer.Utils as GEU
    import Gargantext.Config.REST (RESTError)
    import Gargantext.Hooks.Sigmax as Sigmax
    import Gargantext.Hooks.Sigmax.Sigma as Sigma
    import Gargantext.Sessions (Session)
    ......
    src/Gargantext/Components/ListSelection.purs 0 → 100644
    View file @ 263c5db9
    module Gargantext.Components.ListSelection where
    import Gargantext.Prelude
    import Data.Array as A
    import Data.Either (Either)
    import Data.Maybe (Maybe(..))
    import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe)
    import Gargantext.Components.ListSelection.Types (NodeSimple(..), Selection(..), selectedListIds)
    import Gargantext.Config.REST (RESTError(..), AffRESTError)
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Routes (SessionRoute(..))
    import Gargantext.Sessions (Session(..), get)
    import Gargantext.Types (ID, NodeType(..), fldr)
    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.ListSelection"
    type Props =
    ( selection :: T.Box Selection
    , session :: Session
    )
    selection :: R2.Component Props
    selection = R.createElement selectionCpt
    selectionCpt :: R.Component Props
    selectionCpt = here.component "selection" cpt where
    cpt { selection, session } _ = do
    pure $ H.div { className: "list-selection" }
    [ formChoiceSafe [ MyListsFirst
    , OtherListsFirst
    , SelectedLists [] ] MyListsFirst setSelection show
    , selectedIds { selection, session } []
    ]
    where
    setSelection val = T.write_ val selection
    selectedIds :: R2.Component Props
    selectedIds = R.createElement selectedIdsCpt
    selectedIdsCpt :: R.Component Props
    selectedIdsCpt = here.component "selectedIds" cpt where
    cpt { selection, session } _ = do
    selection' <- T.useLive T.unequal selection
    pure $ case selection' of
    SelectedLists ids -> H.div {} [ idsSelector { selection, session } [] ]
    _ -> H.div {} []
    type IdsSelectorProps =
    ( selection :: T.Box Selection
    , session :: Session )
    idsSelector :: R2.Component IdsSelectorProps
    idsSelector = R.createElement idsSelectorCpt
    idsSelectorCpt :: R.Component IdsSelectorProps
    idsSelectorCpt = here.component "idsSelector" cpt where
    cpt { selection, session } _ = do
    pure $ H.div { className: "ids-selector" }
    [ listTree { name: "", nodeType: NodeUser, root, selection, session } ] -- $ map checkbox [1, 2, 3, 4]
    where
    Session { treeId: root } = session
    listIdsRoute :: ID -> SessionRoute
    listIdsRoute = Children NodeList 0 1 Nothing <<< Just
    treeFirstLevelRoute :: ID -> SessionRoute
    treeFirstLevelRoute id = TreeFirstLevel (Just id) ""
    loadTreeChildren :: { root :: ID, session :: Session } -> AffRESTError (Array NodeSimple)
    loadTreeChildren { root, session } = do
    eResult :: (Either RESTError { children :: Array NodeSimple }) <- get session $ treeFirstLevelRoute root
    pure $ (\{ children } -> children) <$> eResult
    type ListTreeProps =
    ( name :: String
    , nodeType :: NodeType
    , root :: ID
    , selection :: T.Box Selection
    , session :: Session )
    listTree :: R2.Leaf ListTreeProps
    listTree props = R.createElement listTreeCpt props []
    listTreeCpt :: R.Component ListTreeProps
    listTreeCpt = here.component "listTree" cpt where
    cpt { name, nodeType, root, selection, session } _ = do
    pure $ H.div { className: "tree" }
    [ H.div { className: "root" }
    [ H.i { className: fldr nodeType true } []
    , H.text $ "[" <> show root <> "] " <> name ]
    , listTreeChildren { render: listTree
    , root
    , selection
    , session } []
    ]
    type Render = Record ListTreeProps -> R.Element
    type ListTreeChildrenProps =
    ( render :: Render
    , root :: ID
    , selection :: T.Box Selection
    , session :: Session )
    listTreeChildren :: R2.Component ListTreeChildrenProps
    listTreeChildren = R.createElement listTreeChildrenCpt
    listTreeChildrenCpt :: R.Component ListTreeChildrenProps
    listTreeChildrenCpt = here.component "listTreeChildren" cpt where
    cpt { render, root, selection, session } _ = do
    useLoader { errorHandler
    , loader: loadTreeChildren
    , path: { root, session }
    , render: \loaded ->
    listTreeChildrenLoaded { loaded
    , render
    , root
    , selection
    , session } [] }
    where
    errorHandler err = case err of
    ReadJSONError err' -> here.log2 "[listTreeChildren] ReadJSONError" $ show err'
    _ -> here.log2 "[listTreeChildren] RESTError" err
    type ListTreeChildrenLoadedProps =
    ( loaded :: Array NodeSimple
    , render :: Render
    , root :: ID
    , selection :: T.Box Selection
    , session :: Session )
    listTreeChildrenLoaded :: R2.Component ListTreeChildrenLoadedProps
    listTreeChildrenLoaded = R.createElement listTreeChildrenLoadedCpt
    listTreeChildrenLoadedCpt :: R.Component ListTreeChildrenLoadedProps
    listTreeChildrenLoadedCpt = here.component "listTreeChildrenLoaded" cpt where
    cpt { loaded, render, root, selection, session } _ = do
    pure $ H.div { className: "children" } (element <$> loaded)
    where
    element (NodeSimple { id, name, nodeType: nodeType@Folder }) =
    render { root: id, name, nodeType, selection, session }
    element (NodeSimple { id, name, nodeType: nodeType@FolderPrivate }) =
    render { root: id, name, nodeType, selection, session }
    element (NodeSimple { id, name, nodeType: nodeType@FolderPublic }) =
    render { root: id, name, nodeType, selection, session }
    element (NodeSimple { id, name, nodeType: nodeType@FolderShared }) =
    render { root: id, name, nodeType, selection, session }
    element (NodeSimple { id, name, nodeType: nodeType@Corpus }) =
    render { root: id, name, nodeType, selection, session }
    element (NodeSimple { id, name, nodeType: NodeList}) =
    renderListElement { id, name, selection }
    element _ = H.div {} []
    type RenderListElementProps =
    ( id :: ID
    , name :: String
    , selection :: T.Box Selection )
    renderListElement :: R2.Leaf RenderListElementProps
    renderListElement props = R.createElement renderListElementCpt props []
    renderListElementCpt :: R.Component RenderListElementProps
    renderListElementCpt = here.component "renderListElement" cpt where
    cpt { id, name, selection } _ = do
    selection' <- T.useLive T.unequal selection
    let ids = selectedListIds selection'
    pure $ H.div { className: "leaf" }
    [ H.input { defaultChecked: A.elem id ids
    , on: { click: click ids }
    , type: "checkbox" }
    , H.i { className: fldr NodeList true } []
    , H.text $ "[" <> show id <> "] " <> name
    ]
    where
    click ids _ = do
    let f (SelectedLists lst) =
    if A.elem id ids
    then SelectedLists (A.delete id lst)
    else SelectedLists (A.cons id lst)
    f x = x
    T.modify_ f selection
    src/Gargantext/Components/ListSelection/Types.purs 0 → 100644
    View file @ 263c5db9
    module Gargantext.Components.ListSelection.Types where
    import Gargantext.Prelude
    import Data.Eq.Generic (genericEq)
    import Data.Generic.Rep (class Generic)
    import Data.Maybe (Maybe(..))
    import Data.Newtype (class Newtype)
    import Gargantext.Types (ID, ListId, NodeType)
    import Simple.JSON as JSON
    data Selection = MyListsFirst | OtherListsFirst | SelectedLists (Array ListId)
    derive instance Generic Selection _
    instance Show Selection where
    show MyListsFirst = "My lists first"
    show OtherListsFirst = "Other lists first"
    show (SelectedLists _) = "Selected lists"
    instance Eq Selection where eq = genericEq
    instance Read Selection where
    read "My lists first" = Just MyListsFirst
    read "Other lists first" = Just OtherListsFirst
    read "Selected lists" = Just $ SelectedLists []
    read _ = Nothing
    instance JSON.WriteForeign Selection where
    writeImpl MyListsFirst = JSON.writeImpl { "type": "MyListsFirst" }
    writeImpl OtherListsFirst = JSON.writeImpl { "type": "OtherListsFirst" }
    writeImpl (SelectedLists ids) = JSON.writeImpl { "type": "SelectedLists", value: ids }
    selectedListIds :: Selection -> Array ListId
    selectedListIds (SelectedLists ids) = ids
    selectedListIds _ = []
    ----------------------
    -- TODO Make a separate endpoint on the backend for fetching the whole
    -- tree with NodeSimple results?
    -- A simplified data structure (we don't want the full-blown (NodePoly
    -- a), we care only about Corpus and NodeList node types, with id,
    -- name and that's all).
    newtype NodeSimple =
    NodeSimple { id :: ID
    , name :: String
    , nodeType :: NodeType }
    derive instance Generic NodeSimple _
    derive instance Newtype NodeSimple _
    derive instance Eq NodeSimple
    instance JSON.ReadForeign NodeSimple where
    readImpl f = do
    { node } :: { node :: { id :: ID
    , name :: String
    , type :: NodeType } } <- JSON.read' f
    pure $ NodeSimple { id: node.id
    , name: node.name
    , nodeType: node.type }
    src/Gargantext/Components/MainPage.purs deleted 100644 → 0
    View file @ 9b74edb0
    module Gargantext.Components.MainPage where
    import Gargantext.Prelude
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Utils.Reactix as R2
    here :: R2.Here
    here = R2.here "Gargantext.Components.MainPage"
    type MainPage =
    (
    boxes :: Boxes
    )
    mainPage :: R2.Component MainPage
    mainPage = R.createElement mainPageCpt
    mainPageCpt :: R.Component MainPage
    mainPageCpt = here.component "mainPage" cpt
    where
    cpt { boxes: { handed
    , route } } children = do
    handed' <- T.useLive T.unequal handed
    route' <- T.useLive T.unequal route
    pure $
    H.div { id: "page-wrapper" }
    [
    H.div { className: "container-fluid" } children
    ]
    src/Gargantext/Components/NgramsTable.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/NgramsTable/Components.purs
    View file @ 263c5db9
    ......@@ -9,27 +9,19 @@ import Data.Maybe (Maybe(..), maybe, isJust)
    import Data.Nullable (null, toMaybe)
    import Data.Set (Set)
    import Data.Set as Set
    import React.DOM (a, span, text)
    import React.DOM.Props as DOM
    import Effect (Effect)
    import FFI.Simple (delay)
    import Gargantext.Components.NgramsTable.Core (Action(..), Dispatch, NgramsElement, NgramsTable, NgramsTablePatch, NgramsTerm, _NgramsElement, _NgramsRepoElement, _PatchMap, _children, _list, _ngrams, _occurrences, ngramsTermText, replace, setTermListA)
    import Gargantext.Components.Table as Tbl
    import Gargantext.Prelude (Unit, bind, const, discard, map, not, otherwise, pure, show, unit, ($), (+), (/=), (<<<), (<>), (==), (>), (||))
    import Gargantext.Types as GT
    import Gargantext.Utils.Reactix as R2
    import React.DOM (a, span, text)
    import React.DOM.Props as DOM
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    import Gargantext.Prelude
    ( Unit, bind, const, discard, map, not, otherwise
    , pure, show, unit, ($), (+), (/=), (<<<), (<>), (==), (>), (||) )
    import Gargantext.Components.NgramsTable.Core
    ( Action(..), Dispatch, NgramsElement, NgramsTable, NgramsTablePatch, NgramsTerm
    , _NgramsElement, _NgramsRepoElement, _PatchMap, _children, _list
    , _ngrams, _occurrences, ngramsTermText, replace, setTermListA )
    import Gargantext.Components.Nodes.Lists.Types as NT
    import Gargantext.Components.Table as Tbl
    import Gargantext.Types as T
    import Gargantext.Utils.Reactix as R2
    here :: R2.Here
    here = R2.here "Gargantext.Components.NgramsTable.Components"
    ......@@ -38,44 +30,60 @@ type SearchInputProps =
    , searchQuery :: T.Box String
    )
    searchInput :: Record SearchInputProps -> R.Element
    searchInput :: R2.Leaf SearchInputProps
    searchInput props = R.createElement searchInputCpt props []
    searchInputCpt :: R.Component SearchInputProps
    searchInputCpt = here.component "searchInput" cpt
    where
    cpt { searchQuery } _ = do
    searchQuery' <- T.useLive T.unequal searchQuery
    pure $ R2.row [
    H.div { className: "col-12" } [
    H.div { className: "input-group" }
    [ searchButton searchQuery'
    , fieldInput searchQuery'
    [ searchButton { searchQuery } []
    , searchFieldInput { searchQuery } []
    ]
    ]
    ]
    where
    searchButton searchQuery' =
    H.div { className: "input-group-prepend" }
    [ if searchQuery' /= ""
    then removeButton
    else H.span { className: "fa fa-search input-group-text" } []
    ]
    removeButton =
    H.button { className: "btn btn-danger"
    , on: {click: \e -> T.write "" searchQuery}}
    [ H.span {className: "fa fa-times"} []]
    fieldInput searchQuery' =
    H.input { className: "form-control"
    , defaultValue: searchQuery'
    , name: "search"
    , on: { input: \e -> T.write (R.unsafeEventValue e) searchQuery }
    , placeholder: "Search"
    , type: "value"
    }
    type SearchButtonProps =
    ( searchQuery :: T.Box String
    )
    searchButton :: R2.Component SearchButtonProps
    searchButton = R.createElement searchButtonCpt
    searchButtonCpt :: R.Component SearchButtonProps
    searchButtonCpt = here.component "searchButton" cpt where
    cpt { searchQuery } _ = do
    searchQuery' <- T.useLive T.unequal searchQuery
    pure $ H.div { className: "input-group-prepend" }
    [ if searchQuery' /= ""
    then
    H.button { className: "btn btn-danger"
    , on: {click: \_ -> T.write "" searchQuery}}
    [ H.span {className: "fa fa-times"} []]
    else H.span { className: "fa fa-search input-group-text" } []
    ]
    type SearchFieldInputProps =
    ( searchQuery :: T.Box String
    )
    searchFieldInput :: R2.Component SearchFieldInputProps
    searchFieldInput = R.createElement searchFieldInputCpt
    searchFieldInputCpt :: R.Component SearchFieldInputProps
    searchFieldInputCpt = here.component "searchFieldInput" cpt where
    cpt { searchQuery } _ = do
    -- searchQuery' <- T.useLive T.unequal searchQuery
    pure $ H.input { className: "form-control"
    -- , defaultValue: searchQuery'
    , name: "search"
    , on: { input: \e -> T.write (R.unsafeEventValue e) searchQuery }
    , placeholder: "Search"
    , type: "value"
    }
    type SelectionCheckboxProps =
    ( allNgramsSelected :: Boolean
    , dispatch :: Dispatch
    ......@@ -84,7 +92,6 @@ type SelectionCheckboxProps =
    selectionCheckbox :: Record SelectionCheckboxProps -> R.Element
    selectionCheckbox props = R.createElement selectionCheckboxCpt props []
    selectionCheckboxCpt :: R.Component SelectionCheckboxProps
    selectionCheckboxCpt = here.component "selectionCheckbox" cpt
    where
    ......@@ -233,8 +240,8 @@ renderNgramsItemCpt = here.component "renderNgramsItem" cpt
    , on: { click: onClick } } []
    ]
    , selected
    , checkbox T.MapTerm
    , checkbox T.StopTerm
    , checkbox GT.MapTerm
    , checkbox GT.StopTerm
    , H.div {} ( if ngramsParent == Nothing
    then [renderNgramsTree { ngramsTable, ngrams, ngramsStyle, ngramsClick, ngramsEdit }]
    else [H.a { on: { click: const $ dispatch $ ToggleChild true ngrams } }
    ......@@ -275,7 +282,7 @@ renderNgramsItemCpt = here.component "renderNgramsItem" cpt
    }
    checkbox termList' =
    let chkd = termList == termList'
    termList'' = if chkd then T.CandidateTerm else termList'
    termList'' = if chkd then GT.CandidateTerm else termList'
    in
    H.input { checked: chkd
    , className: "checkbox"
    ......@@ -292,18 +299,18 @@ renderNgramsItemCpt = here.component "renderNgramsItem" cpt
    cycleTermListItem n = setTermListA n (replace termList (nextTermList termList))
    termStyle :: T.TermList -> Number -> DOM.Props
    termStyle T.MapTerm opacity = DOM.style { color: "green", opacity }
    termStyle T.StopTerm opacity = DOM.style { color: "red", opacity
    termStyle :: GT.TermList -> Number -> DOM.Props
    termStyle GT.MapTerm opacity = DOM.style { color: "green", opacity }
    termStyle GT.StopTerm opacity = DOM.style { color: "red", opacity
    , textDecoration: "line-through" }
    termStyle T.CandidateTerm opacity = DOM.style { color: "#767676", opacity }
    termStyle GT.CandidateTerm opacity = DOM.style { color: "#767676", opacity }
    tablePatchHasNgrams :: NgramsTablePatch -> NgramsTerm -> Boolean
    tablePatchHasNgrams ngramsTablePatch ngrams =
    isJust $ ngramsTablePatch.ngramsPatches ^. _PatchMap <<< at ngrams
    nextTermList :: T.TermList -> T.TermList
    nextTermList T.MapTerm = T.StopTerm
    nextTermList T.StopTerm = T.CandidateTerm
    nextTermList T.CandidateTerm = T.MapTerm
    nextTermList :: GT.TermList -> GT.TermList
    nextTermList GT.MapTerm = GT.StopTerm
    nextTermList GT.StopTerm = GT.CandidateTerm
    nextTermList GT.CandidateTerm = GT.MapTerm
    src/Gargantext/Components/NgramsTable/Core.purs
    View file @ 263c5db9
    ......@@ -121,7 +121,7 @@ import Data.TraversableWithIndex (traverseWithIndex)
    import Data.Tuple (Tuple(..))
    import Data.Tuple.Nested ((/\))
    import Effect (Effect)
    import Effect.Aff (Aff, error, launchAff_)
    import Effect.Aff (Aff, launchAff_)
    import Effect.Class (liftEffect)
    import Effect.Exception.Unsafe (unsafeThrow)
    import FFI.Simple.Functions (delay)
    ......
    src/Gargantext/Components/Node.purs
    View file @ 263c5db9
    ......@@ -38,4 +38,5 @@ instance JSON.ReadForeign a => JSON.ReadForeign (NodePoly a) where
    newtype HyperdataList = HyperdataList { preferences :: Maybe String }
    derive instance Generic HyperdataList _
    derive instance Newtype HyperdataList _
    derive instance Eq HyperdataList
    derive newtype instance JSON.ReadForeign HyperdataList
    src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Tabs.purs
    View file @ 263c5db9
    ......@@ -7,7 +7,6 @@ import Data.Generic.Rep (class Generic)
    import Data.Maybe (Maybe(..))
    import Data.Show.Generic (genericShow)
    import Data.Tuple.Nested ((/\))
    import Gargantext.AsyncTasks as GAT
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.DocsTable as DT
    import Gargantext.Components.DocsTable.Types (Year)
    ......@@ -19,9 +18,8 @@ import Gargantext.Components.Nodes.Texts.Types as TTypes
    import Gargantext.Components.Tab as Tab
    import Gargantext.Ends (Frontends)
    import Gargantext.Sessions (Session)
    import Gargantext.Types (CTabNgramType(..), FrontendError, PTabNgramType(..), SidePanelState, TabSubType(..), TabType(..))
    import Gargantext.Types (CTabNgramType(..), PTabNgramType(..), TabSubType(..), TabType(..))
    import Gargantext.Utils.Reactix as R2
    import Gargantext.Utils.Toestand as T2
    import Reactix as R
    import Toestand as T
    ......
    src/Gargantext/Components/Nodes/Corpus.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/Nodes/Corpus/Code.purs 0 → 100644
    View file @ 263c5db9
    module Gargantext.Components.Nodes.Corpus.Code where
    import Data.Either (Either(..))
    import Data.List as List
    import Data.Maybe (Maybe(..))
    import Effect (Effect)
    import Effect.Aff (launchAff_)
    import Effect.Class (liftEffect)
    import Gargantext.Components.App.Data (Boxes)
    import Gargantext.Components.Node (NodePoly(..))
    import Gargantext.Components.Nodes.Corpus (fieldsCodeEditor, loadCorpusWithReload, saveCorpus)
    import Gargantext.Components.Nodes.Corpus.Types (Hyperdata(..))
    import Gargantext.Components.Nodes.Types (FTFieldList(..), FTFieldsWithIndex(..), defaultField)
    import Gargantext.Components.TileMenu (tileMenu)
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Prelude (Unit, bind, discard, pure, unit, ($), (<$>), (<>), (==), const)
    import Gargantext.Routes as GR
    import Gargantext.Sessions (Session, sessionId)
    import Gargantext.Utils.Reactix as R2
    import Gargantext.Utils.Toestand as T2
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Toestand as T
    here :: R2.Here
    here = R2.here "Gargantext.Components.Nodes.Corpus.Code"
    type Props =
    ( nodeId :: Int
    , session :: Session
    , boxes :: Boxes
    )
    type ViewProps =
    ( corpus :: NodePoly Hyperdata
    , nodeId :: Int
    , reload :: T2.ReloadS
    , session :: Session
    , boxes :: Boxes
    )
    corpusCodeLayout :: R2.Leaf Props
    corpusCodeLayout props = R.createElement corpusCodeLayoutCpt props []
    corpusCodeLayoutCpt :: R.Component Props
    corpusCodeLayoutCpt = here.component "corpusCodeLayout" cpt where
    cpt { nodeId, session, boxes } _ = do
    reload <- T.useBox T2.newReload
    reload' <- T.useLive T.unequal reload
    useLoader { errorHandler
    , loader: loadCorpusWithReload
    , path: { nodeId, reload: reload', session }
    , render: \corpus -> corpusCodeView { corpus, nodeId, reload, session, boxes } }
    where
    errorHandler err = here.log2 "[corpusLayoutWithKey] RESTError" err
    corpusCodeView :: Record ViewProps -> R.Element
    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
    fieldsS <- T.useBox fieldsWithIndex
    fields' <- T.useLive T.unequal fieldsS
    fieldsRef <- R.useRef fields
    -- handle props change of fields
    R.useEffect1' fields $ do
    if R.readRef fieldsRef == fields then
    pure unit
    else do
    R.setRef fieldsRef fields
    T.write_ fieldsWithIndex fieldsS
    corpusRoute <- pure $ const do
    pure $ GR.Corpus (sessionId session) nodeId
    pure $
    H.div
    {}
    [
    tileMenu
    { boxes
    , currentTile: Just corpusRoute
    , xTile: Just corpusRoute
    , yTile: Just corpusRoute
    }
    [
    H.button
    { className: "btn btn-primary" }
    [
    H.i { className: "fa fa-folder" } []
    ]
    ]
    ,
    H.hr {}
    ,
    H.div
    { className: "mb-4" }
    [
    H.div
    { className: "btn btn-primary " <> (saveEnabled fieldsWithIndex fields')
    , on: { click: onClickSave {fields: fields', nodeId, reload, session} }
    }
    [ H.span { className: "fa fa-floppy-o" } [ ] ]
    ]
    ,
    H.div
    {}
    [
    fieldsCodeEditor
    { fields: fieldsS
    , nodeId
    , session }
    []
    ]
    ,
    H.div
    { className: "mb-4" }
    [
    H.div
    { className: "btn btn-primary"
    , on: { click: onClickAdd fieldsS }
    }
    [ H.span { className: "fa fa-plus" } [ ] ]
    ]
    ]
    saveEnabled :: FTFieldsWithIndex -> FTFieldsWithIndex -> String
    saveEnabled fs fsS = if fs == fsS then "disabled" else "enabled"
    onClickSave :: forall e. { fields :: FTFieldsWithIndex
    , nodeId :: Int
    , reload :: T2.ReloadS
    , session :: Session } -> e -> Effect Unit
    onClickSave {fields: FTFieldsWithIndex fields, nodeId, reload, session} _ = do
    launchAff_ do
    res <- saveCorpus $ { hyperdata: Hyperdata {fields: FTFieldList $ (_.ftField) <$> fields}
    , nodeId
    , session }
    liftEffect $ do
    _ <- case res of
    Left err -> here.log2 "[corpusLayoutView] onClickSave RESTError" err
    _ -> pure unit
    T2.reload reload
    onClickAdd :: forall e. T.Box FTFieldsWithIndex -> e -> Effect Unit
    onClickAdd fieldsS _ = do
    T.modify_ (\(FTFieldsWithIndex fs) -> FTFieldsWithIndex $
    List.snoc fs $ { idx: List.length fs, ftField: defaultField }) fieldsS
    src/Gargantext/Components/Nodes/Corpus/Dashboard.purs
    View file @ 263c5db9
    ......@@ -15,7 +15,7 @@ import Gargantext.Components.Nodes.Types (FTFieldList(..), FTFieldsWithIndex(..)
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Prelude (Unit, bind, discard, pure, read, show, unit, ($), (<$>), (<>), (==))
    import Gargantext.Sessions (Session, sessionId)
    import Gargantext.Types (FrontendError, NodeID)
    import Gargantext.Types (NodeID)
    import Gargantext.Utils.Reactix as R2
    import Gargantext.Utils.Toestand as T2
    import Reactix as R
    ......
    src/Gargantext/Components/Nodes/Frame.purs
    View file @ 263c5db9
    ......@@ -107,7 +107,6 @@ frameLayoutViewCpt = here.component "frameLayoutView" cpt
    _ ->
    pure $ H.div{} [
    FV.backButton
    , FV.homeButton
    , H.div { className : "frame"
    , rows: "100%,*" }
    [ -- H.script { src: "https://visio.gargantext.org/external_api.js"} [],
    ......@@ -141,7 +140,7 @@ nodeFrameVisioCpt = here.component "nodeFrameVisio" cpt
    Just r -> do
    api <- JM.jitsiMeetAPI (WURL.host url) { parentNode: r, roomName: frame_id }
    here.log2 "[nodeFrameVisio] api" api
    pure $ H.div { ref } [ H.text $ WURL.host url ]
    type LoadProps = ( nodeId :: Int
    ......
    src/Gargantext/Components/Nodes/Home.purs
    View file @ 263c5db9
    ......@@ -183,7 +183,10 @@ tutorialCpt = here.component "tutorial" cpt where
    sessionToFolder session@(Session {treeId, username, backend: (Backend {name})}) =
    H.span { className: "folder" } [
    H.div { className: "d-flex justify-content-center" } [ H.text (username <> "@" <> name) ]
    , H.div {} [ FV.folderView { backFolder: false, boxes, nodeId: treeId, session } ] ]
    , H.div {} [ FV.folderView { backFolder: false
    , boxes
    , nodeId: treeId
    , session } ] ]
    startTutos :: Array Tuto
    startTutos =
    ......
    src/Gargantext/Components/Router.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/Search.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/Table.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/Themes.js 0 → 100644
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/Themes.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/Tile.purs 0 → 100644
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Components/TileMenu.purs 0 → 100644
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Config/REST.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Config/Utils.purs
    View file @ 263c5db9
    ......@@ -22,4 +22,3 @@ handleRESTError errors (Left error) _ = liftEffect $ do
    T.modify_ (A.cons $ FRESTError { error }) errors
    here.log2 "[handleTaskError] RESTError" error
    handleRESTError _ (Right task) handler = handler task
    src/Gargantext/Hooks/LinkHandler.purs 0 → 100644
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Hooks/Loader.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Router.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Routes.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Utils.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Utils/Reactix.purs
    View file @ 263c5db9
    This diff is collapsed.
    src/Gargantext/Utils/SimpleJSON.purs 0 → 100644
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/_code_editor.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/_folder_view.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/_login.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/_menu.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/_styles.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/_tree.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/abstract/_members.scss 0 → 100644
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/abstract/_variables.scss 0 → 100644
    View file @ 263c5db9
    /// Global spacing value
    $space-unit: 8px;
    src/sass/bootstrap/_common.scss
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/bootstrap/darkster.scss
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/bootstrap/default.sass
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/bootstrap/greyson.scss
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/bootstrap/herbie.scss
    View file @ 263c5db9
    This diff is collapsed.
    src/sass/bootstrap/monotony.scss
    View file @ 263c5db9
    This diff is collapsed.
    yarn.lock
    View file @ 263c5db9
    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