v0.8.0: tangle to XDG (~/.local/share/cl-tty/), remove stale memex .lisp files

org/scrollbox.org

@@ -45,7 +45,7 @@ Defining this as a class (rather than a struct) lets us integrate with
 the CLOS-based component protocol — ~render~ dispatches on the class,
 and dirty-mixin provides the marking machinery used by the refresh loop.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (in-package #:cl-tty.container)
 
 (defclass scroll-box (dirty-mixin)
@@ -69,7 +69,7 @@ value explicitly passed as ~:sticky-scroll-p nil~ needs to be
 preserved). Using a function instead of making the user call
 ~make-instance~ directly keeps the API ergonomic and hides CLOS plumbing.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun make-scroll-box (&key (children nil) (scroll-y 0) (scroll-x 0)
                           sticky-scroll-p)
   (make-instance 'scroll-box
@@ -87,7 +87,7 @@ delegating to the ~scroll-box-children~ accessor, we keep the protocol
 implementation thin — just an indirection that makes ~scroll-box~
 participate polymorphically alongside other container types.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defmethod component-children ((sb scroll-box))
   (scroll-box-children sb))
 #+END_SRC
@@ -99,7 +99,7 @@ uses to position the ScrollBox itself within its parent. Each ScrollBox
 creates its own layout node at construction time via ~make-layout-node~,
 so this method simply returns that stored node.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defmethod component-layout-node ((sb scroll-box))
   (scroll-box-layout-node sb))
 #+END_SRC
@@ -113,7 +113,7 @@ content dimensions from the content-size helpers, then clamps both
 scroll offsets with ~max~/~min~ to ensure they never go below 0 or
 beyond the scrollable range.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun clamp-scroll (sb)
   "Clamp scroll offsets to valid range."
   (let* ((ln (scroll-box-layout-node sb))
@@ -137,7 +137,7 @@ the component dirty so the render loop picks up the change. This is
 the primary API entry point for programmatic scrolling (from keyboard
 input or mouse wheel events).
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun scroll-by (sb dy dx)
   "Scroll by DY rows and DX columns. Clamps to valid range."
   (incf (scroll-box-scroll-y sb) dy)
@@ -154,7 +154,7 @@ layout node, with a minimum of 1 row (even zero-height children get a
 floor so they don't collapse the layout). This is used by
 ~clamp-scroll~, scrollbar rendering, and sticky-scroll logic.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun scroll-box-content-height (sb)
   "Total height of all children."
   (reduce #'+ (scroll-box-children sb)
@@ -171,7 +171,7 @@ since horizontal scrolling follows the widest child rather than summing
 widths. Like the height counterpart, it floors child widths at 1 so
 empty children don't zero out the measurement.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun scroll-box-content-width (sb)
   "Maximum width among children."
   (reduce #'max (scroll-box-children sb)
@@ -198,7 +198,7 @@ position.
 After child rendering, it delegates to ~draw-scrollbars~ for the
 scrollbar overlay.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defmethod render ((sb scroll-box) backend)
   "Render visible children with scroll offset applied.
 Delegates to each child's `render` method, temporarily offsetting
@@ -241,7 +241,7 @@ viewport-h 1)~) so minor content changes don't cause jitter. The sticky
 flag is reset to nil when the user manually scrolls up (handled by
 callers of ~scroll-by~).
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun update-sticky-scroll (sb)
   "If sticky-scroll-p is active and at bottom, keep at bottom."
   (when (sticky-scroll-p sb)
@@ -262,7 +262,7 @@ it returns 0.0 (no scrolling possible). This normalized value is used
 by ~draw-scrollbars~ to compute the pixel/character position of the
 thumb.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun scrollbar-thumb (scroll-pos viewport-size content-size)
   "Return the thumb position for a scrollbar (0.0 to 1.0)."
   (if (> content-size viewport-size)
@@ -283,7 +283,7 @@ the bottom edge. Both account for the scrollbox's own position within
 the layout tree (~ox~, ~oy~) so nested scrollboxes render scrollbars at
 the correct screen coordinates.
 
-#+BEGIN_SRC lisp :tangle ../src/components/scrollbox.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/scrollbox.lisp
 (defun draw-scrollbars (sb backend viewport-w viewport-h)
   "Draw scrollbars if content exceeds viewport."
   (let* ((content-h (scroll-box-content-height sb))
@@ -342,7 +342,7 @@ along with the base ~:cl~ language and ~:fiveam~ itself.
 unconditionally; it runs the ~scrollbox-suite~ and prints results via
 ~fiveam:explain!~ before exiting.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (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))
@@ -363,7 +363,7 @@ Confirms a bare ~make-scroll-box~ returns a ~scroll-box~ instance with
 default scroll offsets of 0 and no children. This establishes that the
 class definition and constructor are wired up correctly.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test scrollbox-creates
   "A ScrollBox can be created with defaults."
   (let ((sb (make-scroll-box)))
@@ -379,7 +379,7 @@ Verifies that the ~:children~ initarg is accepted and that
 ~scroll-box-children~ returns the list. A ScrollBox with one child
 should report length 1.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test scrollbox-with-children
   "A ScrollBox can have children."
   (let ((sb (make-scroll-box :children (list (make-text "hello")))))
@@ -393,7 +393,7 @@ scroll-y is non-negative after the operation. Combined with
 ~scrollbox-scroll-clamp~ below, this covers both the normal and
 boundary behavior of the scroll mechanic.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test scrollbox-scroll-by
   "ScrollBy adjusts offset clamped to valid range."
   (let ((sb (make-scroll-box :scroll-y 0)))
@@ -408,7 +408,7 @@ same child list that ~scroll-box-children~ does. This ensures the
 protocol indirection works and that the rendering pipeline will see the
 correct children.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test scrollbox-component-children
   "Component protocol: children are accessible."
   (let* ((child (make-text "hello"))
@@ -423,7 +423,7 @@ The test passes if no errors are signaled — this guards against nil
 layout nodes or unbound slots causing problems during the render
 pipeline's initial traversal.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test scrollbox-render-noop
   "Rendering a ScrollBox with no children does not error."
   (let* ((stream (make-string-output-stream))
@@ -439,7 +439,7 @@ Confirms a bare ~make-tab-bar~ returns a ~tab-bar~ instance with no
 active tab and no tabs. This validates the TabBar class definition and
 constructor.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-creates
   "A TabBar can be created with defaults."
   (let ((tb (make-tab-bar)))
@@ -454,7 +454,7 @@ Tests that ~tab-bar-add~ returns the supplied ID, adds a tab to the
 internal list, and stores the title correctly. Each tab is stored as a
 plist, so the test checks both list length and the ~:title~ property.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-add-tab
   "Adding a tab returns the id and updates tabs."
   (let ((tb (make-tab-bar)))
@@ -469,7 +469,7 @@ plist, so the test checks both list length and the ~:title~ property.
 Verifies that ~(setf tab-bar-active)~ correctly selects a tab by ID and
 that ~tab-bar-active~ returns that ID afterward.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-active-tab
   "Setting active tab works."
   (let ((tb (make-tab-bar)))
@@ -486,7 +486,7 @@ a string-output-stream backend to confirm the render method doesn't
 error. A TabBar must draw its tab strip without crashing even when
 disconnected from a real terminal.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-render-noop
   "Rendering a TabBar does not error."
   (let* ((stream (make-string-output-stream))
@@ -507,7 +507,7 @@ wrapping around past the first. This is the core keyboard interaction
 for tabbed UIs and must handle edge cases (empty bar, single tab, etc.)
 gracefully.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-next-prev
   "TabBar next/prev wraps around through tabs."
   (let ((tb (make-tab-bar)))
@@ -531,7 +531,7 @@ gracefully.
 next/prev navigation). This test verifies that selecting ~:tab2~ from a
 three-tab bar correctly sets the active tab.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-select
   "TabBar select activates the specified tab."
   (let ((tb (make-tab-bar)))
@@ -548,7 +548,7 @@ three-tab bar correctly sets the active tab.
 This tests the bridge between the input event system and the TabBar
 navigation API.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test tabbar-handle-key
   "TabBar handle-key dispatches left/right."
   (let ((tb (make-tab-bar)))
@@ -568,7 +568,7 @@ values (negative and extremely large) and confirming they get clamped
 back to 0. With no children, content size is 0 so the max scroll is
 also 0 — this exercises the degenerate case.
 
-#+BEGIN_SRC lisp :tangle ../tests/scrollbox-tabbar-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/scrollbox-tabbar-tests.lisp
 (test scrollbox-scroll-clamp
   "ScrollBox clamp prevents scrolling past bounds."
   (let ((sb (make-scroll-box :scroll-y 5 :scroll-x 3)))