mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 21:18:59 +08:00
24 lines
786 B
EmacsLisp
24 lines
786 B
EmacsLisp
|
#! /bin/sh
|
||
|
|
":"; exec ${EMACS:-emacs} -batch -Q -l "$0" "$@" # -*-emacs-lisp-*-
|
||
|
|
|
||
|
|
;; Usage:
|
||
|
|
;; test/check-recipe.el PATH/TO/RECIPE.rcp
|
||
|
|
|
||
|
|
(eval-when-compile (require 'cl))
|
||
|
|
(add-to-list 'load-path (expand-file-name
|
||
|
|
".."
|
||
|
|
(file-name-directory load-file-name)))
|
||
|
|
(require 'el-get)
|
||
|
|
|
||
|
|
(loop with sumerror = 0
|
||
|
|
for file in command-line-args-left
|
||
|
|
for numerror = (el-get-check-recipe file)
|
||
|
|
when (/= numerror 0)
|
||
|
|
do (with-current-buffer (get-buffer-create "*el-get check recipe*")
|
||
|
|
(princ (format "Error in %s\n" file))
|
||
|
|
(princ (buffer-string))
|
||
|
|
(princ "\n\n"))
|
||
|
|
sum numerror into sumerror
|
||
|
|
finally (when (/= sumerror 0)
|
||
|
|
(error "%s error(s) found in total." sumerror)))
|