amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

v0.7.2: context visibility (/context) — TDD

Browse Source 
/context shows message count, focus, token estimate, and last 5
message summaries. Inline command, no daemon interaction needed.

- channel-tui-main: /context handler, 1 test
- Fixed /tags handler (removed dangling else clause)
- TUI Main: 84/85 (1 pre-existing core flake)
This commit is contained in:
Amr Gharbeia
2026-05-08 18:22:22 -04:00
parent 19a9c99ef4
commit 2e52bc4d13
2 changed files with 48 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/channel-tui-main.lisp
View File

@@ -161,13 +161,31 @@
(add-msg :system (format nil "Node ~a not found" node-id)))) (add-msg :system (format nil "Node ~a not found" node-id))))
(add-msg :system "Memory audit not available"))) (add-msg :system "Memory audit not available")))
;; /tags command — tag stack ;; /tags command — tag stack
;; /tags command — tag stack
((string-equal text "/tags") ((string-equal text "/tags")
(let ((cats (or passepartout::*tag-categories* nil))) (let ((cats passepartout::*tag-categories*))
(if cats (if cats
(dolist (entry cats) (dolist (entry cats)
(add-msg :system (format nil "~a: ~a" (car entry) (cdr entry)))) (add-msg :system (format nil "~a: ~a" (car entry) (cdr entry))))
(add-msg :system "No tags configured. Set TAG_CATEGORIES env var."))) (add-msg :system "No tags configured. Set TAG_CATEGORIES env var."))))
(add-msg :system "Tag categories not loaded"))) ;; /context command — context visibility
((string-equal text "/context")
(let* ((msg-count (length (st :messages)))
(focus (or (st :foveal-id) "none"))
(est-tokens (min 8192 (* msg-count 50))))
(add-msg :system (format nil "Context: ~d msgs, focus=~a, est ~d/8192 tokens"
msg-count focus est-tokens))
(let ((start (max 0 (- msg-count 5))))
(loop for i from start below msg-count
for m = (aref (st :messages) i)
for content = (getf m :content)
for preview = (if (> (length content) 50)
(concatenate 'string (subseq content 0 47) "...")
content)
for role = (getf m :role)
do (add-msg :system (format nil " ~a: ~a"
(case role (:user "You") (:agent "Agent") (t "Sys"))
preview))))))
((string-equal text "/help") ((string-equal text "/help")
(add-msg :system (add-msg :system
"/focus <proj> Set project context") "/focus <proj> Set project context")

30
org/channel-tui-main.org
View File

@@ -195,13 +195,31 @@ Event handlers + daemon I/O + main loop.
(add-msg :system (format nil "Node ~a not found" node-id)))) (add-msg :system (format nil "Node ~a not found" node-id))))
(add-msg :system "Memory audit not available"))) (add-msg :system "Memory audit not available")))
;; /tags command — tag stack ;; /tags command — tag stack
;; /tags command — tag stack
((string-equal text "/tags") ((string-equal text "/tags")
(let ((cats (or passepartout::*tag-categories* nil))) (let ((cats passepartout::*tag-categories*))
(if cats (if cats
(dolist (entry cats) (dolist (entry cats)
(add-msg :system (format nil "~a: ~a" (car entry) (cdr entry)))) (add-msg :system (format nil "~a: ~a" (car entry) (cdr entry))))
(add-msg :system "No tags configured. Set TAG_CATEGORIES env var."))) (add-msg :system "No tags configured. Set TAG_CATEGORIES env var."))))
(add-msg :system "Tag categories not loaded"))) ;; /context command — context visibility
((string-equal text "/context")
(let* ((msg-count (length (st :messages)))
(focus (or (st :foveal-id) "none"))
(est-tokens (min 8192 (* msg-count 50))))
(add-msg :system (format nil "Context: ~d msgs, focus=~a, est ~d/8192 tokens"
msg-count focus est-tokens))
(let ((start (max 0 (- msg-count 5))))
(loop for i from start below msg-count
for m = (aref (st :messages) i)
for content = (getf m :content)
for preview = (if (> (length content) 50)
(concatenate 'string (subseq content 0 47) "...")
content)
for role = (getf m :role)
do (add-msg :system (format nil " ~a: ~a"
(case role (:user "You") (:agent "Agent") (t "Sys"))
preview))))))
((string-equal text "/help") ((string-equal text "/help")
(add-msg :system (add-msg :system
"/focus <proj> Set project context") "/focus <proj> Set project context")