Created
September 29, 2012 05:16
-
-
Save am0c/3803249 to your computer and use it in GitHub Desktop.
emacs config for Mojolicious::Lite file
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; | |
; mmm-mode config for Mojolicious::Lite perl file. | |
; mmm-mode lib is from here: https://github.com/purcell/mmm-mode | |
; 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) | |
'fundamental-mode | |
(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
To implement this does one simply save it as a file (mojo.el) and then reference that file in the .emacs file? ((provide 'wpdl-mode) (require '/home/foo/mojo.el)) Is that correct? Or am I mistaken?