Re: emacs insert icrement numbers

[Chris McMahan]

Thanks for the code! I'm saving it as part of my "I've got to learn
elisp" library.

- Chris

Pascal Bourguignon <pjb@informatimago.com> writes:

> Step0ut <step0ut@yahoo.gr> writes:
>
>> Hi everyone,
>>
>> I am using emacs as an editor for c++ and latex.
>> I am using the command Ctrl-xrt to insert rectangles (usually numbers) quite
>> often.
>> My question is:
>> Is it possible to insert numbers that increament in each line?
>> e.g.  0
>>        1
>>        2
>>        ...
>>        99
>>
>
> Well I don't have gse-number-rect, and I bet it'll be faster to write
> the following than to use google...
>
> (defun insert-numbers (min max)
>   (interactive "nFrom: \nnTo: ")
>   (while (<= min max) (insert (format "\n%d " min)) (setq min (+ 1 min))))
>
> 0
> 1
> 2
> 3
>
> It's also possible to record the left margin, and to copy it on each line:
>
> (defun insert-numbers (min max)
>   (interactive "nFrom: \nnTo: ")
>   (let ((margin (buffer-substring (save-excursion (beginning-of-line) (point))
>                                   (point))))
>     (when (<= min max)
>         (insert (format "%d " min))
>         (setq min (+ 1 min))
>         (while (<= min max)
>           (insert (format "\n%s%d " margin min))
>           (setq min (+ 1 min))))))
>
> ==> 0 
> ==> 1 
> ==> 2 
> ==> 3 
>
>
>> Alternatively I was also thinking if it is possible to replace an existing
>> string (M-x replace-regexp) with an icrement number. It will do the job as
>> well.
>
> With latest versions (>=22), you can use \,form in the the substitutions.
>
> For example, select a region and:
>
> M-x replace-regexp RET \(.*\) RET 
>     \,(progn(defvar n 0)(format "%3d " (incf n)))\1 RET
>
>   1 NOTE: The most fundamental particles in this product are held
>   2 together by a "gluing" force about which little is currently known
>   3 and whose adhesive power can therefore not be permanently
>   4 guaranteed.
>
>
> -- 
> __Pascal Bourguignon__                     http://www.informatimago.com/
>
> NOTE: The most fundamental particles in this product are held
> together by a "gluing" force about which little is currently known
> and whose adhesive power can therefore not be permanently
> guaranteed.

-- 
     (.   .)
  =ooO=(_)=Ooo=====================================
  Chris McMahan | first_initiallastname@one.dot.net
  =================================================