add FILE:REGEX-REPLACE-LINES

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

2 files changed, 14 insertions, 1 deletions

diff --git a/src/package.lisp b/src/package.lisp
index d40f464..c641ae9 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -146,10 +146,12 @@
 
 (defpackage :consfigurator.property.file
   (:use #:cl #:consfigurator #:alexandria)
+  (:local-nicknames (#:re #:cl-ppcre))
   (:export #:has-content
 	   #:contains-lines
 	   #:data-uploaded
-	   #:host-data-uploaded))
+	   #:host-data-uploaded
+	   #:regex-replace-lines))
 
 (defpackage :consfigurator.data.asdf
   (:use #:cl #:consfigurator))
diff --git a/src/property/file.lisp b/src/property/file.lisp
index c3eaab5..ac997d3 100644
--- a/src/property/file.lisp
+++ b/src/property/file.lisp
@@ -42,3 +42,14 @@
    (require-data (get-hostname) destination))
   (:apply
    (data-uploaded (get-hostname) destination destination)))
+
+(defprop regex-replace-lines :posix (regex replace file)
+  "Like s/REGEX/REPLACE/ on the lines of FILE.
+Uses CL-PPCRE:REGEX-REPLACE, which see for the syntax of REPLACE."
+  (:apply
+   (writefile
+    file
+    (unlines
+     (mapcar (lambda (line)
+	       (re:regex-replace regex line replace))
+	     (lines (readfile file)))))))