work together

711abfab · Alexandre Delanoë · a8a0f838 · 711abfab
Commit 711abfab authored Sep 23, 2019 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 9 deletions

SEARX.hs src/SEARX.hs +11 -9

No files found.
--- a/src/SEARX.hs
+++ b/src/SEARX.hs
@@ -31,24 +31,26 @@ getMetadataWith2 q = do
  runClientM
    (search (Just q) (Just 1) (Just 3) (Just "") (Just All) (Just Json))
    (mkClientEnv manager' $ BaseUrl Https "search.iscpif.fr" 443 "")
-{--

-          read($url, function(err, article, meta) {
-            // Title
-            article.close();
-}
-parseWebsite :: T.Text -> IO Int
+parseWebsite :: T.Text -> IO T.Text
 parseWebsite url =
  withSystemTempDirectory "" $ \tmpdir -> do
    withCurrentDirectory tmpdir $
      traverse_
        callCommand
-        ["npm init --yes", "npm install --save node-readability"]
+        [ "npm init --yes"
+        , "npm install --save readability"
+        -- , "npm install --save node-readability"
+        ]
    withJSSession
      defJSSessionOpts {nodeWorkDir = Just tmpdir}
      [block|
-          return 12;
-            });
+          const read = (await import("readability")).default,
+            reader = new Readability("<body>bal<title>title</title></body>").parse();
+
+          return reader.title;
+
+
            |]

 specConcatEith :: Semigroup a => Either b a -> Either b a -> Either b a