From f9fb402000465b36c2be03ca3d61c8820d7d9169 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Mon, 12 May 2014 22:54:25 -0400
Subject: v6: texpdf, mailto markup links set for normal text objects

* (Closes: #744357) but testing required
---
 data/doc/sisu/CHANGELOG_v6   | 3 +++
 lib/sisu/v6/texpdf_format.rb | 4 ++--
 sisu.org                     | 7 ++++++-
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/data/doc/sisu/CHANGELOG_v6 b/data/doc/sisu/CHANGELOG_v6
index b6522a34..445328ab 100644
--- a/data/doc/sisu/CHANGELOG_v6
+++ b/data/doc/sisu/CHANGELOG_v6
@@ -75,6 +75,9 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_6.0.5.orig.tar.xz
   instead of typewriter, latex default
   (Closes: #744353)
 
+* texpdf, mailto markup links set for normal text objects
+  (Closes: #744357) but testing required
+
 * texpdf, & in heading breaks toc, now & is removed from toc not heading,
   broken
 
diff --git a/lib/sisu/v6/texpdf_format.rb b/lib/sisu/v6/texpdf_format.rb
index eab84823..a0955478 100644
--- a/lib/sisu/v6/texpdf_format.rb
+++ b/lib/sisu/v6/texpdf_format.rb
@@ -69,8 +69,8 @@ module SiSU_TeX_Pdf
       @brace_url=SiSU_Viz::Defaults.new.url_decoration
     end
     def bare_urls
-      @dob.obj=@dob.obj.gsub(/#{Mx[:url_o]}([a-zA-Z0-9._-]+\@\S+?\.[a-zA-Z0-9._-]+)#{Mx[:url_c]}/,
-          "#{@brace_url.tex_open}\\1</a>#{@brace_url.tex_close}")
+      @dob.obj=@dob.obj.gsub(/#{Mx[:url_o]}([a-zA-Z0-9._-]+\@[a-zA-Z0-9_-]+?\.[a-zA-Z0-9._-]+)#{Mx[:url_c]}/,
+         "#{@brace_url.tex_open}\\begin{scriptsize}\\email{\\1}#{@brace_url.tex_close}")
       @dob.tmp=@dob.tmp.gsub(/(^|[^\\])_/m,'\1\_'). #watch may not work
         gsub(/(^|[^#{Mx[:lnk_c]}])#{Mx[:url_o]}_?(?:\\?_)?(\S+?)#{Mx[:url_c]}/m,
           "\\1#{@brace_url.tex_open}\\begin{scriptsize}\\url{\\2}\\end{scriptsize}#{@brace_url.tex_close}")
diff --git a/sisu.org b/sisu.org
index 5a68959d..950d0514 100644
--- a/sisu.org
+++ b/sisu.org
@@ -1315,7 +1315,7 @@ if <br /> is still used there should be a space after the url - which sisu shoul
 would like to close without further action
 re-open if necessary
 
-**** TODO [#C] #744357 [w|u] sisu output: please create mailto links automatically
+**** DONE (6.0.5) [#C] #744357 [w|u] sisu output: please create mailto links automatically
       <https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=744357>
 
 From: Daniel Baumann <daniel.baumann@progress-technologies.net>
@@ -1340,6 +1340,11 @@ please also create mailto links when using email adresses like:
 Regards,
 Daniel
 
+***** NOTES/COMMENTS
+
+for pdf fix/implement mailto links
+done but requires further testing & possibly refinement
+
 **** DONE (6.0.5) [#C] #744358 [w|u] sisu output: please do not add ';' after \:copyright: :output:fix:
       <https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=744358>
 
-- 
cgit v1.2.3