yank-and-indent

yank-and-indent

[Timur Aydin]

Hi,

In programming, very often a number of lines are killed, yanked to another
location and are reindented according to the new location. Currently, the
following sequence has to be done manually:

1) Mark the lines to be killed
2) Kill the lines
3) Yank into new location
4) Mark the same lines again.
5) Hit C-M-\ to indent the lines according to new location.

I would like to reduce the procedure to:

1) Mark the lines to be killed
2) Kill the lines
3) Hit ???? to yank and indent the lines.

Any wisdom on how this can be accomplished? I am a beginner in lisp, so
hopefully there is a way that doesn't require writing a lisp function...

--
Timur

Re: yank-and-indent

[Michael Slass]

"Timur Aydin" <asdfweasdf@diowekfsdf.dersdre> writes:

>Hi,
>
>In programming, very often a number of lines are killed, yanked to another
>location and are reindented according to the new location. Currently, the
>following sequence has to be done manually:
>
>1) Mark the lines to be killed
>2) Kill the lines
>3) Yank into new location
>4) Mark the same lines again.
>5) Hit C-M-\ to indent the lines according to new location.
>
>I would like to reduce the procedure to:
>
>1) Mark the lines to be killed
>2) Kill the lines
>3) Hit ???? to yank and indent the lines.
>
>Any wisdom on how this can be accomplished? I am a beginner in lisp, so
>hopefully there is a way that doesn't require writing a lisp function...
>
>--
>Timur
>
>

Try this:

(defun yank-and-indent ()
  "Yank and indent yanked material according to mode."
  (interactive)
  (save-restriction
    (narrow-to-region (point) (point))
    (yank)
    (let ((beg (point-min))
          (end (point-max)))
      (widen)
      (indent-region beg end nil))))


-- 
Mike Slass

Re: yank-and-indent

[Alan Shutko]

"Timur Aydin" <asdfweasdf@diowekfsdf.dersdre> writes:

> In programming, very often a number of lines are killed, yanked to another
> location and are reindented according to the new location. 

Try this.  No idea where i got it.  Actually, looks like I got it
from http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=u66crixve.fsf%40sdm.de&rnum=1

;; automatically indenting yanked text if in programming-modes
(defadvice yank (after indent-region activate)
  (if (member major-mode '(emacs-lisp-mode
			   c-mode c++-mode
			   tcl-mode sql-mode
			   perl-mode cperl-mode
			   java-mode jde-mode
			   LaTeX-mode TeX-mode))
      (let ((transient-mark-mode nil))
	(indent-region (region-beginning) (region-end) nil))))

-- 
Alan Shutko <ats@acm.org> - In a variety of flavors!
Parrot in a raincoat: polyunsaturated.

Re: yank-and-indent

[Michael Slass]

Alan Shutko <ats@acm.org> writes:

>"Timur Aydin" <asdfweasdf@diowekfsdf.dersdre> writes:
>
>> In programming, very often a number of lines are killed, yanked to another
>> location and are reindented according to the new location. 
>
>Try this.  No idea where i got it.  Actually, looks like I got it
>from http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=u66crixve.fsf%40sdm.de&rnum=1
>
>;; automatically indenting yanked text if in programming-modes
>(defadvice yank (after indent-region activate)
>  (if (member major-mode '(emacs-lisp-mode
>			   c-mode c++-mode
>			   tcl-mode sql-mode
>			   perl-mode cperl-mode
>			   java-mode jde-mode
>			   LaTeX-mode TeX-mode))
>      (let ((transient-mark-mode nil))
>	(indent-region (region-beginning) (region-end) nil))))
>

This is better than my solution --- it uses the fact that yank sets
the point and mark around the yanked text, so you don't need the
chicanery I used.

I'm adding this to my .emacs right now.

-- 
Mike Slass

Re: yank-and-indent

[Timur Aydin]

"Alan Shutko" <ats@acm.org> wrote in message
news:87n0o4ez7i.fsf@wesley.springies.com...
> "Timur Aydin" <asdfweasdf@diowekfsdf.dersdre> writes:
>
> > In programming, very often a number of lines are killed, yanked to
another
> > location and are reindented according to the new location.
>
> Try this.  No idea where i got it.  Actually, looks like I got it
> from
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=u66crixv
e.fsf%40sdm.de&rnum=1
>

Works very nice... And best of all, no new keystroke needs to be learned.

--
Timur.

Re: yank-and-indent

[Arnaldo Mandel]

Michael Slass wrote (on Nov 20, 2002):
 > "Timur Aydin" <asdfweasdf@diowekfsdf.dersdre> writes:
 > 
 > >Hi,
 > >
 > >In programming, very often a number of lines are killed, yanked to another
 > >location and are reindented according to the new location. Currently, the
 > >following sequence has to be done manually:
 > >
 > >1) Mark the lines to be killed
 > >2) Kill the lines
 > >3) Yank into new location
 > >4) Mark the same lines again.
 > >5) Hit C-M-\ to indent the lines according to new location.
 > >
 > >I would like to reduce the procedure to:
 > >
 > >1) Mark the lines to be killed
 > >2) Kill the lines
 > >3) Hit ???? to yank and indent the lines.
 > >
 > >Any wisdom on how this can be accomplished? I am a beginner in lisp, so
 > >hopefully there is a way that doesn't require writing a lisp function...
 > >
 > >--
 > >Timur
 > >
 > >
 > 
 > Try this:
 > 
 > (defun yank-and-indent ()
 >   "Yank and indent yanked material according to mode."

To me this seems excessive: one more function and one more binding to
remember.

What Timur should realize is that step (4) is superfluous - the yanked
lines form the region immediately after yanking.  So, ???? is simply

C-y M-C-\

am

-- 
Arnaldo Mandel                        
Departamento de Ciência da Computação - Computer Science Department
Universidade de São Paulo, Bra[sz]il	  
am@ime.usp.br