fix(tui): resolve crash by removing --non-interactive and adding defensive rendering
This commit is contained in:
9
scripts/diag-croatoan.lisp
Normal file
9
scripts/diag-croatoan.lisp
Normal file
@@ -0,0 +1,9 @@
|
||||
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
|
||||
(ql:quickload :croatoan :silent t)
|
||||
(handler-case
|
||||
(croatoan:with-screen (scr)
|
||||
(format t "Screen height: ~s~%" (croatoan:height scr))
|
||||
(format t "Screen width: ~s~%" (croatoan:width scr))
|
||||
(finish-output))
|
||||
(error (c) (format t "Croatoan Error: ~a~%" c)))
|
||||
(uiop:quit 0)
|
||||
Reference in New Issue
Block a user