kramdown-man 0.1.3 → 0.1.8

data/lib/kramdown/man.rb

@@ -1,4 +1,5 @@
 require 'kramdown'
 
-require 'kramdown/converter/man'
-require 'kramdown/man/version'
+# HACK: load our version of kramdown/converter/man.rb and not kramdown's
+require_relative './converter/man'
+require_relative './man/version'

data/lib/kramdown/man/task.rb

@@ -1,5 +1,5 @@
 require 'kramdown'
-require 'kramdown/converter/man'
+require_relative '../converter/man'
 
 require 'rake/tasklib'
 

data/lib/kramdown/man/version.rb

@@ -1,6 +1,6 @@
 module Kramdown
   module Man
     # kramdown-man version
-    VERSION = "0.1.3"
+    VERSION = "0.1.8"
   end
 end

data/man/kramdown-man.1

@@ -1,23 +1,23 @@
-.\" Generated by kramdown-man 0.1.0
-.\" https://github.com/postmodern/kramdown-roff#readme
+.\" Generated by kramdown-man 0.1.7
+.\" https://github.com/postmodern/kramdown-man#readme
 .TH kramdown-man.1 "April 2013" kramdown-man "User Manuals"
 .LP
 .SH DESCRIPTION
 .LP
 .PP
 A Kramdown
-.UR http://kramdown.rubyforge.org/
-.UE convert for converting Markdown files into man pages.
+.UR http:\[sl]\[sl]kramdown\.gettalong\.org\[sl]
+.UE plugin for converting Markdown files into man pages\.
 .LP
 .SH EXAMPLE
 .LP
 .nf
-require 'kramdown'
-require 'kramdown/man'
+require \(aqkramdown\(aq
+require \(aqkramdown\[sl]man\(aq
 
-doc = Kramdown::Document.new(File.read('man/kramdown\-man.1.md'))
-File.write('man/kramdown\-man.1',doc.to_man)
-system 'man', 'man/kramdown\-man.1'
+doc \[eq] Kramdown::Document\.new(File\.read(\(aqman\[sl]kramdown\-man\.1\.md\(aq))
+File\.write(\(aqman\[sl]kramdown\-man\.1\(aq,doc\.to\[ru]man)
+system \(aqman\(aq, \(aqman\[sl]kramdown\-man\.1\(aq
 .fi
 .LP
 .SH SYNTAX
@@ -25,11 +25,11 @@ system 'man', 'man/kramdown\-man.1'
 .SS FORMATTING
 .LP
 .nf
-`code`
+\`code\`
 .fi
 .LP
 .PP
-\fB\fCcode\fR
+\fBcode\fR
 .LP
 .nf
 *emphasis*
@@ -48,46 +48,53 @@ system 'man', 'man/kramdown\-man.1'
 .SS PARAGRAPHS
 .LP
 .nf
-Normal paragraph.
+Normal paragraph\.
 .fi
 .LP
 .PP
-Normal paragraph.
+Normal paragraph\.
 .LP
 .nf
-`\-\-tagged`
-  Text here.
+\`command\` \[lB]\`\-\-foo\`\[rB] *FILE*
+.fi
+.LP
+.HP
+\fBcommand\fR \[lB]\fB--foo\fR\[rB] \fIFILE\fP
+.LP
+.nf
+\`\-\-tagged\`
+  Text here\.
 .fi
 .LP
 .TP
-\fB\fC--tagged\fR
-Text here.
+\fB--tagged\fR
+Text here\.
 .LP
 .SS LINKS
 .LP
 .nf
-[website](http://example.com/)
+\[lB]website\[rB](http:\[sl]\[sl]example\.com\[sl])
 .fi
 .LP
 .PP
 website
-.UR http://example.com/
+.UR http:\[sl]\[sl]example\.com\[sl]
 .UE
 .LP
 .nf
-[bash](man:bash(1))
+\[lB]bash\[rB](man:bash(1))
 .fi
 .LP
 .PP
 .BR bash (1)
 .LP
 .nf
-Email <bob@example.com>
+Email <bob\[at]example\.com>
 .fi
 .LP
 .PP
 Email 
-.MT bob@example.com
+.MT bob\[at]example\.com
 .ME
 .LP
 .SS LISTS
@@ -135,42 +142,42 @@ extra paragraph
 .SS BLOCKQUOTES
 .LP
 .nf
-> Perfection is achieved, not when there is nothing more to add, but when there is nothing left to take away.
+> Perfection is achieved, not when there is nothing more to add, but when there is nothing left to take away\.
 >
-> \-\-Antoine de Saint\-Exupéry
+> \-\-Antoine de Saint\-Exup\['e]ry
 .fi
 .LP
 .PP
 .RS
-Perfection is achieved, not when there is nothing more to add, but when there is nothing left to take away.
+Perfection is achieved, not when there is nothing more to add, but when there is nothing left to take away\.
 .LP
---Antoine de Saint\-Exupéry
+\-\-Antoine de Saint\-Exup\['e]ry
 .RE
 .LP
 .SS CODE BLOCKS
 .LP
 .nf
-    #include <stdio.h>
+    \[sh]include <stdio\.h>
 
     int main()
-    {
-	    printf("hello world\\n");
+    \[lC]
+	    printf(\[dq]hello world\en\[dq]);
 	    return 0;
-    }
+    \[rC]
 
-#include <stdio.h>
+\[sh]include <stdio\.h>
 
 int main()
-{
-    printf("hello world\\n");
+\[lC]
+    printf(\[dq]hello world\en\[dq]);
     return 0;
-}
+\[rC]
 .fi
 .LP
 .SH AUTHOR
 .LP
 .PP
 Postmodern 
-.MT postmodern.mod3@gmail.com
+.MT postmodern\.mod3\[at]gmail\.com
 .ME
-.LP
+.LP

data/man/kramdown-man.1.md

@@ -2,7 +2,7 @@
 
 ## DESCRIPTION
 
-A [Kramdown][kramdown] convert for converting Markdown files into man pages.
+A [Kramdown][kramdown] plugin for converting Markdown files into man pages.
 
 ## EXAMPLE
 
@@ -35,6 +35,10 @@ A [Kramdown][kramdown] convert for converting Markdown files into man pages.
 
 Normal paragraph.
 
+    `command` [`--foo`] *FILE*
+
+`command` [`--foo`] *FILE*
+
     `--tagged`
       Text here.
 
@@ -120,4 +124,4 @@ Email <bob@example.com>
 
 Postmodern <postmodern.mod3@gmail.com>
 
-[kramdown]: http://kramdown.rubyforge.org/
+[kramdown]: http://kramdown.gettalong.org/

data/spec/kramdown/converter/man_spec.rb

@@ -1,6 +1,8 @@
 # encoding: utf-8
-require 'spec_helper'
-require 'kramdown/converter/man'
+require_relative '../../spec_helper'
+
+# HACK: load our version of kramdown/converter/man.rb and not kramdown's
+require_relative '../../../lib/kramdown/converter/man'
 
 describe Kramdown::Converter::Man do
   let(:markdown) { File.read('man/kramdown-man.1.md') }
@@ -20,13 +22,13 @@ Hello world.
     let(:root) { doc.root }
 
     it "should add the header" do
-      subject.convert(root).should == [
+      expect(subject.convert(root)).to eq([
         described_class::HEADER,
         ".TH Header",
         ".LP",
         ".PP",
-        "Hello world."
-      ].join("\n")
+        'Hello world\.'
+      ].join("\n"))
     end
   end
 
@@ -42,12 +44,12 @@ Hello world.
     let(:root) { doc.root }
 
     it "should convert every element" do
-      subject.convert_root(root).should == [
+      expect(subject.convert_root(root)).to eq([
         ".TH Header",
         ".LP",
         ".PP",
-        "Hello world."
-      ].join("\n")
+        'Hello world\.'
+      ].join("\n"))
     end
   end
 
@@ -56,7 +58,7 @@ Hello world.
     let(:el)  { doc.root.children[0] }
 
     it "should convert the element based on it's type" do
-      subject.convert_element(el).should == subject.convert_codeblock(el)
+      expect(subject.convert_element(el)).to eq(subject.convert_codeblock(el))
     end
   end
 
@@ -65,7 +67,7 @@ Hello world.
     let(:blank) { doc.root.children[0].children[1] }
 
     it "should convert blank elements to '.LP'" do
-      subject.convert_blank(blank).should == '.LP'
+      expect(subject.convert_blank(blank)).to eq('.LP')
     end
   end
 
@@ -75,7 +77,23 @@ Hello world.
     let(:text)    { doc.root.children[0].children[0] }
 
     it "should convert text elements" do
-      subject.convert_text(text).should == content
+      expect(subject.convert_text(text)).to eq(content)
+    end
+
+    context "when the text has two-space indentation" do
+      let(:content) { "Foo\n  bar\n  baz" }
+
+      it "should strip leading whitespace from each line" do
+        expect(subject.convert_text(text)).to eq(content.gsub("\n  ","\n"))
+      end
+    end
+
+    context "when the text has tab indentation" do
+      let(:content) { "Foo\n\tbar\n\tbaz" }
+
+      it "should strip leading whitespace from each line" do
+        expect(subject.convert_text(text)).to eq(content.gsub("\n\t","\n"))
+      end
     end
   end
 
@@ -84,8 +102,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new("-- foo")     }
       let(:sym) { doc.root.children[0].children[0] }
 
-      it "should convert ndash symbols back into '--'" do
-        subject.convert_typographic_sym(sym).should == '--'
+      it "should convert ndash symbols back into '\-\-'" do
+        expect(subject.convert_typographic_sym(sym)).to eq("\\-\\-")
       end
     end
 
@@ -93,8 +111,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new("--- foo") }
       let(:sym) { doc.root.children[0].children[0]  }
 
-      it "should convert mdash symbols into '—'" do
-        subject.convert_typographic_sym(sym).should == '—'
+      it "should convert mdash symbols into '\[em]'" do
+        expect(subject.convert_typographic_sym(sym)).to eq('\[em]')
       end
     end
 
@@ -102,8 +120,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new("... foo") }
       let(:sym) { doc.root.children[0].children[0]  }
 
-      it "should convert mdash symbols into '…'" do
-        subject.convert_typographic_sym(sym).should == '…'
+      it "should convert mdash symbols into '\\.\\.\\.'" do
+        expect(subject.convert_typographic_sym(sym)).to eq('\.\.\.')
       end
     end
 
@@ -111,8 +129,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new("<< foo") }
       let(:sym) { doc.root.children[0].children[0]  }
 
-      it "should convert mdash symbols into '«'" do
-        subject.convert_typographic_sym(sym).should == '«'
+      it "should convert mdash symbols into '\[Fo]'" do
+        expect(subject.convert_typographic_sym(sym)).to eq('\[Fo]')
       end
     end
 
@@ -120,8 +138,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new("foo >> bar") }
       let(:sym) { doc.root.children[0].children[1]  }
 
-      it "should convert mdash symbols into '»'" do
-        subject.convert_typographic_sym(sym).should == '»'
+      it "should convert mdash symbols into '\[Fc]'" do
+        expect(subject.convert_typographic_sym(sym)).to eq('\[Fc]')
       end
     end
 
@@ -129,8 +147,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new(" << foo") }
       let(:sym) { doc.root.children[0].children[0]  }
 
-      it "should convert mdash symbols into '«'" do
-        subject.convert_typographic_sym(sym).should == '«'
+      it "should convert mdash symbols into '\[Fo]'" do
+        expect(subject.convert_typographic_sym(sym)).to eq('\[Fo]')
       end
     end
 
@@ -138,8 +156,8 @@ Hello world.
       let(:doc) { Kramdown::Document.new("foo  >> bar") }
       let(:sym) { doc.root.children[0].children[1]  }
 
-      it "should convert mdash symbols into '»'" do
-        subject.convert_typographic_sym(sym).should == '»'
+      it "should convert mdash symbols into '\[Fc]'" do
+        expect(subject.convert_typographic_sym(sym)).to eq('\[Fc]')
       end
     end
   end
@@ -149,8 +167,8 @@ Hello world.
       let(:doc)   { Kramdown::Document.new("'hello world'") }
       let(:quote) { doc.root.children[0].children.first }
 
-      it "should convert lsquo quotes into '‘'" do
-        subject.convert_smart_quote(quote).should == '‘'
+      it "should convert lsquo quotes into '\[oq]'" do
+        expect(subject.convert_smart_quote(quote)).to eq('\[oq]')
       end
     end
 
@@ -158,8 +176,8 @@ Hello world.
       let(:doc)   { Kramdown::Document.new("'hello world'") }
       let(:quote) { doc.root.children[0].children.last }
 
-      it "should convert rsquo quotes into '’'" do
-        subject.convert_smart_quote(quote).should == '’'
+      it "should convert rsquo quotes into '\[cq]'" do
+        expect(subject.convert_smart_quote(quote)).to eq('\[cq]')
       end
     end
 
@@ -167,8 +185,8 @@ Hello world.
       let(:doc)   { Kramdown::Document.new('"hello world"') }
       let(:quote) { doc.root.children[0].children.first }
 
-      it "should convert lsquo quotes into '“'" do
-        subject.convert_smart_quote(quote).should == '“'
+      it "should convert lsquo quotes into '\[lq]'" do
+        expect(subject.convert_smart_quote(quote)).to eq('\[lq]')
       end
     end
 
@@ -176,8 +194,8 @@ Hello world.
       let(:doc)   { Kramdown::Document.new('"hello world"') }
       let(:quote) { doc.root.children[0].children.last }
 
-      it "should convert lsquo quotes into '”'" do
-        subject.convert_smart_quote(quote).should == '”'
+      it "should convert lsquo quotes into '\[rq]'" do
+        expect(subject.convert_smart_quote(quote)).to eq('\[rq]')
       end
     end
   end
@@ -188,7 +206,7 @@ Hello world.
       let(:header) { doc.root.children[0] }
 
       it "should convert level 1 headers into '.TH text'" do
-        subject.convert_header(header).should == ".TH Header"
+        expect(subject.convert_header(header)).to eq(".TH Header")
       end
     end
 
@@ -197,7 +215,7 @@ Hello world.
       let(:header) { doc.root.children[0] }
 
       it "should convert level 2 headers into '.SH text'" do
-        subject.convert_header(header).should == ".SH Header"
+        expect(subject.convert_header(header)).to eq(".SH Header")
       end
     end
 
@@ -206,7 +224,7 @@ Hello world.
       let(:header) { doc.root.children[0] }
 
       it "should convert level 2 headers into '.SS text'" do
-        subject.convert_header(header).should == ".SS Header"
+        expect(subject.convert_header(header)).to eq(".SS Header")
       end
     end
 
@@ -215,7 +233,7 @@ Hello world.
       let(:header) { doc.root.children[0] }
 
       it "should convert level 2 headers into '.SS text'" do
-        subject.convert_header(header).should == ".SS Header"
+        expect(subject.convert_header(header)).to eq(".SS Header")
       end
     end
   end
@@ -225,7 +243,7 @@ Hello world.
     let(:hr)  { doc.root.children[0] }
 
     it "should convert hr elements into '.ti 0\\n\\\\l'\\\\n(.lu\\''" do
-      subject.convert_hr(hr).should == ".ti 0\n\\l'\\n(.lu'"
+      expect(subject.convert_hr(hr)).to eq(".ti 0\n\\l'\\n(.lu'")
     end
   end
 
@@ -236,14 +254,14 @@ Hello world.
     let(:ul)    { doc.root.children[0] }
 
     it "should convert ul elements into '.RS\\n...\\n.RE'" do
-      subject.convert_ul(ul).should == [
+      expect(subject.convert_ul(ul)).to eq([
         ".RS",
         ".IP \\(bu 2",
         text1,
         ".IP \\(bu 2",
         text2,
         ".RE"
-      ].join("\n")
+      ].join("\n"))
     end
   end
 
@@ -253,7 +271,7 @@ Hello world.
     let(:li)   { doc.root.children[0].children[0]    }
 
     it "should convert the first p element to '.IP \\\\(bu 2\\n...'" do
-      subject.convert_ul_li(li).should == ".IP \\(bu 2\n#{text}"
+      expect(subject.convert_ul_li(li)).to eq(".IP \\(bu 2\n#{text}")
     end
 
     context "with multiple multiple paragraphs" do
@@ -262,12 +280,12 @@ Hello world.
       let(:doc)   { Kramdown::Document.new("* #{text1}\n\n  #{text2}") }
 
       it "should convert the other p elements to '.IP \\\\( 2\\n...'" do
-        subject.convert_ul_li(li).should == [
+        expect(subject.convert_ul_li(li)).to eq([
           ".IP \\(bu 2",
           text1,
           ".IP \\( 2",
           text2
-        ].join("\n")
+        ].join("\n"))
       end
     end
   end
@@ -279,7 +297,7 @@ Hello world.
     let(:ol)    { doc.root.children[0] }
 
     it "should convert ol elements into '.RS\\n...\\n.RE'" do
-      subject.convert_ol(ol).should == [
+      expect(subject.convert_ol(ol)).to eq([
         ".nr step1 0 1",
         ".RS",
         ".IP \\n+[step1]",
@@ -287,7 +305,7 @@ Hello world.
         ".IP \\n+[step1]",
         text2,
         ".RE"
-      ].join("\n")
+      ].join("\n"))
     end
   end
 
@@ -297,7 +315,7 @@ Hello world.
     let(:li)   { doc.root.children[0].children[0]     }
 
     it "should convert the first p element to '.IP \\\\n+[step0]\\n...'" do
-      subject.convert_ol_li(li).should == ".IP \\n+[step0]\n#{text}"
+      expect(subject.convert_ol_li(li)).to eq(".IP \\n+[step0]\n#{text}")
     end
 
     context "with multiple multiple paragraphs" do
@@ -306,14 +324,12 @@ Hello world.
       let(:doc)   { Kramdown::Document.new("1. #{text1}\n\n   #{text2}") }
 
       it "should convert the other p elements to '.IP \\\\n\\n...'" do
-        p li
-
-        subject.convert_ol_li(li).should == [
+        expect(subject.convert_ol_li(li)).to eq([
           ".IP \\n+[step0]",
           text1,
           ".IP \\n",
           text2
-        ].join("\n")
+        ].join("\n"))
       end
     end
   end
@@ -325,27 +341,29 @@ Hello world.
     let(:abbreviation) { doc.root.children[0].children[1] }
 
     it "should convert abbreviation elements into their text" do
-      subject.convert_abbreviation(abbreviation).should == acronym
+      expect(subject.convert_abbreviation(abbreviation)).to eq(acronym)
     end
   end
 
   describe "#convert_blockquote" do
-    let(:text)       { "Some quote." }
-    let(:doc)        { Kramdown::Document.new("> #{text}") }
-    let(:blockquote) { doc.root.children[0] }
+    let(:text)         { "Some quote." }
+    let(:escaped_text) { 'Some quote\.' }
+    let(:doc)          { Kramdown::Document.new("> #{text}") }
+    let(:blockquote)   { doc.root.children[0] }
 
     it "should convert blockquote elements into '.PP\\n.RS\\ntext...\\n.RE'" do
-      subject.convert_blockquote(blockquote).should == ".PP\n.RS\n#{text}\n.RE"
+      expect(subject.convert_blockquote(blockquote)).to eq(".PP\n.RS\n#{escaped_text}\n.RE")
     end
   end
 
   describe "#convert_codeblock" do
-    let(:code)      { "puts 'hello world'" }
-    let(:doc)       { Kramdown::Document.new("    #{code}\n") }
-    let(:codeblock) { doc.root.children[0] }
+    let(:code)         { "puts 'hello world'" }
+    let(:escaped_code) { 'puts \(aqhello world\(aq' }
+    let(:doc)          { Kramdown::Document.new("    #{code}\n") }
+    let(:codeblock)    { doc.root.children[0] }
 
     it "should convert codeblock elements into '.nf\\ntext...\\n.fi'" do
-      subject.convert_codeblock(codeblock).should == ".nf\n#{code}\n.fi"
+      expect(subject.convert_codeblock(codeblock)).to eq(".nf\n#{escaped_code}\n.fi")
     end
   end
 
@@ -355,36 +373,100 @@ Hello world.
     let(:comment) { doc.root.children[0] }
 
     it "should convert comment elements into '.\\\" text...'" do
-      subject.convert_comment(comment).should == ".\\\" #{text}"
+      expect(subject.convert_comment(comment)).to eq(".\\\" #{text}")
     end
   end
 
   describe "#convert_p" do
-    let(:text) { "Hello world." }
-    let(:doc)  { Kramdown::Document.new(text) }
-    let(:p)    { doc.root.children[0] }
+    let(:text)         { "Hello world." }
+    let(:escaped_text) { 'Hello world\.' }
+    let(:doc)          { Kramdown::Document.new(text) }
+    let(:p)            { doc.root.children[0] }
 
     it "should convert p elements into '.PP\\ntext'" do
-      subject.convert_p(p).should == ".PP\n#{text}"
+      expect(subject.convert_p(p)).to eq(".PP\n#{escaped_text}")
     end
 
-    context "when the second line is indented with two spaces" do
+    context "when the paragraph starts with a codespan element" do
       let(:option) { '--foo' }
       let(:text)   { 'Foo bar baz' }
-      let(:doc)    { Kramdown::Document.new("`#{option}`\n  #{text}") }
+      let(:doc)    { Kramdown::Document.new("`#{option}`\n\t#{text}") }
+
+      it "should convert p elements into '.TP\\n\\fB--option\\fR\\ntext...'" do
+        expect(subject.convert_p(p)).to eq(".TP\n\\fB#{option}\\fR\n#{text}")
+      end
+
+      context "when there is only one codespan element" do
+        let(:code) { 'code' }
+        let(:doc)  { Kramdown::Document.new("`#{code}`") }
+
+        it "should convert p elements into '.PP\\n\\fB...\\fR'" do
+          expect(subject.convert_p(p)).to eq(".PP\n\\fB#{code}\\fR")
+        end
+      end
+
+      context "when there are more than one codespan element" do
+        let(:flag)   { '-f'    }
+        let(:option) { '--foo' }
+        let(:text)   { 'Foo bar baz' }
+        let(:doc)    { Kramdown::Document.new("`#{flag}`, `#{option}`\n\t#{text}") }
+
+        it "should convert p elements into '.TP\\n\\fB-o\\fR, \\fB--option\\fR\\ntext...'" do
+          expect(subject.convert_p(p)).to eq(".TP\n\\fB#{flag}\\fR, \\fB#{option}\\fR\n#{text}")
+        end
+
+        context "when there is no newline" do
+          let(:doc) { Kramdown::Document.new("`#{flag}` `#{option}`") }
 
-      it "should convert p elements into '.TP\\n\\fB\\fC--option\\fR\\ntext...'" do
-        subject.convert_p(p).should == ".TP\n\\fB\\fC#{option}\\fR\n#{text}"
+          it "should convert the p element into a '.HP\\n...'" do
+            expect(subject.convert_p(p)).to eq(".HP\n\\fB#{flag}\\fR \\fB#{option}\\fR")
+          end
+        end
       end
     end
 
-    context "when the second line is indented with a tab" do
-      let(:option) { '--foo' }
-      let(:text)   { 'Foo bar baz' }
-      let(:doc)    { Kramdown::Document.new("`#{option}`\n\t#{text}") }
+    context "when the paragraph starts with a em element" do
+      let(:option)         { '--foo'       }
+      let(:escaped_option) { "\\-\\-foo"   }
+      let(:text)           { 'Foo bar baz' }
+
+      let(:doc) do
+        Kramdown::Document.new("*#{option}*\n\t#{text}")
+      end
 
-      it "should convert p elements into '.TP\\n\\fB\\fC--option\\fR\\ntext...'" do
-        subject.convert_p(p).should == ".TP\n\\fB\\fC#{option}\\fR\n#{text}"
+      it "should convert p elements into '.TP\\n\\fI--option\\fP\\ntext...'" do
+        expect(subject.convert_p(p)).to eq(".TP\n\\fI#{escaped_option}\\fP\n#{text}")
+      end
+
+      context "when there is only one em element" do
+        let(:text)   { 'foo' }
+        let(:doc)    { Kramdown::Document.new("*#{text}*") }
+
+        it "should convert p elements into '.PP\\n\\fI...\\fP'" do
+          expect(subject.convert_p(p)).to eq(".PP\n\\fI#{text}\\fP")
+        end
+      end
+
+      context "when there are more than one em element" do
+        let(:flag)           { '-f'          }
+        let(:escaped_flag)   { "\\-f"        }
+        let(:text)           { 'Foo bar baz' }
+
+        let(:doc) do
+          Kramdown::Document.new("*#{flag}*, *#{option}*\n\t#{text}")
+        end
+
+        it "should convert p elements into '.TP\\n\\fI-o\\fP, \\fI\\-\\-option\\fP\\ntext...'" do
+          expect(subject.convert_p(p)).to eq(".TP\n\\fI#{escaped_flag}\\fP, \\fI#{escaped_option}\\fP\n#{text}")
+        end
+
+        context "when there is no newline" do
+          let(:doc) { Kramdown::Document.new("*#{flag}* *#{option}*") }
+
+          it "should convert the p element into a '.HP\\n...'" do
+            expect(subject.convert_p(p)).to eq(".HP\n\\fI#{escaped_flag}\\fP \\fI#{escaped_option}\\fP")
+          end
+        end
       end
     end
   end
@@ -395,7 +477,7 @@ Hello world.
     let(:em)   { doc.root.children[0].children[0] }
 
     it "should convert em elements into '\\fItext\\fP'" do
-      subject.convert_em(em).should == "\\fI#{text}\\fP"
+      expect(subject.convert_em(em)).to eq("\\fI#{text}\\fP")
     end
   end
 
@@ -405,7 +487,7 @@ Hello world.
     let(:strong) { doc.root.children[0].children[0] }
 
     it "should convert strong elements into '\\fBtext\\fP'" do
-      subject.convert_strong(strong).should == "\\fB#{text}\\fP"
+      expect(subject.convert_strong(strong)).to eq("\\fB#{text}\\fP")
     end
   end
 
@@ -414,36 +496,37 @@ Hello world.
     let(:doc)      { Kramdown::Document.new("`#{code}`") }
     let(:codespan) { doc.root.children[0].children[0] }
 
-    it "should convert codespan elements into '\\fB\\fCcode\\fR'" do
-      subject.convert_codespan(codespan).should == "\\fB\\fC#{code}\\fR"
+    it "should convert codespan elements into '\\fBcode\\fR'" do
+      expect(subject.convert_codespan(codespan)).to eq("\\fB#{code}\\fR")
     end
   end
 
   describe "#convert_a" do
-    let(:text) { 'example'             }
-    let(:href) { 'http://example.com/' }
-    let(:doc)  { Kramdown::Document.new("[#{text}](#{href})") }
-    let(:link) { doc.root.children[0].children[0] }
+    let(:text)         { 'example'             }
+    let(:href)         { 'http://example.com/' }
+    let(:escaped_href) { 'http:\[sl]\[sl]example\.com\[sl]' }
+    let(:doc)          { Kramdown::Document.new("[#{text}](#{href})") }
+    let(:link)         { doc.root.children[0].children[0] }
 
     it "should convert a link elements into 'text\\n.UR href\\n.UE'" do
-      subject.convert_a(link).should == "#{text}\n.UR #{href}\n.UE"
+      expect(subject.convert_a(link)).to eq("#{text}\n.UR #{escaped_href}\n.UE")
     end
 
     context "when the href begins with mailto:" do
-      let(:text)  { 'Bob'             }
-      let(:email) { 'bob@example.com' }
-      let(:doc)   { Kramdown::Document.new("[#{text}](mailto:#{email})") }
+      let(:text)          { 'Bob'             }
+      let(:email)         { 'bob@example.com' }
+      let(:escaped_email) { 'bob\[at]example\.com' }
+      let(:doc)           { Kramdown::Document.new("[#{text}](mailto:#{email})") }
 
       it "should convert the link elements into '.MT email\\n.ME'" do
-        subject.convert_a(link).should == "#{text}\n.MT #{email}\n.ME"
+        expect(subject.convert_a(link)).to eq("#{text}\n.MT #{escaped_email}\n.ME")
       end
 
       context "when link is <email>" do
-        let(:email) { 'bob@example.com' }
-        let(:doc)   { Kramdown::Document.new("<#{email}>") }
+        let(:doc) { Kramdown::Document.new("<#{email}>") }
 
         it "should convert the link elements into '.MT email\\n.ME'" do
-          subject.convert_a(link).should == "\n.MT #{email}\n.ME"
+          expect(subject.convert_a(link)).to eq("\n.MT #{escaped_email}\n.ME")
         end
       end
     end
@@ -453,7 +536,7 @@ Hello world.
       let(:doc)  { Kramdown::Document.new("[#{man}](man:#{man})") }
 
       it "should convert the link elements into '.BR man'" do
-        subject.convert_a(link).should == "\n.BR #{man}"
+        expect(subject.convert_a(link)).to eq("\n.BR #{man}")
       end
 
       context "when a section number is specified" do
@@ -461,19 +544,19 @@ Hello world.
         let(:doc)     { Kramdown::Document.new("[#{man}](man:#{man}(#{section}))") }
 
         it "should convert the link elements into '.BR man (section)'" do
-          subject.convert_a(link).should == "\n.BR #{man} (#{section})"
+          expect(subject.convert_a(link)).to eq("\n.BR #{man} (#{section})")
         end
       end
     end
   end
 
   describe "#escape" do
-    it "should escape '\\' as '\\\\'" do
-      subject.escape("hello\\ world").should == "hello\\\\ world"
-    end
+    let(:text) { "hello\nworld" }
 
-    it "should escape '-' as '\\-'" do
-      subject.escape("foo-bar").should == "foo\\-bar"
+    described_class::GLYPHS.each do |char,glyph|
+      it "should convert #{char.dump} into #{glyph.dump}" do
+        expect(subject.escape("#{text} #{char}")).to eq("#{text} #{glyph}")
+      end
     end
   end
 end