chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

trying to fix

Browse source
This commit is contained in:
Chris Cochrun 2022-01-03 12:41:35 -06:00
parent fa407dfeb6
commit e013d7569e
22945 changed files with 447936 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
var/elfeed/db/data/37/37f3c40cd2859910059c5d487c56cb873d7eb683 Normal file
View file

@ -0,0 +1,23 @@
<p>
Over the years, i've written perhaps hundreds of little emacs
commands. Most of them looked useful at the time (why, i absolutely
<i>needed</i> them!), but just faded away after a few weeks. There are a
handful though that i use all the time, and i specially like it when
their signal (features, usefulness) to noise (lines of code) ratio is
above average. Here's one with a surprisingly high one:
</p>
<div class="org-src-container">
<pre class="src src-emacs-lisp">(<span style="color: #023770;">defun</span> <span style="color: #005555;">jao-buffer-same-mode</span> (&amp;rest modes)
<span style="color: #626262; font-style: italic;">"Pop to a buffer with a mode among MODES, or the current one if not given."</span>
(<span style="color: #023770;">interactive</span>)
(<span style="color: #023770;">let*</span> ((modes (<span style="color: #023770;">or</span> modes (list major-mode)))
(pred (<span style="color: #023770;">lambda</span> (b)
(<span style="color: #023770;">let</span> ((b (get-buffer (<span style="color: #023770;">if</span> (consp b) (car b) b))))
(member (buffer-local-value 'major-mode b) modes)))))
(pop-to-buffer (read-buffer <span style="color: #00552a;">"Buffer: "</span> nil t pred))))
</pre>
</div>
<div class="taglist"><a href="https://jao.io/blog/tags.html">Tags</a>: <a href="https://jao.io/blog/tag-emacs.html">emacs</a> </div>