html/xml batch structural replacer

replacer.lisp

(defpackage :replacer
  (:use :cl :plump :clss))
(in-package :replacer)

(defun slurp (path)
 (with-open-file (stream path)
   (let ((data (make-string (file-length stream))))
     (read-sequence data stream)
     data)))

;; example

(defparameter *header* (plump:parse (slurp "header.html")))

(loop for path in (directory "./**/*.html")
   for dom = (plump:parse (slurp path))
   do (with-open-file (out-stream path
				  :direction :output
				  :if-exists :overwrite)
	(plump:replace-child
	 (aref (clss:select "header" dom) 0)
	 *header*)
	(handler-bind ((error (lambda (c) (declare (ignore c))
				    (invoke-restart (find-restart 'abort)))))
	(plump:serialize dom out-stream))))