Skip to content

Instantly share code, notes, and snippets.

@smonff

smonff/gist:9851736

Forked from am0c/gist:3803249
Last active January 12, 2021 13:38
Download ZIP

Revisions

  1. smonff revised this gist Jan 12, 2021. 1 changed file with 2 additions and 3 deletions.
    5 changes: 2 additions & 3 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,10 +1,9 @@
    ;
    ; mmm-mode config for Mojolicious::Lite perl file.
    ; Forked from https://gist.github.com/am0c/3803249
    ; 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)
    @@ -32,6 +31,6 @@
    :face mmm-code-submode-face
    )))

    (mmm-add-mode-ext-class 'perl-mode "\\.pl$" 'perl-mojo)
    (mmm-add-mode-ext-class 'cperl-mode "\\.pl$" 'perl-mojo)
    (setq mmm-submode-mode-line-format "~M[~m]")
    (setq mmm-submode-decoration-level 2)
  2. @am0c am0c renamed this gist Sep 29, 2012. 1 changed file with 0 additions and 0 deletions.
    0 gistfile1.txt → gistfile1.el
    View file
    File renamed without changes.
  3. @am0c am0c created this gist Sep 29, 2012.
    37 changes: 37 additions & 0 deletions gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,37 @@
    ;
    ; 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)