46 lines
1.7 KiB
Bash
46 lines
1.7 KiB
Bash
#!/bin/sh -e
|
|
|
|
# The following is a derivative work of
|
|
# https://github.com/purcell/package-lint
|
|
# licensed under GNU General Public License v3.0.
|
|
|
|
EMACS="${EMACS:=emacs}"
|
|
|
|
INIT_PACKAGE_EL="(progn
|
|
(require 'package)
|
|
(push '(\"melpa\" . \"http://melpa.org/packages/\") package-archives)
|
|
(package-initialize))"
|
|
|
|
"$EMACS" -Q -batch \
|
|
--eval "$INIT_PACKAGE_EL" \
|
|
--eval "(unless (package-installed-p (quote quelpa)) (package-refresh-contents) (package-install (quote quelpa)))" \
|
|
--eval "(unless (package-installed-p (quote package-lint)) (quelpa (quote (package-lint :fetcher github :repo \"dickmao/package-lint\" :branch \"datetime\"))))"
|
|
|
|
# Byte compile, failing on byte compiler errors, or on warnings unless ignored
|
|
if [ -n "${EMACS_LINT_IGNORE+x}" ]; then
|
|
ERROR_ON_WARN=nil
|
|
else
|
|
ERROR_ON_WARN=t
|
|
fi
|
|
|
|
BASENAME=$(basename $1)
|
|
"$EMACS" -Q -batch \
|
|
--eval "$INIT_PACKAGE_EL" \
|
|
-l package-lint.el \
|
|
--visit $1 \
|
|
--eval "(checkdoc-eval-current-buffer)" \
|
|
--eval "(princ (with-current-buffer checkdoc-diagnostic-buffer (buffer-string)))" \
|
|
2>&1 | egrep -a "^$BASENAME:" | egrep -v "Messages should start" && [ -n "${EMACS_LINT_IGNORE+x}" ]
|
|
|
|
# Lint ourselves
|
|
# Lint failures are ignored if EMACS_LINT_IGNORE is defined, so that lint
|
|
# failures on Emacs 24.2 and below don't cause the tests to fail, as these
|
|
# versions have buggy imenu that reports (defvar foo) as a definition of foo.
|
|
# Reduce purity via:
|
|
# --eval "(fset 'package-lint--check-defs-prefix (symbol-function 'ignore))" \
|
|
"$EMACS" -Q -batch \
|
|
--eval "$INIT_PACKAGE_EL" \
|
|
-l package-lint.el \
|
|
-f package-lint-batch-and-exit \
|
|
$1 || [ -n "${EMACS_LINT_IGNORE+x}" ]
|