From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 8 Aug 2022 06:27:26 +0000 (-0500)
Subject: sequences.extras: Add a couple words for prepending spaces to lines
X-Git-Tag: 0.99~1164
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=1bf4194271bc619cbeaeda2f60bf11081a95282f

sequences.extras: Add a couple words for prepending spaces to lines
---

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index dc56d117d4..0d37e3e14d 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -379,6 +379,12 @@ PRIVATE>
 : >string-list ( seq -- seq' )
     [ "\"" 1surround ] map "," join ;
 
+: with-string-lines ( str quot -- str' )
+    [ string-lines ] dip map "\n" join ; inline
+
+: prepend-lines-with-spaces ( str -- str' )
+    [ "    " prepend ] with-string-lines ;
+
 : one? ( ... seq quot: ( ... elt -- ... ? ) -- ... ? )
     [ find ] 2keep rot [
         [ 1 + ] 2dip find-from drop not