Tests: Update makem.sh
This commit is contained in:
parent
1ca5930b2f
commit
b5f9087e58
1 changed files with 20 additions and 6 deletions
26
makem.sh
26
makem.sh
|
|
@ -147,11 +147,20 @@ EOF
|
||||||
# ** Emacs
|
# ** Emacs
|
||||||
|
|
||||||
function run_emacs {
|
function run_emacs {
|
||||||
debug "run_emacs: emacs -Q --batch -L \"$load_path\" --load=$package_initialize_file $@"
|
debug "run_emacs: emacs -Q --batch --load=$package_initialize_file -L \"$load_path\" $@"
|
||||||
|
if [[ $debug_load_path ]]
|
||||||
|
then
|
||||||
|
debug $(emacs -Q --batch \
|
||||||
|
--load=$package_initialize_file \
|
||||||
|
-L "$load_path" \
|
||||||
|
--eval "(message \"LOAD-PATH: %s\" load-path)" \
|
||||||
|
2>&1)
|
||||||
|
fi
|
||||||
|
|
||||||
output_file=$(mktemp)
|
output_file=$(mktemp)
|
||||||
emacs -Q --batch -L "$load_path" \
|
emacs -Q --batch \
|
||||||
--load=$package_initialize_file \
|
--load=$package_initialize_file \
|
||||||
|
-L "$load_path" \
|
||||||
"$@" \
|
"$@" \
|
||||||
&>$output_file
|
&>$output_file
|
||||||
|
|
||||||
|
|
@ -239,11 +248,11 @@ function cleanup {
|
||||||
function echo_color {
|
function echo_color {
|
||||||
# This allows bold, italic, etc. without needing a function for
|
# This allows bold, italic, etc. without needing a function for
|
||||||
# each variation.
|
# each variation.
|
||||||
|
local color_code="COLOR_$1"
|
||||||
|
shift
|
||||||
|
|
||||||
if [[ $color ]]
|
if [[ $color ]]
|
||||||
then
|
then
|
||||||
local color_code="COLOR_$1"
|
|
||||||
shift
|
|
||||||
|
|
||||||
echo -e "${!color_code}${@}${COLOR_off}"
|
echo -e "${!color_code}${@}${COLOR_off}"
|
||||||
else
|
else
|
||||||
echo "$@"
|
echo "$@"
|
||||||
|
|
@ -322,6 +331,8 @@ Options:
|
||||||
-h, --help I need somebody!
|
-h, --help I need somebody!
|
||||||
-v, --verbose Increase verbosity, up to -vv.
|
-v, --verbose Increase verbosity, up to -vv.
|
||||||
|
|
||||||
|
--debug-load-path Print load-path.
|
||||||
|
|
||||||
-f FILE, --file FILE Check FILE in addition to discovered files.
|
-f FILE, --file FILE Check FILE in addition to discovered files.
|
||||||
|
|
||||||
--no-color Disable color output.
|
--no-color Disable color output.
|
||||||
|
|
@ -462,7 +473,7 @@ COLOR_white='\e[0;37m'
|
||||||
|
|
||||||
# * Args
|
# * Args
|
||||||
|
|
||||||
args=$(getopt -n "$0" -o dhvf:C -l debug,help,verbose,file:,no-color,no-compile -- "$@") || { usage; exit 1; }
|
args=$(getopt -n "$0" -o dhvf:C -l debug,debug-load-path,help,verbose,file:,no-color,no-compile -- "$@") || { usage; exit 1; }
|
||||||
eval set -- "$args"
|
eval set -- "$args"
|
||||||
|
|
||||||
while true
|
while true
|
||||||
|
|
@ -472,6 +483,9 @@ do
|
||||||
debug=true
|
debug=true
|
||||||
verbose=2
|
verbose=2
|
||||||
;;
|
;;
|
||||||
|
--debug-load-path)
|
||||||
|
debug_load_path=true
|
||||||
|
;;
|
||||||
-h|--help)
|
-h|--help)
|
||||||
usage
|
usage
|
||||||
exit
|
exit
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue