From 6a3336038d45de410f4ab00dcabe0f4e172968e6 Mon Sep 17 00:00:00 2001 From: Ollie Agent Date: Tue, 4 Aug 2026 20:30:13 +0200 Subject: [PATCH] ellie tree: fix inactive agent rendering bug, default Active expanded --- contrib/elisp/ellie.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/contrib/elisp/ellie.el b/contrib/elisp/ellie.el index 97b52af..b0a7ad5 100644 --- a/contrib/elisp/ellie.el +++ b/contrib/elisp/ellie.el @@ -376,7 +376,7 @@ Prompts for agent profile and other options." m) "Keymap for `ellie-tree-mode'.") -(defvar-local ellie--tree-expanded nil +(defvar-local ellie--tree-expanded '("active") "Set of expanded session IDs and header keys.") (defvar-local ellie--tree-data nil "Current tree data for rendering.") @@ -411,12 +411,12 @@ Prompts for agent profile and other options." (push (list 'session id name (if agents (format "%s (%d)" name (length agents)) name)) result) - (when (and agents (member id ellie--tree-expanded) - (dolist (a agents) - (let ((aname (car a)) (aid (nth 1 a)) (state (nth 2 a))) - (push (list 'agent id aid - (format " %s [%s]" aname state)) - result))))))))) + (when (and agents (member id ellie--tree-expanded)) + (dolist (a agents) + (let ((aname (car a)) (aid (nth 1 a)) (state (nth 2 a))) + (push (list 'agent id aid + (format " %s [%s]" aname state)) + result)))))))) (setq ellie--tree-data (nreverse result)))) (defun ellie--tree-render ()