a5f8e6c9d4
- Box class with border-style, title, fg/bg slots - render-box dispatches through backend protocol - draw-border for borders, draw-rect for background - draw-text for title below top border - 7 tests: defaults, border, background, title, no-border, zero-size, minimum-size - 13 assertions, 100% GREEN - ASDF updated with src/components module - modern-backend now accepts :output-stream initarg
39 lines
1.1 KiB
Common Lisp
39 lines
1.1 KiB
Common Lisp
;;; cl-tui.asd — Common Lisp Terminal UI Framework
|
|
(asdf:defsystem :cl-tui
|
|
:description "Reusable Common Lisp Terminal UI Framework"
|
|
:author "Amr Gharbeia"
|
|
:version "0.2.0"
|
|
:license "TBD"
|
|
:depends-on (:fiveam)
|
|
:components
|
|
((:module "backend"
|
|
:components
|
|
((:file "package")
|
|
(:file "classes" :depends-on ("package"))
|
|
(:file "simple" :depends-on ("package" "classes"))
|
|
(:file "modern" :depends-on ("package" "classes"))))
|
|
(:module "layout"
|
|
:components
|
|
((:file "layout")))
|
|
(:module "src/components"
|
|
:components
|
|
((:file "package")
|
|
(:file "box" :depends-on ("package")))))
|
|
:in-order-to ((test-op (test-op :cl-tui-tests))))
|
|
|
|
(asdf:defsystem :cl-tui-tests
|
|
:description "Test suite for cl-tui"
|
|
:depends-on (:cl-tui :fiveam)
|
|
:components
|
|
((:module "backend"
|
|
:components
|
|
((:file "tests")))
|
|
(:module "layout"
|
|
:components
|
|
((:file "tests")))
|
|
(:module "src/components"
|
|
:components
|
|
((:file "box-tests"))))
|
|
:perform (test-op (o c)
|
|
(uiop:symbol-call :cl-tui-backend-test '#:run!)))
|