2010-02-03

誰か作っているような気もしますが、flymake のエラーメッセージを表示する関数の popup-tip 版をでっちあげてみました。
実装は、minibuffer に表示する版の message を popup-tip に置き換える形でやっつけてでやりました。
なお、popup-tip は、popup.el の関数です。以下の URL より取得可能です。

http://github.com/m2ym/auto-complete

(require 'popup)
(defun my-popup-flymake-display-error ()
  (interactive)
  (let* ((line-no            (flymake-current-line-no))
         (line-err-info-list (nth 0 (flymake-find-err-info flymake-err-info
                                                           line-no)))
         (count              (length line-err-info-list)))
    (while (> count 0)
      (when line-err-info-list
        (let* ((file       (flymake-ler-file (nth (1- count)
                                                  line-err-info-list)))
               (full-file (flymake-ler-full-file (nth (1- count)
                                                      line-err-info-list)))
               (text      (flymake-ler-text (nth (1- count)
                                                 line-err-info-list)))
               (line      (flymake-ler-line (nth (1- count)
                                                 line-err-info-list))))
          (popup-tip (format "[%s] %s" line text))))
      (setq count (1- count)))))