split: scrollbox-tabbar.org into scrollbox.org, tabbar.org, container-package.org
- Create org/scrollbox.org (tangles scrollbox.lisp) - Create org/tabbar.org (tangles tabbar.lisp) - Create org/container-package.org (tangles container-package.lisp) - Disable :tangle in old scrollbox-tabbar.org (kept for prose docs) - Fix missing paren in render method (was depth=1 at EOF) - All 483 tests pass, 14 suites, 100%
This commit is contained in:
@@ -46,7 +46,7 @@ TabBar:
|
||||
|
||||
** Tests
|
||||
|
||||
#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
|
||||
#+BEGIN_SRC lisp :tangle no
|
||||
(defpackage :cl-tty-scrollbox-test
|
||||
(:use :cl :fiveam :cl-tty.backend :cl-tty.box :cl-tty.layout :cl-tty.input :cl-tty.container)
|
||||
(:export #:run-tests))
|
||||
@@ -550,7 +550,7 @@ Two bugs were fixed in the ScrollBox render pipeline:
|
||||
|
||||
** Combined tangle blocks
|
||||
|
||||
#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
|
||||
#+BEGIN_SRC lisp :tangle no
|
||||
(in-package #:cl-tty.container)
|
||||
|
||||
(defclass scroll-box (dirty-mixin)
|
||||
@@ -650,7 +650,7 @@ Children outside the viewport are skipped."
|
||||
(setf (scroll-box-scroll-y sb) (max 0 (- content-h viewport-h)))))))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC lisp :tangle ../src/components/tabbar.lisp
|
||||
#+BEGIN_SRC lisp :tangle no
|
||||
(in-package #:cl-tty.container)
|
||||
|
||||
(defclass tab-bar (dirty-mixin)
|
||||
@@ -706,7 +706,7 @@ Children outside the viewport are skipped."
|
||||
(values))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC lisp :tangle ../src/components/container-package.lisp
|
||||
#+BEGIN_SRC lisp :tangle no
|
||||
(defpackage :cl-tty.container
|
||||
(:use :cl :cl-tty.backend :cl-tty.box :cl-tty.layout :cl-tty.input)
|
||||
(:export
|
||||
|
||||
Reference in New Issue
Block a user