From bbc1ea81d8c93ac58329fa52236000824f490793 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Mon, 27 Sep 2010 22:51:48 -0400
Subject: texpdf, provide line-break-points for long directory names
 (+changelog)

(requested fix)
---
 CHANGELOG_v2                 |  3 +++
 data/doc/sisu/v2/CHANGELOG   |  3 +++
 lib/sisu/v2/texpdf_format.rb | 10 ++++++++++
 3 files changed, 16 insertions(+)

diff --git a/CHANGELOG_v2 b/CHANGELOG_v2
index a07eb06b..030bca7d 100644
--- a/CHANGELOG_v2
+++ b/CHANGELOG_v2
@@ -25,6 +25,9 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_2.7.1.orig.tar.gz
     * texinfo ocn decoration a hash (instead of angle braces
     * texinfo, urls cleaned and with angle bracket decoration
 
+  * texpdf, provide line-break-points for long directory names
+    (requested fix)
+
 %% 2.7.0.orig.tar.gz (2010-09-21:38/2)
 http://www.jus.uio.no/sisu/pkg/src/sisu_2.7.0.orig.tar.gz
   9e9e9695184e09dcf3fadee20e34d92d031c66419e49394de83a56cddd81bcba 2741663 sisu_2.7.0.orig.tar.gz
diff --git a/data/doc/sisu/v2/CHANGELOG b/data/doc/sisu/v2/CHANGELOG
index 8380cc57..d934fbfe 100644
--- a/data/doc/sisu/v2/CHANGELOG
+++ b/data/doc/sisu/v2/CHANGELOG
@@ -25,6 +25,9 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_2.7.1.orig.tar.gz
     * texinfo ocn decoration a hash (instead of angle braces
     * texinfo, urls cleaned and with angle bracket decoration
 
+  * texpdf, provide line-break-points for long directory names
+    (requested fix)
+
 %% 2.7.0.orig.tar.gz (2010-09-21:38/2)
 http://www.jus.uio.no/sisu/pkg/src/sisu_2.7.0.orig.tar.gz
   9e9e9695184e09dcf3fadee20e34d92d031c66419e49394de83a56cddd81bcba 2741663 sisu_2.7.0.orig.tar.gz
diff --git a/lib/sisu/v2/texpdf_format.rb b/lib/sisu/v2/texpdf_format.rb
index 41802557..895fd8d8 100644
--- a/lib/sisu/v2/texpdf_format.rb
+++ b/lib/sisu/v2/texpdf_format.rb
@@ -963,6 +963,16 @@ WOK
       para_array=[]
       str=if word
         word.each do |w| # _ - / # | : ! ^ ~
+          if w !~/http:/ \
+          and w=~/\/\S+?\// \
+          and w.length > 6
+            w.gsub!(/([_.\/])/,'\1\-')
+         #elsif w !~/http:/ \
+         #and w=~/([_,.;:\/|=])/ \
+         #and w.length > 10
+         #  w.gsub!(/([_,.;:\/|=])/,'\1\-')
+         #  w.gsub!(/(--)(\S{4,})/,'\1\-\2')
+          end
           w.gsub!(/#{Mx[:gl_o]}#lt#{Mx[:gl_c]}/,'<'); w.gsub!(/#{Mx[:gl_o]}#gt#{Mx[:gl_c]}/,'>')
           w.gsub!(/[\\]?~/,'<=tilde>')
           w.gsub!(/[#{Mx[:br_line]}#{Mx[:br_paragraph]}]/,' \newline ') #watch
-- 
cgit v1.2.3