aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-08-03 10:19:30 +0200
committermarty hiatt <martianhiatus@riseup.net>2024-08-03 10:19:30 +0200
commit99c78081abce141e6eb950b5017f9da7a4ab60b6 (patch)
tree9688aa0c57da0e2a5a5fad93fa52bb3e8314d1b2
parentfe7ae6ecb2445b84563debd5bb0ad9d37ee291b0 (diff)
toot: audit poll code
-rw-r--r--lisp/mastodon-toot.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 0b28538..521dbf8 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1403,10 +1403,11 @@ MAX is the maximum number set by their instance."
(defun mastodon-toot--read-poll-options (count length)
"Read a list of options for poll with COUNT options.
LENGTH is the maximum character length allowed for a poll option."
- (let* ((choices (cl-loop for x from 1 to count
- collect (read-string
- (format "Poll option [%s/%s] [max %s chars]: "
- x count length))))
+ (let* ((choices
+ (cl-loop for x from 1 to count
+ collect (read-string
+ (format "Poll option [%s/%s] [max %s chars]: "
+ x count length))))
(longest (apply #'max (mapcar #'length choices))))
(if (> longest length)
(progn
@@ -1450,16 +1451,15 @@ Sets `mastodon-toot-poll' to nil."
(defun mastodon-toot--server-poll-to-local (json)
"Convert server poll data JSON to a `mastodon-toot-poll' plist."
(let-alist json
- (let* ((expiry-seconds-from-now
+ (let* ((expiry-seconds-rel
(time-to-seconds
(time-subtract
(encode-time
(parse-time-string .expires_at))
(current-time))))
- (expiry-str
- (format-time-string "%s"
- expiry-seconds-from-now))
- (expiry-human (car (mastodon-tl--human-duration expiry-seconds-from-now)))
+ (expiry-str (format-time-string "%s" expiry-seconds-rel))
+ (expiry-human (car
+ (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