amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix: remove stale ASDF push and apt spam from CLI script
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
Details

Browse Source 
- Remove push of deleted XDG dir from TUI/daemon subcommands (quicklisp
  local-projects symlink covers it)
- check_dependencies now only checks sbcl/git/curl/emacs (not nc/socat),
  and runs apt-get update only when packages are actually missing
This commit is contained in:
Amr Gharbeia
2026-05-03 20:16:35 -04:00
parent ff64556924
commit b728f73ded
1 changed files with 6 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
passepartout
View File

@@ -52,7 +52,7 @@ distro_install() {
# --- DEPENDENCY CHECK --- # --- DEPENDENCY CHECK ---
check_dependencies() { check_dependencies() {
local missing=() local missing=()
for dep in sbcl git curl socat nc; do for dep in sbcl git curl; do
if ! command_exists "$dep"; then missing+=("$dep"); fi if ! command_exists "$dep"; then missing+=("$dep"); fi
done done
if ! command_exists emacs; then missing+=("emacs-nox"); fi if ! command_exists emacs; then missing+=("emacs-nox"); fi
@@ -61,14 +61,11 @@ check_dependencies() {
local distro=$(detect_distro) local distro=$(detect_distro)
case "$distro" in case "$distro" in
debian) debian)
distro_install "${missing[@]}" libssl-dev libncurses-dev libffi-dev zlib1g-dev libsqlite3-dev 2>/dev/null || true sudo apt-get update -qq 2>/dev/null || true
if ! command_exists rlwrap; then distro_install rlwrap 2>/dev/null || true; fi distro_install "${missing[@]}" 2>/dev/null || true
if ! command_exists nc; then distro_install netcat-openbsd 2>/dev/null || true; fi
;; ;;
fedora) fedora)
distro_install "${missing[@]}" openssl-devel ncurses-devel libffi-devel zlib-devel sqlite-devel 2>/dev/null || true distro_install "${missing[@]}" 2>/dev/null || true
if ! command_exists rlwrap; then distro_install rlwrap 2>/dev/null || true; fi
if ! command_exists nc; then distro_install nmap-ncat 2>/dev/null || true; fi
;; ;;
esac esac
fi fi
@@ -383,7 +380,6 @@ case "$COMMAND" in
echo "Starting daemon (data dir: $PASSEPARTOUT_DATA_DIR)..." echo "Starting daemon (data dir: $PASSEPARTOUT_DATA_DIR)..."
nohup sbcl --non-interactive \ nohup sbcl --non-interactive \
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \ --eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
--eval "(push (truename \"$PASSEPARTOUT_DATA_DIR/\") asdf:*central-registry*)" \
--eval "(ql:quickload :passepartout)" \ --eval "(ql:quickload :passepartout)" \
--eval "(load (format nil \"~alisp/system-model-router.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \ --eval "(load (format nil \"~alisp/system-model-router.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
--eval "(load (format nil \"~alisp/system-embedding-gateway.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \ --eval "(load (format nil \"~alisp/system-embedding-gateway.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
@@ -404,13 +400,10 @@ case "$COMMAND" in
echo "Starting daemon first..." echo "Starting daemon first..."
$0 daemon $0 daemon
fi fi
sbcl \ exec sbcl \
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \ --eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
--eval "(push (truename \"$PASSEPARTOUT_DATA_DIR/\") asdf:*central-registry*)" \
--eval '(ql:quickload :passepartout/tui)' \ --eval '(ql:quickload :passepartout/tui)' \
--eval '(passepartout.gateway-tui:main)' || { --eval '(passepartout.gateway-tui:main)'
echo "TUI error. Run 'passepartout doctor --fix'"; exit 1
}
;; ;;
gateway) gateway)
SUBCMD=$1; PLATFORM=$2; TOKEN=$3 SUBCMD=$1; PLATFORM=$2; TOKEN=$3