deploy: ec9d4f60e5

configs/emacs/index.html

@@ -6915,6 +6915,7 @@ Didn&rsquo;t work out as I expected, so I&rsquo;ve made <code>org-journal-tags</
 </span></span><span style="display:flex;"><span>  (<span style="color:#008000">setq</span> <span style="color:#19177c">mastodon-active-user</span> <span style="color:#ba2121">&#34;sqrtminusone&#34;</span>)
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my-leader-def</span> <span style="color:#ba2121">&#34;an&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">my/mastodon</span>)
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/persp-add-rule</span> <span style="color:#19177c">mastodon-mode</span> <span style="color:#666">0</span> <span style="color:#ba2121">&#34;mastodon&#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">setq-default</span> <span style="color:#19177c">mastodon-toot--content-warning</span> <span style="color:#800">t</span>)
 </span></span><span style="display:flex;"><span>  (<span style="color:#008000">setq</span> <span style="color:#19177c">mastodon-tl--symbols</span>
 </span></span><span style="display:flex;"><span>	<span style="color:#666">&#39;</span>((<span style="color:#19177c">reply</span> <span style="color:#ba2121">&#34;&#34;</span> <span style="color:#666">.</span> <span style="color:#ba2121">&#34;R&#34;</span>)
 </span></span><span style="display:flex;"><span>	  (<span style="color:#19177c">boost</span> <span style="color:#ba2121">&#34;&#34;</span> <span style="color:#666">.</span> <span style="color:#ba2121">&#34;B&#34;</span>)
@@ -6941,8 +6942,6 @@ Didn&rsquo;t work out as I expected, so I&rsquo;ve made <code>org-journal-tags</
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>(<span style="color:#19177c">add-hook</span> <span style="color:#19177c">&#39;mastodon-mode-hook</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">my/mastodon-configure</span>)
 </span></span></code></pre></div><div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-emacs-lisp" data-lang="emacs-lisp"><span style="display:flex;"><span>(<span style="color:#008000">with-eval-after-load</span> <span style="color:#19177c">&#39;mastodon</span>
-</span></span><span style="display:flex;"><span>
-</span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">general-define-key</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:states</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">normal</span> <span style="color:#19177c">motion</span>)
 </span></span><span style="display:flex;"><span>   <span style="color:#008000">:keymaps</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">mastodon-mode-map</span>)
@@ -6953,7 +6952,7 @@ Didn&rsquo;t work out as I expected, so I&rsquo;ve made <code>org-journal-tags</
 </span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;&lt;tab&gt;&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">mastodon-tl--next-tab-item</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;&lt;backtab&gt;&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">mastodon-tl--previous-tab-item</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;o&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">my/mastodon-toot</span>
-</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;r&#34;</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">mastodon-tl--update</span>)
+</span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;r&#34;</span> <span style="color:#19177c">&#39;mastodon-tl--update</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;c&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">mastodon-tl--toggle-spoiler-text-in-toot</span>
 </span></span><span style="display:flex;"><span>   <span style="color:#ba2121">&#34;q&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">kill-current-buffer</span>))
 </span></span></code></pre></div><div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-emacs-lisp" data-lang="emacs-lisp"><span style="display:flex;"><span>(<span style="color:#008000">with-eval-after-load</span> <span style="color:#19177c">&#39;mastodon</span>
@@ -6990,13 +6989,68 @@ Didn&rsquo;t work out as I expected, so I&rsquo;ve made <code>org-journal-tags</
 </span></span><span style="display:flex;"><span>     <span style="color:#008000">:class</span> <span style="color:#19177c">transient-row</span>
 </span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;/&#34;</span> <span style="color:#ba2121">&#34;Switch to buffer&#34;</span> <span style="color:#19177c">mastodon-switch-to-buffer</span>)
 </span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;Q&#34;</span> <span style="color:#ba2121">&#34;Kill all buffers&#34;</span> <span style="color:#19177c">mastodon-kill-all-buffers</span>)
-</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;q&#34;</span> <span style="color:#ba2121">&#34;Quit&#34;</span> <span style="color:#19177c">transient-quit-one</span>)])
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;q&#34;</span> <span style="color:#ba2121">&#34;Quit&#34;</span> <span style="color:#19177c">transient-quit-one</span>)]))
+</span></span></code></pre></div><div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-emacs-lisp" data-lang="emacs-lisp"><span style="display:flex;"><span>(<span style="color:#008000">defmacro</span> <span style="color:#19177c">my/def-confirmer</span> (<span style="color:#19177c">func</span> <span style="color:#19177c">text</span>)
+</span></span><span style="display:flex;"><span>  <span style="color:#666">`</span>(<span style="color:#008000">defun</span> <span style="color:#666">,</span>(<span style="color:#00f">intern</span> (<span style="color:#00f">concat</span> <span style="color:#ba2121">&#34;my/&#34;</span> (<span style="color:#00f">symbol-name</span> <span style="color:#19177c">func</span>) <span style="color:#ba2121">&#34;-confirm&#34;</span>)) ()
+</span></span><span style="display:flex;"><span>     (<span style="color:#008000">interactive</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#008000">when</span> (<span style="color:#19177c">y-or-n-p</span> <span style="color:#666">,</span><span style="color:#19177c">text</span>)
+</span></span><span style="display:flex;"><span>       (<span style="color:#00f">call-interactively</span> <span style="color:#00f">#&#39;</span><span style="color:#666">,</span><span style="color:#19177c">func</span>))))
+</span></span><span style="display:flex;"><span>
+</span></span><span style="display:flex;"><span>(<span style="color:#008000">defun</span> <span style="color:#19177c">my/mastodon-toot--browse</span> ()
+</span></span><span style="display:flex;"><span>  <span style="color:#ba2121">&#34;Copy URL of toot at point.
+</span></span></span><span style="display:flex;"><span><span style="color:#ba2121">If the toot is a fave/boost notification, copy the URLof the
+</span></span></span><span style="display:flex;"><span><span style="color:#ba2121">base toot.&#34;</span>
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">interactive</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#008000">let*</span> ((<span style="color:#19177c">toot</span> (<span style="color:#008000">or</span> (<span style="color:#19177c">mastodon-tl--property</span> <span style="color:#19177c">&#39;base-toot</span>)
+</span></span><span style="display:flex;"><span>		   (<span style="color:#19177c">mastodon-tl--property</span> <span style="color:#19177c">&#39;toot-json</span>)))
+</span></span><span style="display:flex;"><span>	 (<span style="color:#19177c">url</span> (<span style="color:#008000">if</span> (<span style="color:#19177c">mastodon-tl--field</span> <span style="color:#19177c">&#39;reblog</span> <span style="color:#19177c">toot</span>)
+</span></span><span style="display:flex;"><span>		  (<span style="color:#19177c">alist-get</span> <span style="color:#19177c">&#39;url</span> (<span style="color:#19177c">alist-get</span> <span style="color:#19177c">&#39;reblog</span> <span style="color:#19177c">toot</span>))
+</span></span><span style="display:flex;"><span>		(<span style="color:#19177c">alist-get</span> <span style="color:#19177c">&#39;url</span> <span style="color:#19177c">toot</span>))))
+</span></span><span style="display:flex;"><span>    (<span style="color:#19177c">browse-url</span> <span style="color:#19177c">url</span>)))
+</span></span><span style="display:flex;"><span>
+</span></span><span style="display:flex;"><span>(<span style="color:#008000">with-eval-after-load</span> <span style="color:#19177c">&#39;mastodon</span>
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-toot--toggle-boost</span> <span style="color:#ba2121">&#34;Toggle boost for this post? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-toot--toggle-favourite</span> <span style="color:#ba2121">&#34;Toggle favourite this post? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-toot--toggle-bookmark</span> <span style="color:#ba2121">&#34;Toggle bookmark this post? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--follow-user</span> <span style="color:#ba2121">&#34;Follow this user? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--unfollow-user</span> <span style="color:#ba2121">&#34;Unfollow this user? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--block-user</span> <span style="color:#ba2121">&#34;Block this user? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--unblock-user</span> <span style="color:#ba2121">&#34;Unblock this user? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--mute-user</span> <span style="color:#ba2121">&#34;Mute this user? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--unmute-user</span> <span style="color:#ba2121">&#34;Unmute this user? &#34;</span>)
+</span></span><span style="display:flex;"><span>  (<span style="color:#19177c">my/def-confirmer</span> <span style="color:#19177c">mastodon-tl--unmute-user</span> <span style="color:#ba2121">&#34;Unmute this user? &#34;</span>)
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">transient-define-prefix</span> <span style="color:#19177c">my/mastodon-toot</span> ()
 </span></span><span style="display:flex;"><span>    <span style="color:#ba2121">&#34;Mastodon toot actions.&#34;</span>
 </span></span><span style="display:flex;"><span>    [<span style="color:#ba2121">&#34;View&#34;</span>
 </span></span><span style="display:flex;"><span>     <span style="color:#008000">:class</span> <span style="color:#19177c">transient-row</span>
-</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;p&#34;</span> <span style="color:#ba2121">&#34;Profile&#34;</span> <span style="color:#19177c">mastodon-profile--show-user</span>)]
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;p&#34;</span> <span style="color:#ba2121">&#34;Profile&#34;</span> <span style="color:#19177c">mastodon-profile--show-user</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;o&#34;</span> <span style="color:#ba2121">&#34;Browser&#34;</span> <span style="color:#19177c">my/mastodon-toot--browse</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;t&#34;</span> <span style="color:#ba2121">&#34;Thread&#34;</span> <span style="color:#19177c">mastodon-tl--thread</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;le&#34;</span> <span style="color:#ba2121">&#34;List edits&#34;</span> <span style="color:#19177c">mastodon-toot--view-toot-edits</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;lf&#34;</span> <span style="color:#ba2121">&#34;List favouriters&#34;</span> <span style="color:#19177c">mastodon-toot--list-toot-favouriters</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;lb&#34;</span> <span style="color:#ba2121">&#34;List boosters&#34;</span> <span style="color:#19177c">mastodon-toot--list-toot-boosters</span>)]
+</span></span><span style="display:flex;"><span>    [<span style="color:#ba2121">&#34;Toot Actions&#34;</span>
+</span></span><span style="display:flex;"><span>     <span style="color:#008000">:class</span> <span style="color:#19177c">transient-row</span>
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;r&#34;</span> <span style="color:#ba2121">&#34;Reply&#34;</span> <span style="color:#19177c">mastodon-toot--reply</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;v&#34;</span> <span style="color:#ba2121">&#34;Vote&#34;</span> <span style="color:#19177c">mastodon-tl--poll-vote</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;b&#34;</span> <span style="color:#ba2121">&#34;Boost&#34;</span> <span style="color:#19177c">my/mastodon-toot--toggle-boost-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;f&#34;</span> <span style="color:#ba2121">&#34;Favourite&#34;</span> <span style="color:#19177c">my/mastodon-toot--toggle-favourite-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;k&#34;</span> <span style="color:#ba2121">&#34;Bookmark&#34;</span> <span style="color:#19177c">my/mastodon-toot--toggle-bookmark-confirm</span>)]
+</span></span><span style="display:flex;"><span>    [<span style="color:#ba2121">&#34;My Toot Actions&#34;</span>
+</span></span><span style="display:flex;"><span>     <span style="color:#008000">:class</span> <span style="color:#19177c">transient-row</span>
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;md&#34;</span> <span style="color:#ba2121">&#34;Delete&#34;</span> <span style="color:#19177c">mastodon-toot--delete-toot</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;mD&#34;</span> <span style="color:#ba2121">&#34;Delete and redraft&#34;</span> <span style="color:#19177c">mastodon-toot--delete-and-redraft-toot</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;mp&#34;</span> <span style="color:#ba2121">&#34;Pin&#34;</span> <span style="color:#19177c">mastodon-toot--pin-toot-toggle</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;me&#34;</span> <span style="color:#ba2121">&#34;Edit&#34;</span> <span style="color:#19177c">mastodon-toot--edit-toot-at-point</span>)]
+</span></span><span style="display:flex;"><span>    [<span style="color:#ba2121">&#34;User Actions&#34;</span>
+</span></span><span style="display:flex;"><span>     <span style="color:#008000">:class</span> <span style="color:#19177c">transient-row</span>
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;uf&#34;</span> <span style="color:#ba2121">&#34;Follow user&#34;</span> <span style="color:#19177c">my/mastodon-tl--follow-user-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;uF&#34;</span> <span style="color:#ba2121">&#34;Unfollow user&#34;</span> <span style="color:#19177c">my/mastodon-tl--unfollow-user-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;ub&#34;</span> <span style="color:#ba2121">&#34;Block user&#34;</span> <span style="color:#19177c">my/mastodon-tl--block-user-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;uB&#34;</span> <span style="color:#ba2121">&#34;Unblock user&#34;</span> <span style="color:#19177c">my/mastodon-tl--unblock-user-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;um&#34;</span> <span style="color:#ba2121">&#34;Mute user&#34;</span> <span style="color:#19177c">my/mastodon-tl--mute-user-confirm</span>)
+</span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;uB&#34;</span> <span style="color:#ba2121">&#34;Unmute user&#34;</span> <span style="color:#19177c">my/mastodon-tl--unmute-user-confirm</span>)]
 </span></span><span style="display:flex;"><span>    [<span style="color:#ba2121">&#34;Misc&#34;</span>
 </span></span><span style="display:flex;"><span>     <span style="color:#008000">:class</span> <span style="color:#19177c">transient-row</span>
 </span></span><span style="display:flex;"><span>     (<span style="color:#ba2121">&#34;q&#34;</span> <span style="color:#ba2121">&#34;Quit&#34;</span> <span style="color:#19177c">transient-quit-one</span>)]))