HTMLの整形

HTM TIDYというのがあるがどうなんだろう。
http://tidy.sourceforge.net/
http://www.w3.org/People/asada/tidy/


Nvuでやると、空白行が入ってしまう。
Nvuで整形して、空白行をとってしまうというのがよさそうだが。
xyzzyで空白行を削除するコマンドはないのだろうか?
tabify, untabifyを参考にすればできそうなかんじ。
空白行の正規表現はこれでいいのか『^[  \t]*\n』
ではなく『^[ \t ]*\n』全角スペースと\tの順番が違うとダメらしい。


こんなかんじ

;;;; 空白行の削除
(defun unspaceline (from to)
  (interactive "*r")
  (let *1
        (while (scan-buffer "^[ \t ]*\n" :regexp t)
          (delete-region (match-beginning 0) (match-end 0))))))
  t)

*1:tab-columns (tab-columns (selected-buffer)))) (save-excursion (save-restriction (narrow-to-region from to) (goto-char (point-min