v0.7.0: key bindings — TDD (RED→GREEN)

Ctrl+U clear line, Ctrl+W delete word, Ctrl+A/E home/end,
Ctrl+L redraw, Ctrl+D quit empty, Ctrl+X+E editor.
2 TDD tests (3 assertions), 100% pass.

Fixed paren bug in init-state (:dirty outside list).

lisp/channel-tui-view.lisp

@@ -12,12 +12,14 @@
            (or (st :rule-count) 0)
            (if (st :busy) "  …thinking" ""))
    :y 1 :x 1 :fgcolor (theme-color (if (st :connected) :connected :disconnected)))
-  ;; Second line: Focus map
+  ;; Second line: Focus map (left) + timestamp (right-aligned, v0.7.0)
   (let ((focus-info (or (st :foveal-id) "")))
     (when (and focus-info (> (length focus-info) 0))
       (add-string win (format nil " [Focus: ~a]" focus-info)
                   :y 2 :x 1 :fgcolor (theme-color :timestamp))))
-  (add-string win (format nil " ~a" (now)) :y 2 :x 1 :fgcolor (theme-color :timestamp))
+  (add-string win (format nil " ~a" (now))
+              :y 2 :x (max 1 (- (width win) 12))
+              :fgcolor (theme-color :timestamp))
   (refresh win))
 
 (defun word-wrap (text width)