commit f45a86224efc182624b4c54b8e403cb6005e0375
from: Omar Polo <op@omarpolo.com>
date: Wed May 15 22:10:14 2024 UTC

gemtext: add :join-lines to parse-string too

commit - ef70a29d8b37a4cd1bb75f798fc11e17be189d68
commit + f45a86224efc182624b4c54b8e403cb6005e0375
blob - 8c15671d02f9bf9d5f65481fa5180b7d604d3be2
blob + 4326af0d1a8fde492acbc76c51ae69571555945d
--- gemtext.lisp
+++ gemtext.lisp
@@ -137,10 +137,10 @@ Can be a programming language name or alternative text
         (join-lines doc)
         doc)))
 
-(defun parse-string (str)
+(defun parse-string (str &key join-lines)
   "Parse the string STR as gemtext."
   (with-input-from-string (s str)
-    (parse s)))
+    (parse s :join-lines join-lines)))
 
 (defgeneric unparse (obj stream)
   (:documentation "Print a textual representation of OBJ onto STREAM."))