diff options
author | marty hiatt <martianhiatus@disroot.org> | 2024-10-29 10:11:25 +0100 |
---|---|---|
committer | marty hiatt <martianhiatus@disroot.org> | 2024-10-29 10:11:25 +0100 |
commit | 409a7b1bddf80ca155a3d75afb8bb204341c086d (patch) | |
tree | 562d22b1042f6534bb79835209c86f62296b835a | |
parent | 1679216a14ba33ac7b5e16b9784d968da6bd63fe (diff) |
poll transient: display predicate for add choice
-rw-r--r-- | lisp/mastodon-transient.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)] |