ABC index

ABC index

[Emanuel Berg via Users list for the GNU Emacs text editor]

A friend asked how to do this

Kate Moss
Elle Macpherson
Alicia Silverstone

into this

A Kate Moss
B Elle Macpherson
C Alicia Silverstone

No idea why!

Anyway, ABC index contest! Elisp and keyboard macros allowed!

Here is contribution CONTRIBUTION by Yours Truly:

(require 'cl-lib)
(defun index-abc (&optional beg end)
  (interactive (if (use-region-p)
                   (list (region-beginning) (region-end))
                 (list (point-min) (point-max) )))
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (cl-loop for i from ?A to ?Z do
               (when (re-search-forward "^" nil t)
                 (insert (char-to-string i) " ") )))))

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: ABC index

[Daniel Martín]

Emanuel Berg via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> A friend asked how to do this
>
> Kate Moss
> Elle Macpherson
> Alicia Silverstone
>
> into this
>
> A Kate Moss
> B Elle Macpherson
> C Alicia Silverstone
>
> No idea why!
>
> Anyway, ABC index contest! Elisp and keyboard macros allowed!
>

Interactively, make a rectangle selection just before the first column
and then:

C-u C-x r N 65 RET %c  RET

In Lisp, you could write something like

(defun rectangle-char-lines (beg end letter)
   (interactive "r\ncStart letter:")
   (rectangle-number-lines beg end letter "%c "))

and bind it to a key.

Re: ABC index

[Emanuel Berg via Users list for the GNU Emacs text editor]

Daniel Martín wrote:

> In Lisp, you could write something like
>
> (defun rectangle-char-lines (beg end letter)
>    (interactive "r\ncStart letter:")
>    (rectangle-number-lines beg end letter "%c "))

Oh no, there is a damn function to do this already...

Well, OK. Good job I guess.

Stay tuned for the next Emacs challenge competition, in a terminal
emulator near YOU

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: ABC index

[Leo Butler]

Emanuel Berg via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> ********************************************************
> Caution: This message was sent from outside the University of Manitoba.
> ********************************************************
>
> Daniel Martín wrote:
>
>> In Lisp, you could write something like
>>
>> (defun rectangle-char-lines (beg end letter)
>>    (interactive "r\ncStart letter:")
>>    (rectangle-number-lines beg end letter "%c "))

That is nice.

>
> Oh no, there is a damn function to do this already...

https://imgs.xkcd.com/comics/real_programmers.png

Leo

Re: ABC index

[Emanuel Berg via Users list for the GNU Emacs text editor]

Leo Butler wrote:

>> Oh no, there is a damn function to do this already...
>
> https://imgs.xkcd.com/comics/real_programmers.png

Thanks, but I like mine better: punch- first, and only, line.

{hey...not bad}

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: ABC index

[Dante Catalfamo]

If you wanted to make the starting letter more human readable, you could 
use ?A instead of 65 :-)

On 10/27/20 6:12 PM, Daniel Martín wrote:
> Emanuel Berg via Users list for the GNU Emacs text editor
> <help-gnu-emacs@gnu.org> writes:
> 
>> A friend asked how to do this
>>
>> Kate Moss
>> Elle Macpherson
>> Alicia Silverstone
>>
>> into this
>>
>> A Kate Moss
>> B Elle Macpherson
>> C Alicia Silverstone
>>
>> No idea why!
>>
>> Anyway, ABC index contest! Elisp and keyboard macros allowed!
>>
> 
> Interactively, make a rectangle selection just before the first column
> and then:
> 
> C-u C-x r N 65 RET %c  RET
> 
> In Lisp, you could write something like
> 
> (defun rectangle-char-lines (beg end letter)
>     (interactive "r\ncStart letter:")
>     (rectangle-number-lines beg end letter "%c "))
> 
> and bind it to a key.
>