chacha/RetroDebian
1
0
Fork 0
Code Issues Pull Requests Actions Packages Releases 1 Activity

copy past to/from terminal

Browse Source
This commit is contained in:
ChaCha
2026-03-22 20:03:21 +01:00
parent 7f4f54c594
commit e35d042ede
2 changed files with 35 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
internal/rootfs/etc/skel/.Xresources
View File

@@ -5,6 +5,10 @@ URxvt*cursorColor: #65adc7
URxvt*scrollBar: false URxvt*scrollBar: false
URxvt*internalBorder: 6 URxvt*internalBorder: 6
URxvt.perl-ext-common: clipboard
URxvt.keysym.Mod4-c: perl:clipboard:copy
URxvt.keysym.Mod4-v: perl:clipboard:paste
XTerm*faceName: DejaVu Sans Mono XTerm*faceName: DejaVu Sans Mono
XTerm*faceSize: 9 XTerm*faceSize: 9
XTerm*foreground: #7186e3 XTerm*foreground: #7186e3

31
internal/rootfs/usr/lib/urxvt/perl/clipboard Normal file
View File

@@ -0,0 +1,31 @@
#! 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) = @_;
if ($cmd eq "clipboard:copy") {
$self->copy;
}
if ($cmd eq "clipboard:paste") {
$self->paste;
}
}