;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/batch.el
;;
;; emacs \
;;   --batch \
;;   -u USER \
;;   **/*.el \
;;   -eval '(do-to-all-batch-files (quote f))'

(defun do-to-all-batch-files (f)
  (dolist (file-rel (cdr command-line-args)) ; drop initial 'emacs'
    (let ((file (concat command-line-default-directory file-rel)))
      (when (file-exists-p file)
        (find-file file)
        f) )))

(provide 'batch)