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