diff options
| author | marty hiatt <martianhiatus@disroot.org> | 2024-10-24 10:40:29 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@disroot.org> | 2024-10-24 10:40:29 +0200 |
| commit | 37a76491311fe1f6852be9ef6c683d3cbd1655a7 (patch) | |
| tree | 86174d4dc28af2832ace157d9ac40f26e2ddef0f /lisp | |
| parent | 99da98a03519d08ab0779d5b21e04760848ae87d (diff) | |
poll: set tp-transient-settings on editing a toot
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-toot.el | 15 | ||||
| -rw-r--r-- | lisp/mastodon-transient.el | 7 |
2 files changed, 16 insertions, 6 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 35124ea..bd62728 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1510,9 +1510,18 @@ Sets `mastodon-toot-poll' to nil." (mastodon-tl--human-duration expiry-seconds-rel))) (options (mastodon-tl--map-alist 'title .options)) (multiple (if (eq :json-false .multiple) nil t))) - (setq mastodon-toot-poll - `( :options ,options :expiry-readable ,expiry-human - :expiry ,expiry-str :multi ,multiple))))) + (if mastodon-toot-poll-use-transient + (setq tp-transient-settings + `((multi . ,multiple) + (expiry . ,expiry-str) + ;; (hide . ,hide) + (one . ,(nth 0 options)) + (two . ,(nth 1 options)) + (three . ,(nth 2 options)) + (four . ,(nth 3 options)))) + (setq mastodon-toot-poll + `( :options ,options :expiry-readable ,expiry-human + :expiry ,expiry-str :multi ,multiple)))))) ;;; SCHEDULE diff --git a/lisp/mastodon-transient.el b/lisp/mastodon-transient.el index 4776c4b..f418fcc 100644 --- a/lisp/mastodon-transient.el +++ b/lisp/mastodon-transient.el @@ -337,9 +337,10 @@ Pull value from `mastodon-tool-poll' if possible.'" (if (not value) "" (let ((readable - (car - (rassoc value - (mastodon-toot--poll-expiry-options-alist))))) + (or (car + (rassoc value + (mastodon-toot--poll-expiry-options-alist))) + (concat value " secs")))) ;; editing a poll wont match expiry list (propertize readable 'face (if (tp-arg-changed-p obj cons) 'transient-value |