[Plugin API] Add HTML.inner_text

PataphysicalSociety · Oct 16, 2023 · 6cf024b · 6cf024b
1 parent f36d6e1
commit 6cf024b
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/plugin_api.ml b/src/plugin_api.ml
@@ -409,6 +409,12 @@ module Html = struct
     | None -> ""
     | Some node -> to_general node |> Html_utils.inner_html
 
+  let inner_text node =
+    match node with
+    | None -> ""
+    | Some node ->
+      to_general node |> Soup.texts |> String.concat " "
+
   let strip_tags node =
     match node with
     | None -> ""
@@ -865,6 +871,7 @@ struct
         "delete", V.efunc (V.option Map.html **->> V.unit) Html.delete;
         "delete_element", V.efunc (V.option Map.html **->> V.unit) Html.delete;
         "inner_html", V.efunc (V.option Map.html **->> V.string) Html.inner_html;
+        "inner_text", V.efunc (V.option Map.html **->> V.string) Html.inner_text;
         "clone_content", V.efunc (V.option Map.html **->> V.option Map.html) Html.clone_content;
         "clone_document", V.efunc (Map.html **->> Map.html) Html.clone_page;
         "strip_tags", V.efunc (V.option Map.html **->> V.string) Html.strip_tags;