[toolbar] camera: simpler and more reliable screenshot filename gen

spago.dhall

@@ -40,6 +40,7 @@ to generate this file without the comments in this block.
   , "foreign"
   , "foreign-object"
   , "form-urlencoded"
+  , "formatters"
   , "formula"
   , "functions"
   , "graphql-client"
@@ -47,9 +48,7 @@ to generate this file without the comments in this block.
   , "integers"
   , "js-timers"
   , "lists"
-  -- , "markdown"
   , "markdown-it"
-  --, "markdown-smolder"
   , "maybe"
   , "media-types"
   , "milkis"
@@ -75,7 +74,6 @@ to generate this file without the comments in this block.
   , "simple-json"
   , "simple-json-generics"
   , "simplecrypto"
-  -- , "smolder"
   , "strings"
   , "strings-extra"
   , "stringutils"

src/Gargantext/Components/GraphExplorer/Toolbar/Buttons.purs

@@ -11,15 +11,13 @@ module Gargantext.Components.GraphExplorer.Toolbar.Buttons
 import Prelude
 
 import Data.Array as A
-import Data.DateTime as DDT
-import Data.DateTime.Instant as DDI
 import Data.Either (Either(..))
-import Data.Enum (fromEnum)
+import Data.Formatter.DateTime as DFDT
 import Data.Foldable (intercalate)
 import Data.Maybe (Maybe(..))
 import Data.Sequence as Seq
-import Data.String as DS
 import DOM.Simple.Console (log2)
+import Effect (Effect)
 import Effect.Aff (launchAff_)
 import Effect.Class (liftEffect)
 import Effect.Now as EN
@@ -64,34 +62,34 @@ centerButton sigmaRef = B.button
 type CameraButtonProps =
   ( id             :: Int
   , hyperdataGraph :: GET.HyperdataGraph
+  , reloadForest   :: T2.ReloadS
   , session        :: Session
   , sigmaRef       :: R.Ref Sigmax.Sigma
-  , reloadForest   :: T2.ReloadS
   )
 
-
-cameraButton :: Record CameraButtonProps -> R.Element
-cameraButton { id
+screenshotFilename :: Effect String
+screenshotFilename = do
+  nowdt <- EN.nowDateTime
+  pure $ case DFDT.formatDateTime "YYYY-MM-DDTHH:mm:ss" nowdt of
+    Left err -> err
+    Right s -> s <> "-screenshot.png"
+
+cameraButton :: R2.Leaf CameraButtonProps
+cameraButton = R2.leaf cameraButtonCpt
+cameraButtonCpt :: R.Component CameraButtonProps
+cameraButtonCpt = here.component "cameraButton" cpt
+  where
+    cpt { id
         , hyperdataGraph: GET.HyperdataGraph { graph: GET.GraphData hyperdataGraph }
+        , reloadForest
         , session
-             , sigmaRef
-             , reloadForest } = B.button
-
-  { variant: OutlinedButtonVariant Secondary
-  , callback: \_ -> do
+        , sigmaRef } _ = do
+      pure $ B.button
+        { callback: \_ -> do
+             filename <- screenshotFilename
              let sigma = R.readRef sigmaRef
              Sigmax.dependOnSigma sigma "[cameraButton] sigma: Nothing" $ \s -> do
                screen <- Sigma.takeScreenshot s
-        now <- EN.now
-        let nowdt = DDI.toDateTime now
-            nowd = DDT.date nowdt
-            nowt = DDT.time nowdt
-            nowStr = DS.joinWith "-" [ show $ fromEnum $ DDT.year nowd
-                                     , show $ fromEnum $ DDT.month nowd
-                                     , show $ fromEnum $ DDT.day nowd
-                                     , show $ fromEnum $ DDT.hour nowt
-                                     , show $ fromEnum $ DDT.minute nowt
-                                     , show $ fromEnum $ DDT.second nowt ]
                let graph = Sigma.graph s
                    edges = Graphology.edges graph
                    nodes = Graphology.nodes graph
@@ -104,13 +102,13 @@ cameraButton { id
                  case eClonedGraphId of
                    Left err -> liftEffect $ log2 "[cameraButton] RESTError" err
                    Right clonedGraphId -> do
-              eRet <- uploadArbitraryData session clonedGraphId Plain (Just $ nowStr <> "-" <> "screenshot.png") screen
+                     eRet <- uploadArbitraryData session clonedGraphId Plain (Just filename) screen
                      case eRet of
                        Left err -> liftEffect $ log2 "[cameraButton] RESTError" err
                        Right _ret -> do
                          liftEffect $ T2.reload reloadForest
-  }
-  [ H.text "Screenshot" ]
+        , variant: OutlinedButtonVariant Secondary
+        } [ H.text "Screenshot" ]
 
 ------------------------------------------------------
 

src/Gargantext/Components/GraphExplorer/Toolbar/Controls.purs

@@ -185,9 +185,9 @@ controlsCpt = R.memo' $ here.component "controls" cpt where
               cameraButton
               { id: graphId'
               , hyperdataGraph: hyperdataGraph'
+              , reloadForest
               , session: session
               , sigmaRef: sigmaRef
-              , reloadForest
               }
             ]
           ,