-- 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: 24729f43951031ffac2a4d64fbc4fab6d8a0549e:
path_to:
revision_to:

commit 24729f43951031ffac2a4d64fbc4fab6d8a0549e
Author: Marc Lehmann <schmorp@schmorp.de>
Date:   Tue Jan 10 21:20:53 2006 +0000

    *** empty log message ***

diff --git a/Changes b/Changes

--- a/Changes
+++ b/Changes
@@ -9,7 +9,8 @@ WISH: OnTheSpot editing, or maybe switch to miiiiiiif
 WISH: just for fun, do shade and tint with XRender.
 WISH: support tex fonts

-TODO: urxvt::popup is undocumented
+TODO: resources! resources! resources!
+TODO: better environment handling in rxvt/xim etc. and urxvt::term->new
 	- added sections for DISTRIBUTION MAINTAINERS and about
           SETUID/SETGID to the FAQ.
         - selection, searchable-scrollback, selection-popup and
@@ -30,6 +31,7 @@ TODO: urxvt::popup is undocumented
         - built-in (as opposed to terminfos) visual bell was broken/too fast.
         - applied minor cleanups by Ladislav Michnovic.
         - applied better configure support for openpty by Emanuele Giaquinta.
+        - mark-urls launch-on-click by jepler.

 6.3  Wed Jan  4 22:37:10 CET 2006
         - SECURITY FIX: on systems using openpty, permissions were
diff --git a/src/perl/mark-urls b/src/perl/mark-urls

--- a/src/perl/mark-urls
+++ b/src/perl/mark-urls
@@ -4,14 +4,14 @@
 my $url =
    qr{(
       (?:https?|ftp|news|mailto|file)://[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~]+
-      [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27(),~]   # do not include a trailing dot, its wrong too often
+      [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27()~]   # exclude some trailing characters (heuristic)
    )}x;

 sub on_line_update {
-   my ($term, $row) = @_;
+   my ($self, $row) = @_;

    # fetch the line that has changed
-   my $line = $term->line ($row);
+   my $line = $self->line ($row);
    my $text = $line->t;

    # find all urls (if any)
@@ -29,3 +29,22 @@ sub on_line_update {
    ()
 }

+# needs confgiurability TODO
+#sub on_button_press {
+#    my ($self, $event) = @_;
+#    my $row = $event->{row};
+#    my $col =  $event->{col};
+#
+#    my $line = $self->line ($row);
+#    my $text = $line->t;
+#
+#    while($text =~ /$url/g) {
+#        #print "... " . ($-[0]
+#        if ($-[0] <= $col && $+[0] >= $col) {
+#            system "firefox \Q$1\E &";
+#            return 1;
+#        }
+#    }
+#    ()
+#}
+
diff --git a/src/perl/selection b/src/perl/selection

--- a/src/perl/selection
+++ b/src/perl/selection
@@ -14,7 +14,7 @@ my @mark_patterns = (
    # urls, just a heuristic
    qr{(
       (?:https?|ftp|news|mailto|file)://[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~]+
-      [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27(),~]   # do not include a trailing dot, its wrong too often
+      [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27()~]   # exclude some trailing characters (heuristic)
    )}x,

    # common "parentheses"

-- Response ended

-- Page fetched on Sun Jun 2 10:40:33 2024