[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 297bf01 063/433: Created file defining `universal' submode
From: |
Dmitry Gutov |
Subject: |
[elpa] master 297bf01 063/433: Created file defining `universal' submode. |
Date: |
Thu, 15 Mar 2018 19:43:35 -0400 (EDT) |
branch: master
commit 297bf015fff71387f1b157490817adfc0a8098d1
Author: mas <mas>
Commit: mas <mas>
Created file defining `universal' submode.
---
mmm-univ.el | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 55 insertions(+)
diff --git a/mmm-univ.el b/mmm-univ.el
new file mode 100644
index 0000000..9abb06d
--- /dev/null
+++ b/mmm-univ.el
@@ -0,0 +1,55 @@
+;;; mmm-univ.el --- The "Universal" Submode Class
+
+;; Copyright (C) 2000 by Free Software Foundation, Inc.
+
+;; Author: Michael Abraham Shulman <address@hidden>
+
+;;{{{ GPL
+
+;; 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 2, 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; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;}}}
+
+;;; Commentary:
+
+;; This file defines the "universal" submode class, the default value
+;; of `mmm-global-classes', which specifies a standard way to indicate
+;; that part of a buffer should be in a different mode--for example,
+;; in an email message.
+
+;;; Code:
+
+(require 'mmm-auto)
+
+(mmm-add-classes
+ `((universal
+ :front "%\\[\\([^]]+\\)\\]%"
+ :back "%\\[/~1\\]%"
+ :insert ((?/ universal "Submode: " @ "%[" str "]%" @ "\n" _ "\n"
+ @ "%[/" str "]%" @))
+ :match-submode ,#'(lambda (str)
+ (string-match "[a-zA-Z-]+" str)
+ (let ((modestr (match-string 0 str)))
+ (unless modestr (error "Something is screwy."))
+ (if (equal (substring modestr -5) "-mode")
+ (intern modestr)
+ (intern (concat modestr "-mode")))))
+ :save-matches 1
+ )))
+
+(provide 'mmm-univ)
+
+;;; mmm-univ.el ends here
\ No newline at end of file
- [elpa] master c22fb9f 054/433: # Updated., (continued)
- [elpa] master c22fb9f 054/433: # Updated., Dmitry Gutov, 2018/03/15
- [elpa] master aedb013 060/433: # Updated comment about psgml., Dmitry Gutov, 2018/03/15
- [elpa] master 9afb287 043/433: Added mmm-[get, set]-class-parameters and creation-hook., Dmitry Gutov, 2018/03/15
- [elpa] master 48e8e70 042/433: Fixed bug where font-lock-mode was set to `t' globally, causing, Dmitry Gutov, 2018/03/15
- [elpa] master e77d5b3 026/433: Released 0.3.9., Dmitry Gutov, 2018/03/15
- [elpa] master b6fccc2 044/433: Added creation-hook, fixed mode-name problem., Dmitry Gutov, 2018/03/15
- [elpa] master 8270590 037/433: Rewrote local variable functions, added new ones, changed updating,, Dmitry Gutov, 2018/03/15
- [elpa] master ccecc35 057/433: (mmm-valid-buffer): Checked against noninteractive and hidden buffers., Dmitry Gutov, 2018/03/15
- [elpa] master c4ffbd8 059/433: (mmm-fontify-region-list): Saved local variables before moving., Dmitry Gutov, 2018/03/15
- [elpa] master 6819dcc 062/433: Added Embperl., Dmitry Gutov, 2018/03/15
- [elpa] master 297bf01 063/433: Created file defining `universal' submode.,
Dmitry Gutov <=
- [elpa] master dddbab2 031/433: Released 0.3.10, Dmitry Gutov, 2018/03/15
- [elpa] master a083dc4 061/433: Added def-edebug-specs., Dmitry Gutov, 2018/03/15
- [elpa] master a70fdfa 068/433: Removed use-local-map advice; no longer necessary (thank goodness!), Dmitry Gutov, 2018/03/15
- [elpa] master c948117 073/433: Added mmm-univ.el., Dmitry Gutov, 2018/03/15
- [elpa] master 71be255 053/433: Released 0.4.1., Dmitry Gutov, 2018/03/15
- [elpa] master e21227d 064/433: (mmm-global-classes): Added variable controlling global classes., Dmitry Gutov, 2018/03/15
- [elpa] master 1571a17 074/433: Added some autoloads., Dmitry Gutov, 2018/03/15
- [elpa] master 81f8c38 082/433: (mmm-font-lock-available-p): Added flag., Dmitry Gutov, 2018/03/15
- [elpa] master 3a6b21e 083/433: (mmm-enable-font-lock, mmm-update-font-lock-buffer, mmm-update-mode-info):, Dmitry Gutov, 2018/03/15
- [elpa] master fcc2f71 071/433: Released 0.4.2., Dmitry Gutov, 2018/03/15