52 lines
729 B
Plaintext
52 lines
729 B
Plaintext
|
#!/bin/sh
|
||
|
|
|
||
|
|
usage () {
|
||
|
|
cat <<EOF>&2
|
||
|
|
Usage: ${0##*/} [OPTIONS] SCRIPT [ARGS...]
|
||
|
|
|
||
|
|
Run Emacs Lisp SCRIPT.
|
||
|
|
|
||
|
|
Options:
|
||
|
|
|
||
|
|
-b: Byte-compile before running.
|
||
|
|
-c: Remove byte code once finished.
|
||
|
|
EOF
|
||
|
|
}
|
||
|
|
|
||
|
|
OPT_BYTE=false
|
||
|
|
OPT_CLEAN=false
|
||
|
|
while getopts :bc OPT; do
|
||
|
|
case $OPT in
|
||
|
|
b)
|
||
|
|
OPT_BYTE=true ;;
|
||
|
|
c)
|
||
|
|
OPT_CLEAN=true ;;
|
||
|
|
\?)
|
||
|
|
usage
|
||
|
|
exit 1 ;;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
|
||
|
|
shift $((OPTIND - 1))
|
||
|
|
if [ $# -eq 0 ]; then
|
||
|
|
usage
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
if ! command -v emacs >/dev/null 2>&1; then
|
||
|
|
echo >&2 'emacs not found'
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
script="$1"
|
||
|
|
if $OPT_BYTE && [ "${0##*.}" = "el" ]; then
|
||
|
|
script="${1%.*}.elc"
|
||
|
|
emacs -Q --batch -f batch-byte-compile "$1" 2>/dev/null
|
||
|
|
fi
|
||
|
|
shift
|
||
|
|
|
||
|
|
emacs -Q --script "$script" "$@" 2>&1
|
||
|
|
status=$?
|
||
|
|
$OPT_CLEAN && rm "$script"
|
||
|
|
exit $status
|