lean2/src/emacs/lean-mmm-lua.el
2015-01-30 13:05:30 -08:00

27 lines
772 B
EmacsLisp

;; Copyright (c) 2013, 2014 Microsoft Corporation. All rights reserved.
;; Released under Apache 2.0 license as described in the file LICENSE.
;;
;; Author: Soonho Kong
;;
(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)