Add a utility function for turning html strings into normal text.

Could be useful for the json-ld issue brought up in #58.
Chobbes · Sep 9, 2021 · 96e955e · 96e955e
1 parent f27b111
commit 96e955e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/org-chef-utils.el b/org-chef-utils.el
@@ -47,6 +47,12 @@
   (seq-filter (lambda (x) (not (stringp x)))
                                   (dom-children dom)))
 
+(defun org-chef-render-html (text)
+  "Turn an html string into normal text."
+  (with-temp-buffer
+    (insert text)
+    (shr-render-buffer (current-buffer))
+    (buffer-string)))
 
 (defun org-chef-insert-org-list (lst &optional bullet)
   "Insert LST as an ‘org-mode’ plain list.