先日、
【MovableType】Tidy を使って HTML を整形するプラグイン | blog.delphinus.dev
を書いたが、littlebuddhaさんからうまくインストールできないという話を受けてこちらでも追試。

すると……、あれ？こけた？

$ make test

～省略～

Test Summary Report
-------------------
t/ignore-text.t    (Wstat: 256 Tests: 3 Failed: 1)
  Failed test:  3
  Non-zero exit status: 1
t/ignore.t         (Wstat: 256 Tests: 7 Failed: 1)
  Failed test:  3
  Non-zero exit status: 1
t/levels.t         (Wstat: 256 Tests: 3 Failed: 1)
  Failed test:  3
  Non-zero exit status: 1
Files=20, Tests=80,  1 wallclock secs ( 0.09 usr  0.08 sys +  0.65 cusr  0.16 csys =  0.98 CPU)
Result: FAIL
Failed 3/20 test programs. 3/80 subtests failed.
make: *** [test_dynamic] Error 255

前に試したときはうまくいったと思ったが、どうやら気のせいだったらしい。エラーも訳がわからないので放置していたところ、littlebuddhaさんから更に情報があった。

Bug #29593 for HTML-Tidy: [PATCH] fixing coredumps in 1.08

http://rt.cpan.org/Public/Bug/Display.html?id=29593

このパッチを当てると上記のエラーも消え、すんなりインストールが完了した。

MovableType の生成する HTML から余分な空行を除き、ついでに色々整形してくれる便利なプラグイン Source Code Cleanerを導入してみた。

Source Code Cleaner（ソースコード・クリーナー） – Movable Type プラグイン – かたつむりくんのWWW

http://www.tinybeans.net/blog/download/mt-plugin/source-code-cleaner.html

しかし、「外部リンクに class を追加する」機能がうまく働かない。外部どころか全てのリンクに class が追加されてしまうのだ。ソースを読んでみると、外部リンクを判定するときに、頭に「http」が付いたものを全て外部リンク認定していることがわかったので、（勝手に）改良してみますた。href 属性の前後に改行があるとうまく動かなかったので訂正。

差分

*** SourceCodeCleaner.pl.orig   2009-06-23 13:32:20.000000000 +0900
--- SourceCodeCleaner.pl        2010-02-27 04:17:25.000000000 +0900
***************
*** 2,7 ****
--- 2,8 ----

  use strict;
  use base qw( MT::Plugin );
+ use MT::Blog;

  my $plugin = MT::Plugin::SourceCodeCleaner->new({
      id          => 'sourcecodecleaner',
***************
*** 126,134 ****
                }

                # Attribute : external link class
                if ($option_exlink) {
!                       $$content_ref =~ s/<a[^>]*href="http[^"]*"[^>]*>/external_link($&)/ge;
!
                }

                # Element : pre - escape
--- 127,137 ----
                }

                # Attribute : external link class
+         ( my $base = MT::Blog->load( $blog_id )->site_url ) =~ s!https?://!!;
+         $base =~ s!(?=\.)!\\!g;
+         my $a_tag_re = qr+<a[^>]*href\s*=\s*"(?:ht|f)tps?://(?!$base)[^"]*"[^>]*>+;
                if ($option_exlink) {
!                       $$content_ref =~ s/$a_tag_re/external_link($&)/ge;
                }

                # Element : pre - escape

Continue reading →