unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* ABC index
@ 2020-10-27 21:23 Emanuel Berg via Users list for the GNU Emacs text editor
  2020-10-27 22:12 ` Daniel Martín
  0 siblings, 1 reply; 6+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2020-10-27 21:23 UTC (permalink / raw)
  To: help-gnu-emacs

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




^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: ABC index
  2020-10-27 21:23 ABC index Emanuel Berg via Users list for the GNU Emacs text editor
@ 2020-10-27 22:12 ` Daniel Martín
  2020-10-27 22:19   ` Emanuel Berg via Users list for the GNU Emacs text editor
  2020-10-28  3:08   ` Dante Catalfamo
  0 siblings, 2 replies; 6+ messages in thread
From: Daniel Martín @ 2020-10-27 22:12 UTC (permalink / raw)
  To: help-gnu-emacs

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.



^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: ABC index
  2020-10-27 22:12 ` Daniel Martín
@ 2020-10-27 22:19   ` Emanuel Berg via Users list for the GNU Emacs text editor
  2020-10-28  2:13     ` Leo Butler
  2020-10-28  3:08   ` Dante Catalfamo
  1 sibling, 1 reply; 6+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2020-10-27 22:19 UTC (permalink / raw)
  To: help-gnu-emacs

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




^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: ABC index
  2020-10-27 22:19   ` Emanuel Berg via Users list for the GNU Emacs text editor
@ 2020-10-28  2:13     ` Leo Butler
  2020-10-28  2:38       ` Emanuel Berg via Users list for the GNU Emacs text editor
  0 siblings, 1 reply; 6+ messages in thread
From: Leo Butler @ 2020-10-28  2:13 UTC (permalink / raw)
  To: help-gnu-emacs

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



^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: ABC index
  2020-10-28  2:13     ` Leo Butler
@ 2020-10-28  2:38       ` Emanuel Berg via Users list for the GNU Emacs text editor
  0 siblings, 0 replies; 6+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2020-10-28  2:38 UTC (permalink / raw)
  To: help-gnu-emacs

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




^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: ABC index
  2020-10-27 22:12 ` Daniel Martín
  2020-10-27 22:19   ` Emanuel Berg via Users list for the GNU Emacs text editor
@ 2020-10-28  3:08   ` Dante Catalfamo
  1 sibling, 0 replies; 6+ messages in thread
From: Dante Catalfamo @ 2020-10-28  3:08 UTC (permalink / raw)
  To: help-gnu-emacs

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.
> 



^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2020-10-28  3:08 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-10-27 21:23 ABC index Emanuel Berg via Users list for the GNU Emacs text editor
2020-10-27 22:12 ` Daniel Martín
2020-10-27 22:19   ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-10-28  2:13     ` Leo Butler
2020-10-28  2:38       ` Emanuel Berg via Users list for the GNU Emacs text editor
2020-10-28  3:08   ` Dante Catalfamo

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).