batch.sh

# 確認用
emacs --batch --eval "(progn (message (mapconcat 'identity load-path \"\\n\")) (normal-top-level-add-subdirs-to-load-path) (message (mapconcat 'identity load-path \"\\n\")))"

# 実行
emacs --batch -l util.el --eval "(add-to-load-path \"elpa\")"

util.el

;;; util.el --- util.el -*- lexical-binding: t; coding: utf-8 -*-
;;; Commentary:
;; This program is free software
;;; Code:
(defun add-to-load-path (&rest paths)
  "Add to load path recursively.
`PATHS' Directorys you want to read recursively."
  (let (path)
    (dolist (path paths paths)
      (let ((default-directory (expand-file-name (concat user-emacs-directory path))))
        (add-to-list 'load-path default-directory)
        (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
            (normal-top-level-add-subdirs-to-load-path))))))

(provide 'util)
;;; util.el ends here