diff options
| author | EuAndreh <eu@euandre.org> | 2022-10-24 15:41:50 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-10-24 15:41:50 -0300 |
| commit | abad340cfac10498cb71cff42b06cc5b1f2e525b (patch) | |
| tree | b33ddc64c46386c9440d8332baea87ad76b4d9de /bin/cl | |
| parent | bin/cl: s/NIL/nil/ (diff) | |
| download | dotfiles-abad340cfac10498cb71cff42b06cc5b1f2e525b.tar.gz dotfiles-abad340cfac10498cb71cff42b06cc5b1f2e525b.tar.xz | |
bin/cl: Move automatic image handling out to bin/li
Diffstat (limited to 'bin/cl')
| -rwxr-xr-x | bin/cl | 14 |
1 files changed, 2 insertions, 12 deletions
@@ -56,7 +56,6 @@ help() { -f FILE a file to be evaluated (can be given more than once) -p print the value of the last given expression -M IMAGE load the given Lisp image - -m disable looking for the default image under $XDG_DATA_HOME -I IMPL use the given implementation (default: $LISP_CLI_IMPL) -n skip loading the implementation's init file -v verbose mode @@ -138,9 +137,8 @@ SCRIPT="$(mkstemp)" LISP_CLI_RC="${XDG_CONFIG_HOME:-$HOME/.config}/lisp-cli/init.lisp" VERBOSE=false IMAGE='' -SKIP_DEFAULT_IMAGE=false IMPL="${LISP_CLI_IMPL:-}" -while getopts 'e:f:pM:mI:nvlh' flag; do +while getopts 'e:f:pM:I:nvlh' flag; do case "$flag" in e) printf '%s\n' "$OPTARG" >> "$SCRIPT" @@ -151,9 +149,6 @@ while getopts 'e:f:pM:mI:nvlh' flag; do M) IMAGE="$OPTARG" ;; - m) - SKIP_DEFAULT_IMAGE=true - ;; I) IMPL="$OPTARG" ;; @@ -223,15 +218,10 @@ if [ -z "$IMPL" ]; then fi fi -DEFAULT_IMAGE="${XDG_DATA_HOME:-$HOME/.local/share}/lisp-cli/$IMPL.image" -if [ "$SKIP_DEFAULT_IMAGE" = false ] && [ -z "$IMAGE" ] && - [ -e "$DEFAULT_IMAGE" ]; then - IMAGE="$DEFAULT_IMAGE" -fi - case "$IMPL" in abcl) + ... exit 4 ;; allegro) |