dolist-with-progress-reporter

gistfile1.el

(defmacro my-dolist-with-progress-reporter (spec message &rest body)
  (declare (indent 2) (debug ((symbolp form &optional form) form body)))
  (let ((list-var (make-symbol "list"))
	(length-var (make-symbol "length"))
	(counter-var (make-symbol "counter"))
	(progress-var (make-symbol "progress")))
    `(let* ((,list-var ,(nth 1 spec))
	    (,length-var (length ,list-var))
	    (,counter-var 0)
	    (,progress-var (make-progress-reporter ,message 0 ,length-var)))
       (prog1
	   (dolist (,(car spec) ,list-var ,@(cddr spec))
	     ,@body
	     (progress-reporter-update ,progress-var (incf ,counter-var)))
	 (progress-reporter-done ,progress-var)))))