Re: A little lisp help

[Henrik Enberg]

Peter Lee <spam@nospam.org> writes:

> I'm learning lisp atm, and decided to write a macro to insert curly
> braces around a region and re-indent.
>
> So for this,
>
> if (x)
>     y=0;
>
> z=0;
> w=0;
> *
>
> setting mark at begining of line y=0 and setting point at * would
> produce the following.
>
> if (x)
>     {
>     y=0;
>
>     z=0;
>     w=0;
>     }

Something like this perhaps.  The `narrow-to-region' function is very
powerful.  It lets you work on a region as if it is the whole buffer. 

(defun curly-brace-region (beg end)
  "Inserts curly braces around region and indents."
  (interactive "r")
  (save-restriction
    (narrow-to-region beg end)
    (goto-char (point-min))
    (insert "{\n")
    (goto-char (point-max))
    (insert "}\n")
    (c-indent-region beg end)))