<div dir="ltr">Thanks.&nbsp; This is better than the macros I had.<br><br><div class="gmail_quote">On Sat, Jul 19, 2008 at 11:30 PM, Geoffrey S. Knauth &lt;<a href="mailto:geoff@knauth.org">geoff@knauth.org</a>&gt; wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">On Jul 19, 2008, at 17:43, David Einstein wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Has anyone written any emacs (or any other editor) tools for editing scribble documentation?<br>
</blockquote>
<br></div>
I didn&#39;t write anything as nice as a tool. &nbsp;I just defined a few functions to save me some typing:<br>
<br>
(defun s-scm ()<br>
 &nbsp;(interactive)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@scheme[&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;]&quot;)))<br>
<br>
(defun s-sb ()<br>
 &nbsp;(interactive)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@schemeblock[&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;]&quot;)))<br>
<br>
(defun s-tt ()<br>
 &nbsp;(interactive)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@tt{&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;}&quot;)))<br>
<br>
(defun s-fp ()<br>
 &nbsp;(interactive)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@filepath{&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;}&quot;)))<br>
<br>
(defun s-item ()<br>
 &nbsp;(interactive)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@item{&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;}&quot;)))<br>
<br>
(defun s-it ()<br>
 &nbsp;(interactive)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@italic{&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;}&quot;)))<br>
<br>
(defun s-m (type)<br>
 &nbsp;(interactive &quot;sType? &quot;)<br>
 &nbsp;(save-restriction<br>
 &nbsp; &nbsp;(narrow-to-region (mark) (point))<br>
 &nbsp; &nbsp;(goto-char (point-min))<br>
 &nbsp; &nbsp;(insert &quot;@&quot; type &quot;{&quot;)<br>
 &nbsp; &nbsp;(goto-char (point-max))<br>
 &nbsp; &nbsp;(insert &quot;}&quot;)))<br>
<br>
</blockquote></div><br></div>