朝顔日記

凪沢夕禾さんが、web関連のお話しにて、昨日のlispの誤りを指摘してくださいました。自分の設定ファイルからコピペしたんですが、途中を飛ばしてましたね。CGIを使う設定とセットで書いてあって、そっちを省いた時に、一番上の大事な部分まで割愛してしまったようです。試してみて動かなかった人がいたら、ごめんなさい。そして凪沢さん、ご指摘ありがとうございました。再度、動くやつを書いておきます。

大久保さんのbrowserexのTipsより

; html+-mode で htmllint を使って構文チェック
(defun my-html+-mode-hook ()
  (defvar *htmllint-file* "C:/Perl/htmllint/htmllint")
  (defun htmllint-exec ()
    (interactive)
    (let ((file (get-buffer-file-name)))
      (when file
        (pipe-command
         (format nil "perl \"~A\" \"~A\""
                 (map-slash-to-backslash *htmllint-file*)
                 (map-slash-to-backslash file))))))
  (define-key ed::*html+-mode-map* '(#\C-c #\l) 'htmllint-exec))
(add-hook 'ed::*html+-mode-hook* 'my-html+-mode-hook)

つか、括弧が合ってなかったんだから気付けよ＞漏れ