From 00803fdc6df28c06b3d7c85f47e9c7e0394a167f Mon Sep 17 00:00:00 2001
From: Gene Pasquet <dev@etenil.net>
Date: Thu, 13 Feb 2025 21:39:18 +0000
Subject: Initial commit

---
 unhtml.lisp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 unhtml.lisp

(limited to 'unhtml.lisp')

diff --git a/unhtml.lisp b/unhtml.lisp
new file mode 100644
index 0000000..7ecea1b
--- /dev/null
+++ b/unhtml.lisp
@@ -0,0 +1,20 @@
+(defpackage :phaser.unhtml
+  (:use :common-lisp)
+  (:export
+   #:text-excerpt))
+
+(in-package :phaser.unhtml)
+
+(defun node-has-text (node)
+  (let ((tag (plump:tag-name node))
+	(has-text (not (string= (plump:text node) ""))))
+    (and (string= tag "p")
+	 has-text)))
+
+(defun text-children (dom)
+  (loop for c across (plump:child-elements dom)
+	if (node-has-text c) collect c ))
+
+(defun text-excerpt (content length)
+  (let ((text-nodes (text-children (plump:parse content))))
+    (plump:text (first text-nodes))))
-- 
cgit v1.2.3