[plt-scheme] Scribble tools.

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 "}")))