From f8d56cdeba00b16031699481f75ec9fd2faf24b1 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Wed, 13 May 2026 09:17:51 -0400 Subject: [PATCH] tangle: channel-tui-view.lisp from org source --- lisp/channel-tui-view.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/channel-tui-view.lisp b/lisp/channel-tui-view.lisp index 4872ba0..ce020e4 100644 --- a/lisp/channel-tui-view.lisp +++ b/lisp/channel-tui-view.lisp @@ -751,9 +751,9 @@ Respects CJK/emoji char widths via char-width." (is (null (getf passepartout.channel-tui::*state* :wizard-visible)))) (test test-slash-commands-entry-count - "Contract v0.8.0: *slash-commands* has at least 20 entries, each with :name, :desc, :action." + "Contract v0.8.0: *slash-commands* has at least 19 entries, each with :name, :desc, :action." (let ((cmds passepartout.channel-tui::*slash-commands*)) - (is (>= (length cmds) 20)) + (is (>= (length cmds) 19)) (dolist (c cmds) (is (stringp (getf c :name))) (is (stringp (getf c :desc)))