aboutsummaryrefslogtreecommitdiff
path: root/urxvt
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2023-02-11 05:53:32 +1300
committerTom Ryder <tom@sanctum.geek.nz>2023-02-11 05:57:37 +1300
commit5b16cb16d24d302bb247375a7babc3549964b36f (patch)
treea42cef551ee17da45d29b0c53c868bea14426aaa /urxvt
parentRemove 8-bit/meta key xterm settings (diff)
downloaddotfiles-5b16cb16d24d302bb247375a7babc3549964b36f.tar.gz
dotfiles-5b16cb16d24d302bb247375a7babc3549964b36f.zip
Remove urxvt support
I've switched back to xterm; rxvt's not worth the periodic incompatibilities, especially with mosh.
Diffstat (limited to 'urxvt')
-rw-r--r--urxvt/ext/select.pl85
-rw-r--r--urxvt/xsession.d/urxvt.sh2
2 files changed, 0 insertions, 87 deletions
diff --git a/urxvt/ext/select.pl b/urxvt/ext/select.pl
deleted file mode 100644
index 7701e963..00000000
--- a/urxvt/ext/select.pl
+++ /dev/null
@@ -1,85 +0,0 @@
-# Tom Ryder's choice of selection behaviours for urxvt, butchered from included
-# URxvt extension scripts.
-
-# Force me to write this properly
-use strict;
-use warnings;
-use utf8;
-
-# Require at least this version of Perl
-use 5.006;
-
-# Use plain-English variable names
-use English qw(-no_match_vars);
-
-# Set version of this extension
-our $VERSION = 1.0;
-
-# On creation, read all of cutchars into a list of regex-quoted patterns
-sub on_init {
- my ($self) = @_;
- if ( defined( my $res = $self->resource('cutchars') ) ) {
- $res = $self->locale_decode($res);
- push @{ $self->{patterns} },
- qr{\G [\Q$res\E[:space:]]* ([^\Q$res\E[:space:]]+) }msx;
- }
- return ();
-}
-
-# Handle multiple-clicking selection extension
-sub on_sel_extend {
- my ($self) = @_;
-
- # Get attributes of the current selection
- my ( $row, $col ) = $self->selection_mark;
- my $line = $self->line($row);
- my $text = $line->t;
- my $markofs = $line->offset_of( $row, $col );
- my $curlen =
- $line->offset_of( $self->selection_end ) -
- $line->offset_of( $self->selection_beg );
-
- # Find all the possible matches
- my @matches;
- if ( $markofs < $line->l ) {
-
- # `perldoc -f study` says this does nothing useful anymore since
- # version 5.16
- study $text;
-
- for my $regex ( @{ $self->{patterns} } ) {
- while ( $text =~ m{$regex}gmsx ) {
- if ( $LAST_MATCH_START[1] <= $markofs
- and $markofs <= $LAST_MATCH_END[1] )
- {
- my $ofs = $LAST_MATCH_START[1];
- my $match = $1;
-
- push @matches, [ $ofs, length $match ];
- }
- }
- }
- }
-
- # If no more clever patterns matched, just snarf the whole line
- push @matches, [ 0, ( $line->end - $line->beg + 1 ) * $self->ncol ];
-
- # Iterate over the matches to choose the shortest one
- MATCH:
- for (
- sort { ## no critic (ProhibitReverseSortBlock)
- $a->[1] <=> $b->[1]
- or $b->[0] <=> $a->[0]
- } @matches
- )
- {
- my ( $ofs, $len ) = @{$_};
- next MATCH if $len <= $curlen;
- $self->selection_beg( $line->coord_of($ofs) );
- $self->selection_end( $line->coord_of( $ofs + $len ) );
- return 1;
- }
-
- # Done
- return ();
-}
diff --git a/urxvt/xsession.d/urxvt.sh b/urxvt/xsession.d/urxvt.sh
deleted file mode 100644
index 766c2939..00000000
--- a/urxvt/xsession.d/urxvt.sh
+++ /dev/null
@@ -1,2 +0,0 @@
-# Start X terminator emulator daemon
-urxvtd --fork --opendisplay