--- rxvt-unicode/src/perl/remote-clipboard 2007/11/11 04:08:00 1.5 +++ rxvt-unicode/src/perl/remote-clipboard 2012/06/10 13:58:06 1.8 @@ -1,5 +1,8 @@ #! perl +#:META:X_RESOURCE:%.store:string:the command used to store the selection +#:META:X_RESOURCE:%.fetch:string:the command used to fetch the selection + use Fcntl (); sub msg { @@ -84,10 +87,10 @@ sub on_start { my ($self) = @_; - $self->{store_cmd} = $self->x_resource ("remote-selection.store") + $self->{store_cmd} = $self->x_resource ("%.store") || "rsh ruth 'cat >/tmp/distributed-selection'"; - $self->{fetch_cmd} = $self->x_resource ("remote-selection.fetch") + $self->{fetch_cmd} = $self->x_resource ("%.fetch") || "rsh ruth 'cat /tmp/distributed-selection'"; push @{ $self->{term}{selection_popup_hook} }, sub {