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

org/select.org

@@ -47,19 +47,19 @@ by the select widget tests — FiveAM itself, the backend/box/layout/input infra
 and the ~cl-tty.select~ package under test. ~run-tests~ is the entry point for
 CI and interactive use.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (defpackage :cl-tty-select-test
   (:use :cl :fiveam :cl-tty.backend :cl-tty.box :cl-tty.layout :cl-tty.input :cl-tty.select)
   (:export #:run-tests))
 (in-package #:cl-tty-select-test)
 #+END_SRC
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (def-suite select-suite :description "Select widget tests")
 (in-suite select-suite)
 #+END_SRC
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (defun run-tests ()
   (let ((result (run 'select-suite)))
     (fiveam:explain! result)
@@ -72,7 +72,7 @@ Verifies that a select widget can be constructed with default values. The
 ~selected-index~ should start at 0, and both ~options~ and ~filter~ should
 be nil. This establishes the baseline contract for the default constructor.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-creates
   "A Select can be created with defaults."
   (let ((sel (make-select)))
@@ -87,7 +87,7 @@ be nil. This establishes the baseline contract for the default constructor.
 Ensures that passing ~:options~ to ~make-select~ stores them correctly. The
 length check is the simplest invariant — two options in, two options out.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-with-options
   "A Select stores options."
   (let ((sel (make-select :options '((:title "Red" :value :red)
@@ -102,7 +102,7 @@ match \"Blue\" but not \"Red\" or \"Green\". The return value is an alist of
 ~(display-index original-index option)~, so we dig into the third element
 to check the ~:value~.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-filtered-exact
   "Filter returns case-insensitive substring matches."
   (let ((sel (make-select
@@ -121,7 +121,7 @@ When the filter is nil ~select-filtered-options~ must return every option
 unchanged. This is the unfiltered/identity case and the most common state
 when the user hasn't typed anything.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-filtered-all
   "Nil filter returns all options."
   (let ((sel (make-select
@@ -137,7 +137,7 @@ Exercises ~select-next~ and ~select-prev~ through a three-item list,
 confirming that forward and backward movement works and that both directions
 wrap around at list boundaries.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-navigation
   "Select-next and select-prev navigate through options."
   (let ((sel (make-select
@@ -162,7 +162,7 @@ navigation — ~select-next~ and ~select-prev~ skip over them. This test
 sets up a list with two category headers interleaved and verifies they
 are transparent to movement.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-navigation-skips-categories
   "Navigation skips category header options."
   (let ((sel (make-select
@@ -186,7 +186,7 @@ Validates that ~select-handle-key~ dispatches correctly: Down moves forward,
 Up moves backward, and Enter invokes the ~on-select~ callback with the
 currently highlighted option's plist.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-handle-key
   "Select handle-key dispatches navigation and selection."
   (let* ((result (list nil))
@@ -207,7 +207,7 @@ Ctrl+N and Ctrl+P are Emacs-compatible alternatives to Down/Up. They must
 produce identical navigation behavior. This test confirms the control-key
 dispatch paths.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-handle-key-ctrl
   "Ctrl+N and Ctrl+P navigate like down/up."
   (let ((sel (make-select
@@ -224,7 +224,7 @@ dispatch paths.
 height. This test creates 20 options, sets the layout height to 5, and
 asserts the visible subset fits within that constraint.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-visible-count
   "Visible options respects viewport height."
   (let* ((ln (make-layout-node))
@@ -242,7 +242,7 @@ When exact substring matching fails, the filter falls back to character-set
 Jaccard similarity. ~\"nrd\"~ should match ~\"Nord\"~ because the character
 overlap (n, o, r, d → 3 of 4) exceeds the 0.3 threshold.
 
-#+BEGIN_SRC lisp :tangle ../tests/select-tests.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/tests/select-tests.lisp
 (test select-fuzzy-fallback
   "Fuzzy filter catches near-misses."
   (let ((sel (make-select
@@ -265,7 +265,7 @@ and input subsystems. The exported symbols cover the public API: the
 handling, rendering, and the fuzzy matching predicate (exposed for
 testing and extensibility).
 
-#+BEGIN_SRC lisp :tangle ../src/components/select-package.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select-package.lisp
 (defpackage :cl-tty.select
   (:use :cl :cl-tty.backend :cl-tty.box :cl-tty.layout :cl-tty.input)
   (:export
@@ -292,7 +292,7 @@ currently highlighted option. ~filter~ is a string (or nil for
 unfiltered). ~on-select~ is a callback receiving the selected option
 plist. ~layout-node~ positions the widget in the window.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (in-package #:cl-tty.select)
 
 (defclass select (dirty-mixin)
@@ -314,7 +314,7 @@ A convenience constructor that wraps ~make-instance~ with keyword
 arguments. Defaults to nil for all optional parameters, matching the
 ~defclass~ initforms.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun make-select (&key options filter on-select)
   (make-instance 'select
     :options (or options nil)
@@ -330,7 +330,7 @@ The layout engine needs a uniform way to access a component's position.
 ~component-layout-node~ is part of the component protocol; this method
 for ~select~ simply delegates to the ~select-layout-node~ accessor.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defmethod component-layout-node ((sel select))
   (select-layout-node sel))
 #+END_SRC
@@ -352,7 +352,7 @@ Internally, the filter first checks for exact substring containment via
 character-set ~fuzzy-match-p~ predicate. Category headers short-circuit
 so they always pass through the filter.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun select-filtered-options (sel)
   "Return list of options matching the current filter, in display order.
   Each item: (display-index original-index option-plist)."
@@ -424,7 +424,7 @@ query and target exceeds 0.3.  The character-set approach is simpler
 and cheaper than trigrams while still catching common typos and
 near-misses like ~\"nrd\"~ for ~\"Nord\"~.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun fuzzy-match-p (query target)
   "T if character-set Jaccard similarity exceeds threshold (0.3)."
   (let* ((q-chars (remove-duplicates (coerce (string-downcase query) 'list)))
@@ -443,7 +443,7 @@ index may point beyond the filtered list. ~select-clamp-index~ ensures
 the index stays within valid bounds. If the list is empty the index
 resets to 0.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun select-clamp-index (sel)
   "Ensure selected-index is valid. Wraps if empty."
   (let* ((filtered (select-filtered-options sel))
@@ -461,7 +461,7 @@ through the filtered list starting from the current index, wrapping
 around at the end. Each candidate is checked for ~:category t~ and
 skipped. Marks the widget dirty so the render pass picks up the change.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun select-next (sel)
   "Move selection to next non-category option. Wraps at end."
   (let* ((filtered (select-filtered-options sel))
@@ -483,7 +483,7 @@ Moves the selection backward to the previous non-category option.
 Mirrors ~select-next~ but decrements the index (with modular arithmetic
 for wrap-around). Category headers are skipped identically.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun select-prev (sel)
   "Move selection to previous non-category option. Wraps at start."
   (let* ((filtered (select-filtered-options sel))
@@ -512,7 +512,7 @@ Dispatches keyboard events:
 Returns T if the key was handled (consumed), NIL otherwise so the
 caller knows not to propagate the event further.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun select-handle-key (sel event)
   "Handle a key-event. Returns T if handled."
   (let ((key (key-event-key event))
@@ -545,7 +545,7 @@ hundreds of items when the viewport shows only 10.  The window is
 centered around the currently selected index so the user always sees
 context around their cursor.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defun select-visible-options (sel)
   "Return filtered options that fit within the viewport."
   (let* ((ln (select-layout-node sel))
@@ -569,7 +569,7 @@ background. Category headers are rendered dimmed (~:text-muted~) and
 visually distinct from selectable items. Long titles are truncated with
 an ellipsis character to fit the viewport width.
 
-#+BEGIN_SRC lisp :tangle ../src/components/select.lisp
+#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/select.lisp
 (defmethod render ((sel select) backend)
   (let* ((ln (select-layout-node sel))
          (x (if ln (layout-node-x ln) 0))