--- rxvt-unicode/src/perl/selection-pastebin 2011/11/19 17:40:48 1.17 +++ rxvt-unicode/src/perl/selection-pastebin 2012/06/10 13:58:06 1.19 @@ -1,5 +1,8 @@ #! perl +#:META:X_RESOURCE:%.cmd:string:the command to run create a new pastebin +#:META:X_RESOURCE:%.url:string:the url template for new pastebins + sub upload_paste { my ($self) = @_; @@ -59,10 +62,10 @@ sub on_start { my ($self) = @_; - $self->{pastebin_cmd} = $self->x_resource ("selection-pastebin.cmd") + $self->{pastebin_cmd} = $self->x_resource ("%.cmd") || "rcp -p % ruth:/var/www/www.ta-sa.org/files/txt/"; - $self->{pastebin_url} = $self->x_resource ("selection-pastebin.url") + $self->{pastebin_url} = $self->x_resource ("%.url") || "http://www.ta-sa.org/files/txt/%"; push @{ $self->{term}{selection_popup_hook} }, sub {