From 37417ec34bec9ea97477a13b7041d48c49d322ad Mon Sep 17 00:00:00 2001
From: root <root>
Date: Tue, 10 Jan 2006 21:20:53 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes            |  4 +++-
 src/perl/mark-urls | 25 ++++++++++++++++++++++---
 src/perl/selection |  2 +-
 3 files changed, 26 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index e7d94d71..c2500173 100644
--- 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
index c096caef..644ad7e1 100644
--- 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
index 07f49395..e653ec10 100644
--- 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"
-- 
2.34.1