(defun my-toot (&optional begin end) "Get a string and toot it on Mastodon." (interactive "r") (if (region-active-p) (setq tootext (buffer-substring begin end)) (setq tootext (read-string "What shall I toot? : "))) (with-temp-buffer (insert tootext) (toot)))