Convert rectangle's lines to a flat string and put it in the kill ring

Convert rectangle's lines to a flat string and put it in the kill ring

[Teemu Likonen]

[-- Attachment #1: Type: text/plain, Size: 722 bytes --]

I'm trying to write a custom rectangle copy command. It should convert
rectangle's lines to a flat string like this: "line1|line2|line3", that
is, use separator character "|" between lines. The resulting string
should be put in the kill ring so that the next yank command would
insert it.


    (defun tl-rectangle-string (beg end)
      (interactive "r")
      (let ((list (extract-rectangle beg end)))
        (kill-new (mapconcat 'substring-no-properties list "|"))
        (setq deactivate-mark t)))


It doesn't work. The next yank command inserts the region between BEG
and END, not the generated flat string. "yank + yank-pop" inserts the
generated string but I'd like to have it first in the yank list. Any
ideas?

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]

Re: Convert rectangle's lines to a flat string and put it in the kill ring

[Teemu Likonen]

[-- Attachment #1: Type: text/plain, Size: 586 bytes --]

Teemu Likonen [2013-09-08 15:39:59 +03:00] wrote:

> I'm trying to write a custom rectangle copy command. It should convert
> rectangle's lines to a flat string like this: "line1|line2|line3", that
> is, use separator character "|" between lines.

> It doesn't work. The next yank command inserts the region between BEG
> and END, not the generated flat string.

The problem solved. I had select-active-regions=t so the region was
added to kill ring after my kill-new function call. When I set the
variable to symbol "only" my custom kill ring insert remains the first
one in the ring.

[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]