fix hyperlinks regex

Alexey-T · Jun 15, 2020 · d4da7b8 · d4da7b8
1 parent 212e1f3
commit d4da7b8
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -330,9 +330,9 @@   TATCaretProps = class
   cHintBookmarkDy = 16;
   cUrlMarkerTag = -100;
 
-  cUrlRegex_Email = '\b\w[\w\-\.]*@\w[\w\-\.]*\.\w{2,}\b';
-  cUrlRegex_WebBegin = 'https?://|ftp://|mailto:|magnet:\?|www\.|ftp\.';
-  cUrlRegex_Web = '\b(' + cUrlRegex_WebBegin + ')\w[\w\.\-\/]*(\?[^<>''"\s]+)?'; //various chars allowed only after path+'?'
+  cUrlRegex_Email = '\b(mailto:)?\w[\w\-\.]*@\w[\w\-\.]*\.\w{2,}\b';
+  cUrlRegex_WebBegin = 'https?://|ftp://|magnet:\?|www\.|ftp\.';
+  cUrlRegex_Web = '\b(' + cUrlRegex_WebBegin + ')\w[\w\.\-\/]*(\?[^<>''"\s]+)?(\#\w*)?'; //various chars allowed only after path+'?'
   cUrlRegexInitial = cUrlRegex_Email + '|' + cUrlRegex_Web;
 
   cTextEditorLocked: string = 'Wait...';

diff --git a/test_files/all.txt b/test_files/all.txt
@@ -1,9 +1,11 @@
-Unicode sample:
+Sample:
 ΓΔΕΘΛΞ √∞∟∩∫
 Ударе́ние 
-Links: http://yahoo.com www.yahoo.com [email protected]
+Full-width: ああえ and ああえ, end
+
+links http://dd.dd#page / www.dd.dd?(param)[param] 
+emails [email protected] / mailto:[email protected]
 
-Jp full-width: ああえ, end
 wwwwwwwwwwwwwwwwwwwwwwwww. wwwwwwww, wwwwwww; wwwww: ..test... www "www...", www,
 wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
 		wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww