lean2/src/emacs/lean-mmm-lua.el

;; Copyright (c) 2013, 2014 Microsoft Corporation. All rights reserved.
;; Released under Apache 2.0 license as described in the file LICENSE.
;;
;; Author: Soonho Kong
;;

(when (and (package-installed-p 'mmm-mode)
           (package-installed-p 'lua-mode))
  (require 'mmm-mode)
  (require 'mmm-auto)
  (require 'lua-mode)
  (setq mmm-global-mode 'maybe)
  (setq mmm-submode-decoration-level 0)
  (eval-after-load 'mmm-vars
    '(progn
       (mmm-add-group
        'lean-lua
        '((lua-inline
           :submode lua-mode
           :face mmm-code-submode-face
           :insert ((?l lean-tag nil @ "(*\n" @ " " _ "" @ "\n*)" @))
           :front "[(][*]"
           :back "[*][)]")))
       (mmm-add-mode-ext-class 'lean-mode "\\.lean" 'lean-lua)))
  (defun lean-mmm-lua-hook ()
    (setq-local mmm-parse-when-idle t)
    (setq-local mmm-idle-timer-delay 0.5)))

(provide 'lean-mmm-lua)