[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/wisitoken-grammar-mode 39f8d03 3/3: * wisitoken-grammar
From: |
Stephen Leake |
Subject: |
[elpa] externals/wisitoken-grammar-mode 39f8d03 3/3: * wisitoken-grammar-mmm.el: Delete; merged with wisitoken-grammar-mode.el |
Date: |
Sat, 17 Aug 2019 19:15:11 -0400 (EDT) |
branch: externals/wisitoken-grammar-mode
commit 39f8d03a989e76a37c44af683647fc02cca7d79c
Merge: 5322510 fae4953
Author: Stephen Leake <address@hidden>
Commit: Stephen Leake <address@hidden>
* wisitoken-grammar-mmm.el: Delete; merged with wisitoken-grammar-mode.el
* wisitoken-grammar-mode.el: Resolve FIXME.
---
wisitoken-grammar-mmm.el | 44 ++++++++++++++++++++++++++++++++++++++++++++
wisitoken-grammar-mode.el | 2 --
2 files changed, 44 insertions(+), 2 deletions(-)
diff --git a/wisitoken-grammar-mmm.el b/wisitoken-grammar-mmm.el
new file mode 100644
index 0000000..cc19a7c
--- /dev/null
+++ b/wisitoken-grammar-mmm.el
@@ -0,0 +1,44 @@
+;;; Define multi-major-mode stuff for wisitoken-grammar mode. -*-
lexical-binding:t -*-
+
+;; Copyright (C) 2019 Free Software Foundation, Inc.
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+(require 'mmm-mode)
+
+(mmm-add-classes
+ '((wisi-action
+ :match-submode wisitoken-grammar-mmm-submode
+ :face mmm-code-submode-face
+ :front "%("
+ :back ")%"
+ :insert ((?a wisi-action nil @ "%(" @ "" _ "" @ ")%")))
+ (wisi-code
+ :match-submode wisi-mmm-submode
+ :face mmm-code-submode-face
+ :front "%{"
+ :back "}%"
+ :insert ((?a wisi-code nil @ "%{" @ "" _ "" @ "}%")))
+ ))
+
+(defvar wisitoken-grammar-action-mode) ;; in wisitoken-grammar-mode.el
+(defun wisitoken-grammar-mmm-submode (_delim)
+ "for :match-submode"
+ wisitoken-grammar-action-mode)
+
+(add-to-list 'mmm-mode-ext-classes-alist '(wisitoken-grammar-mode nil
wisi-action))
+(add-to-list 'mmm-mode-ext-classes-alist '(wisitoken-grammar-mode nil
wisi-code))
+
+(provide 'wisitoken-grammar-mmm)
+;;; end of file
diff --git a/wisitoken-grammar-mode.el b/wisitoken-grammar-mode.el
index 1f6e53a..42bfe65 100644
--- a/wisitoken-grammar-mode.el
+++ b/wisitoken-grammar-mode.el
@@ -362,8 +362,6 @@ Otherwise insert a plain new line."
(add-hook 'xref-backend-functions #'wisitoken-grammar--xref-backend
nil ;; append
t)
- (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
- (add-hook 'before-save-hook 'copyright-update nil t)
(wisi-setup
:indent-calculate nil