diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-05 12:50:07 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-05 13:10:59 +0200 |
| commit | 87705c415d6ec3bbf2ed13b844d9c8d1400f1fa4 (patch) | |
| tree | eae3a9eac5b037249ad84590df07060f2060e95b /lisp/mastodon-toot.el | |
| parent | 3ea9d6882464debcb48048c1a1affcd64bc8b220 (diff) | |
use seq-empty-p and string-empty-p calls
Diffstat (limited to 'lisp/mastodon-toot.el')
| -rw-r--r-- | lisp/mastodon-toot.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 7f867fe..4cbc92e 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -415,7 +415,7 @@ NO-REDRAFT means delete toot only." (defun mastodon-toot-set-cw (&optional cw) "Set content warning to CW if it is non-nil." - (unless (equal cw "") + (unless (string-empty-p cw) (setq mastodon-toot--content-warning t) (setq mastodon-toot--content-warning-from-reply-or-redraft cw))) @@ -444,7 +444,7 @@ REPLY-ID, TOOT-VISIBILITY, and TOOT-CW of deleted toot are preseved." (interactive) (let* ((toot (mastodon-toot--remove-docs)) (empty-toot-p (and (not mastodon-toot--media-attachments) - (string= "" (mastodon-tl--clean-tabs-and-nl toot))))) + (string-empty-p (mastodon-tl--clean-tabs-and-nl toot))))) (if empty-toot-p (mastodon-toot--kill) (when (y-or-n-p "Discard draft toot? ") @@ -547,7 +547,7 @@ If media items have been attached and uploaded with (interactive) (let* ((toot (mastodon-toot--remove-docs)) (empty-toot-p (and (not mastodon-toot--media-attachments) - (string= "" (mastodon-tl--clean-tabs-and-nl toot)))) + (string-empty-p (mastodon-tl--clean-tabs-and-nl toot)))) (endpoint (mastodon-http--api "statuses")) (spoiler (when (and (not empty-toot-p) mastodon-toot--content-warning) |