set -eu -o pipefail

cleanup() {
  if [[ -d /homeless-shelter ]]; then
    rm -rf /homeless-shelter
  fi
}
trap cleanup EXIT

export PATH
add_path() {
  PATH="$PATH:$1"
}
add_path "$coreutils/bin"
add_path "$findutils/bin"
add_path "$git/bin"
add_path "$sbcl/bin" 
add_path "$curl/bin" 

mkdir -p "$out"/bin/multicall

BUILD_DIR="$out/build"
mkdir "$BUILD_DIR"
cd "$BUILD_DIR"

cp -R "$src" "$BUILD_DIR/src"
chmod -R +rwX "$BUILD_DIR/src"
ls -dl $PWD
mkdir build quicklisp

cd "$BUILD_DIR/src"

curl -O https://beta.quicklisp.org/quicklisp.lisp
sbcl \
  --eval "(require :asdf)" \
  --eval "(setf asdf:*user-cache* (truename #p\"$BUILD_DIR/build/\"))" \
  --load quicklisp.lisp \
  --eval "(quicklisp-quickstart:install :path (truename \"$BUILD_DIR/quicklisp/\"))"

sbcl \
  --eval "(require :asdf)" \
  --eval "(setf asdf:*user-cache* (truename #p\"$BUILD_DIR/build/\"))" \
  --load "$BUILD_DIR/quicklisp/setup.lisp" \
  --eval '(ql:quickload :buildapp)' \
  --eval '(buildapp:build-buildapp)'

./buildapp \
  --output "$out/bin/multicall/uclip" \
  --eval "(require :asdf)" \
  --eval "(setf asdf:*user-cache* (truename #p\"$BUILD_DIR/build/\"))" \
  --eval "(format t \"~3&ASDF:*user-cache*: ~s~3%\" asdf:*user-cache*)" \
  --load "$BUILD_DIR/quicklisp/setup.lisp" \
  --asdf-tree "$BUILD_DIR/src/" \
  --eval "(ql:quickload :uclip)" \
  --dispatched-entry /uclip::paste \
  --dispatched-entry ucopy/uclip::copy \
  --dispatched-entry upaste/uclip::paste \
  --dispatched-entry uswitch/uclip::switch-clipboards \
  --dispatched-entry upop/uclip::pop-clipboard \
  --dispatched-entry uls/uclip::list-clipboards \
  --dispatched-entry ushow/uclip::show-clipboard-contents \
  --dispatched-entry uclear/uclip::clear-clipboard

cd "$out/bin"

xargs  -n1  ln -fsv multicall/uclip <<EOF
ucopy
upaste
uswitch
upop
uls
ushow
uclear
EOF