Elisp: Support CLI arguments
parent
c8b8b373d7
commit
af7bf794de
|
@ -3,7 +3,7 @@
|
||||||
_printhelp ()
|
_printhelp ()
|
||||||
{
|
{
|
||||||
cat<<EOF
|
cat<<EOF
|
||||||
Usage: ${1##*/} [OPTIONS] SCRIPT
|
Usage: ${1##*/} [OPTIONS] SCRIPT [ARGS...]
|
||||||
|
|
||||||
Run Emacs Lisp SCRIPT.
|
Run Emacs Lisp SCRIPT.
|
||||||
|
|
||||||
|
@ -34,14 +34,18 @@ if [ $# -eq 0 ]; then
|
||||||
exit 1
|
exit 1
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
if ! command -v emacs >/dev/null 2>&1; then
|
||||||
|
echo 'emacs not found in PATH. Exiting.' >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
script="$1"
|
||||||
if $OPT_BYTE && [ "${1##*.}" = "el" ]; then
|
if $OPT_BYTE && [ "${1##*.}" = "el" ]; then
|
||||||
script="${1%.*}.elc"
|
script="${1%.*}.elc"
|
||||||
emacs -Q --batch -f batch-byte-compile "$1"
|
emacs -Q --batch -f batch-byte-compile "$1"
|
||||||
else
|
|
||||||
script="$1"
|
|
||||||
OPT_CLEAN=false
|
|
||||||
fi
|
fi
|
||||||
|
shift
|
||||||
|
|
||||||
emacs -Q --script "$script"
|
emacs -Q --script "$script" "$@"
|
||||||
|
|
||||||
$OPT_CLEAN && rm "$script"
|
$OPT_CLEAN && rm "$script"
|
||||||
|
|
Loading…
Reference in New Issue