mirror of
https://github.com/pnx/dotfiles
synced 2026-06-16 19:30:01 +02:00
11 lines
No EOL
161 B
Perl
11 lines
No EOL
161 B
Perl
#!/usr/bin/perl
|
|
# IBeam cursor in urxvt
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub on_start {
|
|
my ($self) = @_;
|
|
my $cmd = "\033[5 q\r";
|
|
$self->cmd_parse($cmd);
|
|
} |