Paul Bryan<p>This toot was composed in <a href="https://mathstodon.xyz/tags/emacs" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>emacs</span></a> using <a href="https://codeberg.org/emocoder/mastodon.el" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">codeberg.org/emocoder/mastodon</span><span class="invisible">.el</span></a> with the following <a href="https://mathstodon.xyz/tags/lisp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>lisp</span></a></p><p>```<br>(require 'mastodon-toot)<br>(let* ((code (buffer-string))<br> (toot<br> (string-join<br> `("This toot was composed in <a href="https://mathstodon.xyz/tags/emacs" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>emacs</span></a> using <a href="https://codeberg.org/emocoder/mastodon.el" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">codeberg.org/emocoder/mastodon</span><span class="invisible">.el</span></a> with the following <a href="https://mathstodon.xyz/tags/lisp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>lisp</span></a>\n"<br> "```"<br> ,(format "%s\n" code)<br> "```\n") "\n")))<br> (mastodon-toot--compose-buffer nil nil nil toot))<br>```</p>