825980b93b
- README.org with overview, architecture, component table, quick start - demo.lisp — working TUI demo exercising multiple components - run-all-tests.lisp — single-script test runner - ROADMAP updated with v1.0.0 documentation milestone - Full test suite: ~280 checks, 100% passing across 9 suites
80 lines
3.3 KiB
Common Lisp
80 lines
3.3 KiB
Common Lisp
;;; demo.lisp — cl-tty demo application
|
|
;;; Run: sbcl --script demo.lisp
|
|
|
|
(load "~/quicklisp/setup.lisp")
|
|
(ql:register-local-projects)
|
|
(ql:quickload :cl-tty :silent t)
|
|
|
|
(in-package :cl-tty)
|
|
|
|
;; ─── Helper: write a string at (x, y) with optional styling ────────────────
|
|
|
|
(defun write-at (backend x y string &key fg bg bold)
|
|
(let ((styled (if bold (format nil "~c[1m~a~c[0m" #\Esc string #\Esc) string)))
|
|
(backend-write backend x y styled fg bg)))
|
|
|
|
;; ─── Demo ───────────────────────────────────────────────────────────────────
|
|
|
|
(defun run-demo ()
|
|
(let* ((backend (make-instance 'cl-tty.backend:modern-backend))
|
|
(w 80) (h 24))
|
|
;; Initialize
|
|
(initialize-backend backend)
|
|
(clear-screen backend)
|
|
(backend-write backend 0 0 (format nil "~c[?25l" #\Esc)) ; hide cursor
|
|
|
|
;; Title box
|
|
(draw-border backend 1 1 78 3 :double :title " cl-tty Demo ")
|
|
(write-at backend 3 2 "A pure-CL terminal UI framework. No ncurses, no FFI."
|
|
:bold t)
|
|
|
|
;; Feature grid
|
|
(draw-border backend 1 5 78 12 :single :title " Components ")
|
|
(let ((items '((" Box Bordered containers with title and background"
|
|
" Text Styled text with word-wrap and spans")
|
|
(" ScrollBox Scrollable viewport with scrollbars"
|
|
" TabBar Horizontal tab navigation")
|
|
(" Select Dropdown with fuzzy filter"
|
|
" TextInput / TextArea Single/multi-line input with undo")
|
|
(" Markdown Renders markdown with syntax highlighting"
|
|
" Dialog / Toast Modal overlays and notifications")
|
|
(" Mouse Event handlers and text selection"
|
|
" Slot System Named slots for extensible UI"))))
|
|
(loop for i from 0 below 5
|
|
for (col1 col2) = (nth i items)
|
|
do (write-at backend 3 (+ 7 i) col1)
|
|
(write-at backend 42 (+ 7 i) col2)))
|
|
|
|
;; Backend features table
|
|
(draw-border backend 1 18 78 5 :single :title " Backend Support ")
|
|
(write-at backend 3 20 "Feature" :bold t)
|
|
(write-at backend 25 20 "modern" :bold t)
|
|
(write-at backend 40 20 "simple" :bold t)
|
|
(write-at backend 3 21 "Truecolor (24-bit)")
|
|
(write-at backend 25 21 "yes")
|
|
(write-at backend 40 21 "no")
|
|
(write-at backend 3 22 "OSC 8 hyperlinks")
|
|
(write-at backend 25 22 "yes")
|
|
(write-at backend 40 22 "no")
|
|
|
|
;; Footer
|
|
(write-at backend 1 24 " Press q to quit " :bold t :fg :white :bg :blue)
|
|
(backend-write backend 0 0 (format nil "~c[?25h" #\Esc)) ; show cursor
|
|
|
|
;; Wait for q
|
|
(loop
|
|
(let ((ch (read-raw-byte :timeout 1)))
|
|
(when ch
|
|
(when (or (char= (code-char ch) #\q)
|
|
(= ch 3)) ; Ctrl+C
|
|
(return)))))
|
|
|
|
;; Cleanup
|
|
(clear-screen backend)
|
|
(shutdown-backend backend)))
|
|
|
|
;; ─── Run ────────────────────────────────────────────────────────────────────
|
|
|
|
(when (probe-file "/dev/tty")
|
|
(run-demo))
|