[plt-scheme] Scribble tools.

Thanks.  This is better than the macros I had.

On Sat, Jul 19, 2008 at 11:30 PM, Geoffrey S. Knauth <geoff at knauth.org>
wrote:

> On Jul 19, 2008, at 17:43, David Einstein wrote:
>
>> Has anyone written any emacs (or any other editor) tools for editing
>> scribble documentation?
>>
>
> I didn't write anything as nice as a tool.  I just defined a few functions
> to save me some typing:
>
> (defun s-scm ()
>  (interactive)
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@scheme[")
>    (goto-char (point-max))
>    (insert "]")))
>
> (defun s-sb ()
>  (interactive)
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@schemeblock[")
>    (goto-char (point-max))
>    (insert "]")))
>
> (defun s-tt ()
>  (interactive)
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@tt{")
>    (goto-char (point-max))
>    (insert "}")))
>
> (defun s-fp ()
>  (interactive)
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@filepath{")
>    (goto-char (point-max))
>    (insert "}")))
>
> (defun s-item ()
>  (interactive)
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@item{")
>    (goto-char (point-max))
>    (insert "}")))
>
> (defun s-it ()
>  (interactive)
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@italic{")
>    (goto-char (point-max))
>    (insert "}")))
>
> (defun s-m (type)
>  (interactive "sType? ")
>  (save-restriction
>    (narrow-to-region (mark) (point))
>    (goto-char (point-min))
>    (insert "@" type "{")
>    (goto-char (point-max))
>    (insert "}")))
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20080720/d73b1173/attachment.html>