flymake setting of konoha-mode

konoha.el

(require 'konoha-mode)

;; setting for flymake
(require 'flymake)
(add-to-list 'flymake-allowed-file-name-masks '("\\.k\\'" flymake-konoha-init))

(defun flymake-konoha-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy
                     'flymake-create-temp-inplace))
         (local-file (file-relative-name
                      temp-file
                      (file-name-directory buffer-file-name))))
    (list "konoha" (list "-c" local-file))))

(defvar konoha-compiler-message-regexp
  "^\s+-\s+([^:]+:\\([[:digit:]]+\\))\s+(\\(error\\|warning\\))\s+\\(.+\\)$")

(defun flymake-konoha-load ()
  (interactive)
  (add-to-list 'flymake-err-line-patterns
               `(,konoha-compiler-message-regexp
                 nil 1 nil 3))
  (flymake-mode t))

(add-hook 'konoha-mode-hook
          (lambda ()
            (flymake-konoha-load)))