-- Leo's gemini proxy

-- Connecting to git.thebackupbox.net:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini

repo: rxvt-unicode-sixel
action: commit
revision:
path_from:
revision_from: 7a24e75173448c7d2efa54b462b4500ae925b088:
path_to:
revision_to:

commit 7a24e75173448c7d2efa54b462b4500ae925b088
Author: Marc Lehmann <schmorp@schmorp.de>
Date:   Sat Mar 4 23:07:30 2006 +0000

    *** empty log message ***

diff --git a/src/perl/automove-background b/src/perl/automove-background

--- a/src/perl/automove-background
+++ b/src/perl/automove-background
@@ -1,5 +1,14 @@
 #! perl

+sub xy {
+   my ($self) = @_;
+
+   $self->XTranslateCoordinates (
+      $self->vt, $self->DefaultRootWindow,
+      0, 0
+   )
+}
+
 sub on_osc_seq {
    my ($self, $op, $args) = @_;

@@ -10,6 +19,7 @@ sub on_osc_seq {
             $self->vt, $self->DefaultRootWindow,
             0, 0
          );
+         my ($x, $y) = $self->xy;
          $self->cmd_parse ("\033]20;$pic;=+$x+$y\007");
          return 1;
       }
@@ -21,10 +31,7 @@ sub on_osc_seq {
 sub on_configure_notify {
    my ($self, $event) = @_;

-   my ($x, $y) = $self->XTranslateCoordinates (
-      $self->vt, $self->DefaultRootWindow,
-      0, 0
-   );
+   my ($x, $y) = $self->xy;

    $self->cmd_parse ("\033]20;;=+$x+$y\007");

-- Response ended

-- Page fetched on Sun Jun 2 13:39:14 2024