Flickr の embed コードを XML valid にする EmacsLisp

Flickr で生成した embed コードは XML valid じゃないので、Emacs の nXML モードが文句を言う。邪魔なので、修正する elisp を書いた。

(while (search-forward "data-flickr-embed" nil t)
  (beginning-of-line)
  (when (search-forward "></a>" nil t)
    (replace-match "/></a>"))
  (when (search-forward "async" nil t)
    (replace-match "async=\"async\""))
  (forward-line 1))

ブログ書き用のコードなんだけど、こういうのをまとめて自分用 Blog モードを作ろうかなぁ。。。