Skip to content

Instantly share code, notes, and snippets.

@smonff smonff/gist:9851736 forked from am0c/gist:3803249
Created Mar 29, 2014

What would you like to do?
; mmm-mode config for Mojolicious::Lite perl file.
; mmm-mode lib is from here:
; font locks of [c]perl-mode and mmm-mode conflict each other.
(add-to-list 'load-path "~/.emacs.d/packages/mmm-mode")
(require 'mmm-auto)
(require 'mmm-compat)
(require 'mmm-vars)
(setq mmm-global-mode 'maybe)
(global-set-key "\M-p" 'mmm-parse-buffer)
;(mmm-set-major-mode-preference 'cperl-mode 'perl-mojo)
(defun mmm-perl-mojo-get-mode (delimiter)
(let ((filename (substring delimiter 3 nil)))
(or (assoc-default filename auto-mode-alist #'string-match)
(signal 'mmm-no-matching-submode nil))))
(mmm-add-group 'perl-mojo '((perl-mojo-blocks
:match-submode mmm-perl-mojo-get-mode
:front "^@@ \\(.+\\)$"
:front-offset (end-of-line 1)
:back "\\(^@@\\|\\'\\)"
:back-offset (beginning-of-line -1)
:save-matches t
:delimiter-mode nil
:end-not-begin nil
:face mmm-code-submode-face
(mmm-add-mode-ext-class 'perl-mode "\\.pl$" 'perl-mojo)
(setq mmm-submode-mode-line-format "~M[~m]")
(setq mmm-submode-decoration-level 2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.