resize-font

# vim:ft=perl:fenc=utf-8
# Copyright (c) 2009-, Simon Lundström <simmel@soy.se>
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

# Usage:
# Set your font in ~/.Xresources:
# urxvt.font: xft:Inconsolata:pixelsize=12

# Activate extension:
# URxvt.perl-ext-common: ...,resize-font

# And re-bind some keymappings (if you want, below are the defaults):
# URxvt.keysym.C-plus:     perl:resize-font:bigger
# URxvt.keysym.C-minus:    perl:resize-font:smaller
# URxvt.keysym.C-equal:    perl:resize-font:reset
# URxvt.keysym.C-question: perl:resize-font:show

my $default_font;


sub on_start {
  $default_font = $_[0]->resource('font');
}


sub on_user_command {
  my ($self, $string) = @_;
  if ($string =~ /resize-font:/) {
      my $font = $self->resource('font');
      my $regex = qr"(?!size=)(\d+)";
      if ($string =~ /resize-font:bigger$/) {
        $font =~ s/$regex/$1+1/e;
      }
      elsif ($string =~ /resize-font:smaller$/) {
        $font =~ s/$regex/$1-1/e;
      }
      elsif ($string =~ /resize-font:reset$/) {
        $font = $default_font;
      }
      elsif ($string =~ /resize-font:show$/) {
        my $term = $self->{'term'};
        $term->{'resize-font'}{'overlay'} = {
          ov => $term->overlay_simple (0, -1, $font),
          to => urxvt::timer
          ->new
          ->start (urxvt::NOW + 1)
          ->cb(sub {
              delete $term->{'resize-font'}{'overlay'};
            }),
        };
      }
      $self->cmd_parse(sprintf "\033]710;%s\007", $font);
  }

  ()
}