lazyflymake-lua.el

;;; lazyflymake-lua.el --- flymake lua syntax checker  -*- lexical-binding: t -*-

;;; Commentary:
;;

;;; Code:

(require 'lazyflymake-sdk)

(defcustom lazyflymake-lua-program "luac"
  "The path of the lua linter."
  :group 'lazyflymake
  :type 'string)

(defun lazyflymake-lua-err-line-pattern ()
  "Return error line pattern.
If return a list containing patterns, `flymake-proc-err-line-patterns' uses the
list and is also converted into a buffer local variable.
If return the pattern, it's is pushed to `flymake-proc-err-line-patterns'.
If return nil, nothing need be done."
  '("^.*luac[0-9.]*\\(.exe\\)?: *\\(.*\\):\\([0-9]+\\): \\(.*\\)$" 2 3 nil 4))

(defun lazyflymake-lua-init ()
  "Lua syntax check init."
  (let (file)
    (when (and (executable-find lazyflymake-lua-program)
               (setq file (lazyflymake-sdk-code-file)))
      (if lazyflymake-debug (message "lazyflymake-lua-init called"))
      (lazyflymake-sdk-generate-flymake-init
       lazyflymake-lua-program
       '("-p")
       file))))

(provide 'lazyflymake-lua)
;;; lazyflymake-lua.el ends here