macroexpand-file

macroexpand-file.el

(require 'macroexp)

(defun read-and-macroexpand-all (stream)
  (ignore-errors
    (cons (macroexpand-all (read stream))
          (read-and-macroexpand-all stream))))

(defun macroexpand-file (src dest)
  "ファイル SRC 内のすべてのフォームをマクロ展開して、ファイル DEST に保存する"
  (let ((forms (with-temp-buffer
                 (insert-file-contents src)
                 (read-and-macroexpand-all (current-buffer)))))
    (with-temp-buffer
      (dolist (form forms)
        (prin1 form (current-buffer))
        (insert "\n\n"))
      (write-file dest))))

;; (macroexpand-file "~/.emacs.d/init.el" "~/.emacs.d/init-expanded.el")