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

v0.8.0: replace fragile /tmp/tui-load.lisp with direct ql:quickload :passepartout/tui

Browse Source 
The generated temp script manually compiled and loaded TUI files from
/lisp/, silently swallowing compile errors and
leaving the user with a blank screen. Replaced with a direct ASDF load
that gives proper error messages and lets ASDF handle compilation.
This commit is contained in:
Amr Gharbeia
2026-05-18 13:44:31 -04:00
parent 5797e43cd8
commit 4b0034c1a5
1 changed files with 9 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
passepartout
View File

@@ -379,40 +379,9 @@ case "$COMMAND" in
export PASSEPARTOUT_DATA_DIR="${PASSEPARTOUT_DATA_DIR:-$SCRIPT_DIR}"
if ! ss -tln 2>/dev/null | grep -q 9105 && ! netstat -tln 2>/dev/null | grep -q 9105; then
echo "Starting daemon..."
# Start daemon in background — don't block TUI startup
$0 daemon &>/dev/null &
sleep 2
fi
# Build TUI load script with proper paths
cat > /tmp/tui-load.lisp << LISPEOF
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
(push (truename "$PASSEPARTOUT_DATA_DIR/") asdf:*central-registry*)
(ql:quickload :cl-tty :silent t)
(ql:quickload :passepartout :silent t)
(setf *debugger-hook* nil)
(let ((dir (pathname (format nil "~a/lisp/" (truename "$PASSEPARTOUT_DATA_DIR")))))
(dolist (f '("channel-tui-state" "channel-tui-view" "channel-tui-main"))
(let* ((src (merge-pathnames (format nil "~a.lisp" f) dir))
(fasl (merge-pathnames (format nil "~a.fasl" f) dir)))
(when (or (not (probe-file fasl))
(< (file-write-date fasl) (file-write-date src)))
(let ((out (compile-file src :output-file fasl :verbose nil :print nil)))
(unless out
(format t "~%*** COMPILE FAILED: ~a ***~%" src))))
(let ((r (load fasl :verbose nil :print nil)))
(unless r
(format t "~%*** LOAD FAILED: ~a ***~%" fasl)))))
(handler-case
(funcall (find-symbol "TUI-MAIN" "PASSEPARTOUT.CHANNEL-TUI"))
(error (c)
(ignore-errors
(with-open-file (f (merge-pathnames ".cache/passepartout/tui-crash.log" (user-homedir-pathname))
:direction :output :if-exists :supersede :if-does-not-exist :create)
(format f "CRASH: ~a~%~%" c) (sb-debug:print-backtrace :count 50 :stream f) (finish-output f)))
(format t "~%=== TUI CRASH ===~%CRASH: ~a~%" c)
(format t "Full backtrace saved to ~~/.cache/passepartout/tui-crash.log~%")
(sleep 3) (finish-output))))
(uiop:quit 0)
LISPEOF
# Restore terminal on any exit (set -e can kill the script before the
# explicit stty restore below if sbcl exits non-zero).
cleanup() { stty icanon echo ixon 2>/dev/null; }
@@ -426,12 +395,15 @@ LISPEOF
stty -icanon -echo -ixon 2>/dev/null
# Ensure COLORTERM is set for modern backend detection
export COLORTERM="${COLORTERM:-truecolor}"
# Clear stale cl-tty cache to ensure latest backend-size fixes
find ~/.cache/common-lisp -name "*.fasl" -path "*cl-tty*" -delete 2>/dev/null
sbcl --noinform --load /tmp/tui-load.lisp
# Clear stale cache
find ~/.cache/common-lisp -name "*.fasl" -path "*passepartout*" -o -name "*.fasl" -path "*cl-tty*" -delete 2>/dev/null
sbcl --noinform \
--load "$HOME/quicklisp/setup.lisp" \
--eval '(push (truename "'"$PASSEPARTOUT_DATA_DIR"'/") asdf:*central-registry*)' \
--eval '(ql:quickload :passepartout/tui)' \
--eval '(in-package :passepartout)' \
--eval '(passepartout.channel-tui:tui-main)'
rc=$?
# Restore terminal cooked mode (also handled by trap cleanup above,
# but do it explicitly here for clarity).
stty icanon echo ixon 2>/dev/null
exit $rc
;;