From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mx1.dismail.de ( [192.168.2.1]) by mugam.systemreboot.net (OpenSMTPD) with ESMTPS id a6b80f74 (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO) for ; Mon, 20 Jul 2026 14:32:55 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; s=20190914; bh=WMU80WR0rxR 0tCtvShasZaiEQZIQVvBVQ1gzEGbbhFE=; h=references:in-reply-to:date: subject:cc:to:from; d=dismail.de; b=kz41h7ZiaouHLDY72hi1oUORzDtU7ATJC/ vW9vxcHuzaY/9VB37P5e2hmTZ9zOlUBBPlYc3CPqvBh2VCtrCMmqTUwt1yDDco5kXKuhMG ToTwQX1lVkX9Xq2lwFKGOqVMupkeMYmTZRqyjDqTPl+Q27F0shxRM7NjZZy/CzEpQ9HmZa 4QkwuENmIFoYTNq5To8rlpWvCOHTsaog6MaT6a8W2MH7eo2dCZYDhX6jyM3X7Kztk0rDWL V1H/hLEGckBhHQDBm3ifhtA/KY6dvvz3NH5zumci7lzjG5StZXNPWWQ2uUk4gxtFCJfotj rQEMtqq9yL9ynKP66b/kZSm5kDgw== Received: from smtp2.dismail.de ( [10.240.26.12]) by mx1.dismail.de (OpenSMTPD) with ESMTP id ce924469 for ; Mon, 20 Jul 2026 16:32:54 +0200 (CEST) Received: from smtp2.dismail.de (localhost [127.0.0.1]) by smtp2.dismail.de (OpenSMTPD) with ESMTP id cfdb8a1f for ; Mon, 20 Jul 2026 16:32:54 +0200 (CEST) Received: by dismail.de (OpenSMTPD) with ESMTPSA id a089b2c5 (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO); Mon, 20 Jul 2026 16:32:53 +0200 (CEST) From: jgart To: kaagum@systemreboot.net Cc: jgart Subject: [PATCH] Add session/list ACP method handler. Date: Mon, 20 Jul 2026 15:31:54 +0100 Message-ID: <20260720143242.1203535-2-jgart@dismail.de> X-Mailer: git-send-email 2.55.0 In-Reply-To: <20260720143242.1203535-1-jgart@dismail.de> References: <20260720143242.1203535-1-jgart@dismail.de> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Return a list of active session IDs. --- kaagum/tea.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/kaagum/tea.scm b/kaagum/tea.scm index 6e750c0..822ba4a 100644 --- a/kaagum/tea.scm +++ b/kaagum/tea.scm @@ -438,6 +438,15 @@ in @code{tea-loop}." ((name . command) (command->spec name command))) %commands)))))))))))) + ("session/list" + ;; Return list of active session IDs. + (state-return + (list (acp-message `(("jsonrpc" . "2.0") + ("id" . ,request-id) + ("result" + ("sessions" + . ,(list->vector + (map car (focus state-sessions state)))))))))) ("session/set_config_option" (let ((session-id (focus (in "params" "sessionId") request)) -- 2.55.0