Permalink
Browse files

Revert "fix the two-lines-after-paragraph bug"

This reverts commit 6d56740.  It
was a complete failure, and I am an idiot.
  • Loading branch information...
1 parent 6d56740 commit 7c790ef3ab90f67644be537381229ef681b5fd0c @jrockway committed Dec 14, 2007
Showing with 1 addition and 23 deletions.
  1. +1 −4 lib/Angerwhale/Format/Pod.pm
  2. +0 −19 t/components/pod-format.t
@@ -139,10 +139,9 @@ sub verbatim {
my $line_num = shift;
my $pod_para = shift;
my $text = $pod_para->text;
- return if $text =~ /^\n$/s;
my @lines = split /\n/, $text;
-
+
if ( $lines[0] && $lines[0] =~ m{\s*lang:([^.]+)\s*$} ) {
if ( !defined $1 || !$1 || $1 eq 'undef' ) {
@@ -188,8 +187,6 @@ sub verbatim {
);
my $html = $hl->highlightText($text);
- $html =~ s{<span class="Normal">\n</span><span class="Normal">\s+</span>}{}g;
- warn $html;
$text = \$html;
};
# too verbose and too irrelevant
View
@@ -5,22 +5,3 @@ use warnings;
use Test::More tests => 1;
use ok 'Angerwhale::Format::Pod';
-my $pf = Angerwhale::Format::Pod->new;
-
-=for foo
-
-my $html = $pf->format(<<EOP); # specific case that has caused me some sleep loss
- =pod
-A long time ago, before I knew elisp, someone told me to never use
-C<lexical-let>. I've ignored their "advice" and have written this:
-
- lang:Common Lisp
- (require 'cl)
-
- (defun get-iterator-over-words-in (buffer)
- (lexical-let ((buf buffer)(pos 1))
-
-EOP
-
-use File::Slurp; write_file('/home/jon/t.html', $html);
-=cut

0 comments on commit 7c790ef

Please sign in to comment.