deploy: 7547b2948d

configs/emacs/index.html

@@ -162,7 +162,7 @@ Emacs is also particularly good at writing Lisp code, e.g. Clojure, Common Lisp,
 </span></span></code></pre></div><h3 id="packages">Packages</h3>
 <h4 id="straight-dot-el">straight.el</h4>
 <p>Straight.el is my Emacs package manager of choice. Its advantages &amp; disadvantages over other options are listed pretty thoroughly in the README file in the repo.</p>
-<p>The following is a straight.el bootstrap script.</p>
+<p>The following is the bootstrap script of <code>straight.el</code>.</p>
 <p>References:</p>
 <ul>
 <li><a href="https://github.com/raxod502/straight.el">straight.el repo</a></li>
@@ -3028,7 +3028,7 @@ Emacs is also particularly good at writing Lisp code, e.g. Clojure, Common Lisp,
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>(<span style="color:#19177c">reformatter-define</span> <span style="color:#19177c">sqlformat</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:program</span> (<span style="color:#19177c">executable-find</span> <span style="color:#ba2121">&#34;sql-formatter&#34;</span>)
-</span></span><span style="display:flex;"><span>  <span style="color:#008000">:args</span> <span style="color:#666">`</span>(<span style="color:#ba2121">&#34;-l&#34;</span> <span style="color:#666">,</span><span style="color:#19177c">my/sqlformatter-dialect,</span> <span style="color:#ba2121">&#34;-u&#34;</span>))
+</span></span><span style="display:flex;"><span>  <span style="color:#008000">:args</span> <span style="color:#666">`</span>(<span style="color:#ba2121">&#34;-l&#34;</span> <span style="color:#666">,</span><span style="color:#19177c">my/sqlformatter-dialect</span>))
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>(<span style="color:#19177c">my-leader-def</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:keymaps</span> <span style="color:#666">&#39;</span>(<span style="color:#19177c">sql-mode-map</span>)

configs/mail/index.html

@@ -448,7 +448,7 @@ Remove <code>TAG</code> from emails which are outside the matching <code>PATH</c
 </span></span><span style="display:flex;"><span>(<span style="color:#008000">defun</span> <span style="color:#19177c">my/notmuch-toggle-unread</span> ()
 </span></span><span style="display:flex;"><span>  (<span style="color:#008000">interactive</span>)
 </span></span><span style="display:flex;"><span>  (<span style="color:#19177c">evil-collection-notmuch-toggle-tag</span> <span style="color:#ba2121">&#34;unread&#34;</span> <span style="color:#ba2121">&#34;search&#34;</span> <span style="color:#00f">#&#39;</span><span style="color:#19177c">ignore</span>))
-</span></span></code></pre></div><p>Finally the proper notmuch settings:</p>
+</span></span></code></pre></div><p>And notmuch settings:</p>
 <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">use-package</span> <span style="color:#19177c">notmuch</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#408080;font-style:italic">;; :ensure nil</span>
 </span></span><span style="display:flex;"><span>  <span style="color:#008000">:commands</span> (<span style="color:#19177c">notmuch</span> <span style="color:#19177c">notmuch-search</span>)
@@ -626,28 +626,10 @@ Remove <code>TAG</code> from emails which are outside the matching <code>PATH</c
 </span></span><span style="display:flex;"><span>Person &lt;person@mail.org&gt; writes:
 </span></span><span style="display:flex;"><span>
 </span></span><span style="display:flex;"><span>&gt; Stuff
-</span></span></code></pre></div><p>So here I modifiy the citation function to insert the signature like in the second example for certain cases.</p>
-<p>FIrst, determine whether it is necessary to do so:</p>
-<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">setq</span> <span style="color:#19177c">my/message-signature-on-top</span> <span style="color:#666">&#39;</span>(<span style="color:#ba2121">&#34;@etu.ru&#34;</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/message-insert-signature-need-on-top</span> ()
-</span></span><span style="display:flex;"><span>  (<span style="color:#008000">let</span> ((<span style="color:#19177c">parts</span> (<span style="color:#19177c">split-string</span>
-</span></span><span style="display:flex;"><span>		(<span style="color:#19177c">string-join</span>
-</span></span><span style="display:flex;"><span>		 (<span style="color:#00f">list</span>
-</span></span><span style="display:flex;"><span>		  (<span style="color:#19177c">message-fetch-field</span> <span style="color:#ba2121">&#34;to&#34;</span>)
-</span></span><span style="display:flex;"><span>		  (<span style="color:#19177c">message-fetch-field</span> <span style="color:#ba2121">&#34;cc&#34;</span>)
-</span></span><span style="display:flex;"><span>		  (<span style="color:#19177c">message-fetch-field</span> <span style="color:#ba2121">&#34;bcc&#34;</span>))
-</span></span><span style="display:flex;"><span>		 <span style="color:#ba2121">&#34;, &#34;</span>)
-</span></span><span style="display:flex;"><span>		<span style="color:#ba2121">&#34;, &#34;</span>)))
-</span></span><span style="display:flex;"><span>    (<span style="color:#008000">and</span>
-</span></span><span style="display:flex;"><span>     (<span style="color:#19177c">seq-some</span>
-</span></span><span style="display:flex;"><span>      (<span style="color:#008000">lambda</span> (<span style="color:#19177c">rule</span>)
-</span></span><span style="display:flex;"><span>	(<span style="color:#19177c">seq-some</span>
-</span></span><span style="display:flex;"><span>	 (<span style="color:#008000">lambda</span> (<span style="color:#19177c">part</span>)
-</span></span><span style="display:flex;"><span>	   (<span style="color:#19177c">string-match-p</span> <span style="color:#19177c">rule</span> <span style="color:#19177c">part</span>))
-</span></span><span style="display:flex;"><span>	 <span style="color:#19177c">parts</span>))
-</span></span><span style="display:flex;"><span>      <span style="color:#19177c">my/message-signature-on-top</span>)
-</span></span><span style="display:flex;"><span>     <span style="color:#800">t</span>)))
+</span></span></code></pre></div><p>So here I modifiy the citation function to insert the signature like in the second example for <del>certain cases</del>.</p>
+<p>Edit <span class="timestamp-wrapper"><span class="timestamp">&lt;2022-10-27 Thu&gt;</span></span>: for consistency&rsquo;s sake, I&rsquo;ll make the signature on the top for all cases.</p>
+<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">defun</span> <span style="color:#19177c">my/message-insert-signature-need-on-top</span> ()
+</span></span><span style="display:flex;"><span>  <span style="color:#800">t</span>)
 </span></span></code></pre></div><p>Then advice the <code>notmuch-mua-reply</code> function:</p>
 <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">defun</span> <span style="color:#19177c">my/message-maybe-fix-signature</span> (<span style="color:#008000">&amp;rest</span> <span style="color:#19177c">_</span>)
 </span></span><span style="display:flex;"><span>  (<span style="color:#008000">when</span> (<span style="color:#19177c">my/message-insert-signature-need-on-top</span>)