{SOLUTION IN PROGRESS} Копи-паст в mcedit в Х эмуляторах терминала не работает. В консоли работает.

#! perl -w

# Usage:
# URxvt.perl-ext-common: clipboard
# URxvt.keysym.Mod4-c: perl:clipboard:copy
# URxvt.keysym.Mod4-v: perl:clipboard:paste

# consult command "xmodmap" to see what your modifier mapped into.

sub copy {
   my ($self) = @_;
   my $pid = open( pout, "| xsel -ib" ) or die "fork";
   print pout $self->selection;
   close(pout) or die "close";
}

sub paste {
   my ($self) = @_;
   my $content = `xsel -ob` ;
   $self->tt_write ($content);
}

sub on_user_command {
   my ($self, $cmd) = @_;
   warn "command is ", $cmd;
   if ($cmd eq "clipboard:copy") {
      $self->copy;
   }
   if ($cmd eq "clipboard:paste") {
      $self->paste;
   }
}

...
URxvt.perl-ext-common: ...,clipboard,selection-to-clipboard
URxvt.keysym.Shift-Insert: perl:clipboard:paste
...

...
[editor]
Store = ctrl-insert
Paste = shift-insert
Cut = shift-delete
Remove = f8; ctrl-delete
...

...
clipboard_store=f2clip.sh
...

#!/bin/sh
#cat $1 | xclip  -selection clipboard
# почему-то с xclip не работает вставка в Лазарусе. А с xsel - работает.
cat $1 | xsel -ib

pethead
URxvt.perl-ext-common: ...,clipboard,selection-to-clipboard

URxvt.perl-ext-common: searchable-scrollback<M-S-s>,default,matcher,clipboard,sel-to-clipboard

#! /usr/bin/perl

sub on_sel_grab {
    my $query = $_[0]->selection;
    open (my $pipe,'|-','xsel -ibp -l /dev/null') or die "can't run xsel: $!" ;
    print $pipe $query;
    close $pipe;
}

pethead
Я так прнял,

akorop
Какой терминал?

pethead
erminator, например. Или Xfce-шный, или Konsole.
Надо пересаживаться на uxrvt?