diff options
| -rw-r--r-- | src/perl/selection-to-clipboard | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/perl/selection-to-clipboard b/src/perl/selection-to-clipboard new file mode 100644 index 0000000..0431694 --- /dev/null +++ b/src/perl/selection-to-clipboard @@ -0,0 +1,27 @@ +#! perl -w + +=head1 NAME + +selection-to-clipboard - copy the selection to the clipboard each time a selection is made + +=head1 SYNOPSIS + + urxvt -pe selection-to-clipboard + +=head1 DESCRIPTION + +This very simple extension copies the selection to the clipboard every +time a selection is made. This, in effect, synchronises the clipboard with +the selection for selections done by rxvt-unicode. + +=cut + +sub on_sel_grab { + my ($self, $time) = @_; + + $self->selection ($self->selection, 1); + $self->selection_grab ($time, 1); + + () +} + |