texpdf, bullet text, hanging indent, fix

(works for regular text (not grouped text)

(requested fix, Ben Armstrong)

1 files changed, 32 insertions, 1 deletions

diff --git a/lib/sisu/v2/texpdf_format.rb b/lib/sisu/v2/texpdf_format.rb
index 36366c9b..9ebef9dc 100644
--- a/lib/sisu/v2/texpdf_format.rb
+++ b/lib/sisu/v2/texpdf_format.rb
@@ -295,7 +295,27 @@ module SiSU_TeX_Pdf
       when /8/; '70mm'
       when /9/; '80mm'
       end
-      "\\begin{ParagraphIndent}{#{indent}}#{@dob.tmp} \\end{ParagraphIndent}}" #"\\begin{ParagraphIndent}{#{indent}}#{@dob.tmp}\\end{ParagraphIndent}}"
+      "\\begin{ParagraphIndent}{#{indent}}#{@dob.tmp} \\end{ParagraphIndent}}"
+    end
+    def bullet
+      blt=if @dob.indent
+        indent=case @dob.indent
+        when /1/; '0em'
+        when /2/; '1.0em'
+        when /3/; '2.0em'
+        when /4/; '3.0em'
+        when /5/; '4.0em'
+        when /6/; '5.0em'
+        when /7/; '6.0em'
+        when /8/; '7.0em'
+        when /9/; '8.0em'
+        else      '-1.0em'
+        end
+        "\\begin{Bullet}{#{indent}}$\\txtbullet$\\hspace{\\enspace}#{@dob.tmp}\\end{Bullet}"
+      else
+        "\\begin{Bullet}{-5mm}$\\txtbullet$\\hspace{\\enspace}#{@dob.tmp}\\end{Bullet}"
+      end
+      blt
     end
     def symbol_graphic
       dir=SiSU_Env::Info_env.new(@md.fns)
@@ -918,6 +938,17 @@ WOK
 \\item[]
 }
 {\\end{list}}
+\\newenvironment{Bullet}[1]%
+{
+\\begin{list}{}{%
+\\setlength\\topsep{0pt}%
+\\addtolength{\\leftmargin}{#1}
+\\itemindent=-1em
+\\setlength\\parsep{0pt plus 1pt}%
+}
+\\item[]
+}
+{\\end{list}}
 \\usepackage{fancyhdr}
 \\lhead{}
 \\renewcommand{\\part}{\\\@startsection