2021-07-12T21:38:22+00:00 / http://davazp.net/2012/12/13/Emphasizing-text-in-ERC 2012-12-13T00:00:00+00:00 2012-12-13T00:00:00+00:00 David Vázquez /2012/12/13/Emphasizing-text-in-ERC <p>I have realized <a href="http://www.gnu.org/software/emacs/manual/html_mono/erc.html">ERC</a> supports control characters to emphasize text as bold, underline… However, I prefer <code class="language-plaintext highlighter-rouge">*foo*</code>, <code class="language-plaintext highlighter-rouge">/bar/</code> and <code class="language-plaintext highlighter-rouge">_foobar_</code> syntax, just like org-mode and Gnus. So I have added the following code to my .emacs to do the job:</p> <div class="language-emacs-lisp highlighter-rouge"><div class="highlight"><pre class="highlight"><code><span class="p">(</span><span class="nb">defun</span> <span class="nv">erc-emphasize</span> <span class="p">()</span> <span class="p">(</span><span class="nb">when</span> <span class="p">(</span><span class="nb">eq</span> <span class="nv">erc-interpret-controls-p</span> <span class="no">t</span><span class="p">)</span> <span class="p">(</span><span class="nv">goto-char</span> <span class="p">(</span><span class="nv">point-min</span><span class="p">))</span> <span class="p">(</span><span class="nv">while</span> <span class="p">(</span><span class="nv">re-search-forward</span> <span class="s">"\\(?:^\\|\\s-\\)\\(\\*\\([^*]+\\)\\*\\)\\(:?$\\|\\s-\\)"</span> <span class="no">nil</span> <span class="no">t</span><span class="p">)</span> <span class="p">(</span><span class="nv">replace-match</span> <span class="s">"\C-b\\2\C-o"</span> <span class="no">nil</span> <span class="no">nil</span> <span class="no">nil</span> <span class="mi">1</span><span class="p">))</span> <span class="p">(</span><span class="nv">goto-char</span> <span class="p">(</span><span class="nv">point-min</span><span class="p">))</span> <span class="p">(</span><span class="nv">while</span> <span class="p">(</span><span class="nv">re-search-forward</span> <span class="s">"\\(?:^\\|\\s-\\)\\(_\\([^_]+\\)_\\)\\(?:$\\|\\s-\\)"</span> <span class="no">nil</span> <span class="no">t</span><span class="p">)</span> <span class="p">(</span><span class="nv">replace-match</span> <span class="s">"\C-_\\2\C-O"</span> <span class="no">nil</span> <span class="no">nil</span> <span class="no">nil</span> <span class="mi">1</span><span class="p">))</span> <span class="p">(</span><span class="nv">goto-char</span> <span class="p">(</span><span class="nv">point-min</span><span class="p">))</span> <span class="p">(</span><span class="nv">while</span> <span class="p">(</span><span class="nv">re-search-forward</span> <span class="s">"\\(?:^\\|\\s-\\)\\(/\\([^/]+\\)/\\)\\(?:$\\|\\s-\\)"</span> <span class="no">nil</span> <span class="no">t</span><span class="p">)</span> <span class="p">(</span><span class="nv">replace-match</span> <span class="s">"\C-V\\2\C-O"</span> <span class="no">nil</span> <span class="no">nil</span> <span class="no">nil</span> <span class="mi">1</span><span class="p">))))</span> <span class="p">(</span><span class="nv">add-hook</span> <span class="ss">'erc-send-pre-hook</span> <span class="p">(</span><span class="k">lambda</span> <span class="p">(</span><span class="nb">string</span><span class="p">)</span> <span class="p">(</span><span class="nv">with-temp-buffer</span> <span class="p">(</span><span class="nv">insert</span> <span class="nb">string</span><span class="p">)</span> <span class="p">(</span><span class="nv">erc-emphasize</span><span class="p">)</span> <span class="p">(</span><span class="k">setq</span> <span class="nv">str</span> <span class="p">(</span><span class="nv">buffer-substring</span> <span class="p">(</span><span class="nv">point-min</span><span class="p">)</span> <span class="p">(</span><span class="nv">point-max</span><span class="p">))))))</span> <span class="p">(</span><span class="nv">add-hook</span> <span class="ss">'erc-insert-modify-hook</span> <span class="ss">'erc-emphasize</span><span class="p">)</span> </code></pre></div></div> <p>The code transforms the text before sending it, so it will work without changes in the IRC client of the other person, supposed control characters is supported of course. If you want to send/receive text literally, just disable control characters interpretation with <kbd>C-c C-c</kbd> in the ERC buffer.</p>