*** empty log message ***

diff --git a/Changes b/Changes
index e7d94d71afa2cae5ef276f66fe8a456ef7081cc4..c2500173779544a95a0fef07944ea817813dedde 100644 (file)
--- 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 c096caefe880234e2a876a8ebfc09532f84e4d78..644ad7e1e490ded1cfd29c2472872b1b5e65767f 100644 (file)
--- 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 07f493950591b756aa5a248fb6a7c60852e17a26..e653ec10b83417a05b4e75faa2e3d3df002ec99d 100644 (file)
--- 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"