From 409a7b1bddf80ca155a3d75afb8bb204341c086d Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 29 Oct 2024 10:11:25 +0100 Subject: poll transient: display predicate for add choice --- lisp/mastodon-transient.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mastodon-transient.el b/lisp/mastodon-transient.el index bb92f56..00d9acf 100644 --- a/lisp/mastodon-transient.el +++ b/lisp/mastodon-transient.el @@ -289,7 +289,8 @@ the format fields.X.keyname." ("4" "" "4" :alist-key four :class mastodon-transient-poll-choice)] ;; TODO: display the max number of options or add options cmd ["Update" - ("C-c C-s" "Add another poll choice" mastodon-transient--choice-add) + ("C-c C-s" "Add another poll choice" mastodon-transient--choice-add + :if (lambda () (< 4 (mastodon-transient-max-poll-opts)))) ("C-c C-c" "Save and done" mastodon-create-poll-done) ("C-x C-k" :info "Revert all") ("C-c C-k" "Delete all" mastodon-clear-poll)] -- cgit v1.2.3