Skip to content

Commit

Permalink
Revert "fix the two-lines-after-paragraph bug"
Browse files Browse the repository at this point in the history
This reverts commit 6d56740.  It
was a complete failure, and I am an idiot.
  • Loading branch information
jrockway committed Dec 14, 2007
1 parent 6d56740 commit 7c790ef
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 23 deletions.
5 changes: 1 addition & 4 deletions lib/Angerwhale/Format/Pod.pm
Expand Up @@ -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' ) {
Expand Down Expand Up @@ -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
Expand Down
19 changes: 0 additions & 19 deletions t/components/pod-format.t
Expand Up @@ -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.