iens

commit cfbfdbdcd401c03cbff0e4cc1c58a3fee3f955ad
parent 3eefabab8de465f71eeb43413e040dff7dc39d8b
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat,  6 Jan 2024 11:39:48 +0000

Autoadd works with URL-terminated texts
Diffstat:
M
src/iens.scm
 | 
9
++++++---

1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -729,9 +729,12 @@
              (start  (if start0 start0
                          (substring-index-ci "http://" lines index)))
              (end    (if start
-                         (min (string-length lines)
-                              (substring-index " " lines start)
-                              (substring-index "\n" lines start))
+                         (apply min
+                           (filter identity
+                             (list
+                               (string-length lines)
+                               (substring-index " " lines start)
+                               (substring-index "\n" lines start))))
                          #f)))
         (cond (start
                 (loop end (cons (substring lines start end) urls)))