Merge pull request #71 from jbhoot/feat/enrich-plugin-api

Improve the HTML node type checking API
PataphysicalSociety · Sep 5, 2024 · 9e0f008 · 9e0f008
2 parents 6714700 + edc05c7
commit 9e0f008
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/plugin_api.ml b/src/plugin_api.ml
@@ -176,6 +176,9 @@ module Html = struct
     | ElementNode n -> Soup.coerce n
     | SoupNode n -> Soup.coerce n
 
+  let is_text n =
+    n |> to_general |> Soup.is_text 
+
   let to_soup n =
     match n with
     | SoupNode n -> n
@@ -185,9 +188,7 @@ module Html = struct
     to_general n |> Soup.is_root
 
   let is_document n =
-    match n with
-    | SoupNode _ -> true
-    | _ -> false
+    to_general n |> Soup.is_document
 
   let select soup selector =
     let* soup = soup in