branch: master
commit 6e504855f20f3bf114021c01485f04bd5a438370
Author: viritrilbia <viritrilbia>
Commit: viritrilbia <viritrilbia>
Added html-php submode class.
---
mmm-auto.el | 3 ++-
mmm-sample.el | 48 ++++++++++++++++++++++++++++++++++++------------
2 files changed, 38 insertions(+), 13 deletions(-)
diff --git a/mmm-auto.el b/mmm-auto.el
index 6faef4c..8c8aa2c 100644
--- a/mmm-auto.el
+++ b/mmm-auto.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2000 by Michael Abraham Shulman
;; Author: Michael Abraham Shulman <[email protected]>
-;; Version: $Id: mmm-auto.el,v 1.20 2003/03/02 20:18:42 viritrilbia Exp $
+;; Version: $Id: mmm-auto.el,v 1.21 2003/03/25 21:49:26 viritrilbia Exp $
;;{{{ GPL
@@ -78,6 +78,7 @@
(cweb "mmm-cweb" nil)
(sgml-dtd "mmm-sample" nil)
(noweb "mmm-noweb" nil)
+ (html-php "mmm-sample" nil)
)
"Alist of submode classes autoloaded from files.
Elements look like \(CLASS FILE PRIVATE) where CLASS is a submode
diff --git a/mmm-sample.el b/mmm-sample.el
index 4defcca..dcc2a5f 100644
--- a/mmm-sample.el
+++ b/mmm-sample.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2003 by Michael Abraham Shulman
;; Author: Michael Abraham Shulman <[email protected]>
-;; Version: $Id: mmm-sample.el,v 1.25 2003/03/09 17:04:04 viritrilbia Exp $
+;; Version: $Id: mmm-sample.el,v 1.26 2003/03/25 21:49:24 viritrilbia Exp $
;;{{{ GPL
@@ -176,7 +176,13 @@ and MODE is a major mode function symbol.")
(mmm-add-group
'eperl
- '((eperl-code
+ '((eperl-expr
+ :submode perl
+ :face mmm-output-submode-face
+ :front "<:="
+ :back ":>"
+ :insert ((?= eperl-expr nil @ "<:=" @ " " _ " " @ ":>" @)))
+ (eperl-code
:submode perl
:face mmm-code-submode-face
:front "<:"
@@ -185,12 +191,12 @@ and MODE is a major mode function symbol.")
:insert ((?p eperl-code nil @ "<:" @ " " _ " " @ ":>" @)
(?: eperl-code ?p . nil)
(?_ eperl-code_ nil @ "<:" @ " " _ " " @ "_:>" @)))
- (eperl-expr
- :submode perl
- :face mmm-output-submode-face
- :front "<:="
- :back ":>"
- :insert ((?= eperl-expr nil @ "<:=" @ " " _ " " @ ":>" @)))))
+ (eperl-comment
+ :submode text
+ :face mmm-comment-submode-face
+ :front ":>//"
+ :back "\n")
+ ))
;;}}}
;;{{{ File Variables
@@ -297,6 +303,28 @@ and MODE is a major mode function symbol.")
;; (mmm-add-mode-ext-class 'apache-generic-mode nil 'httpd-conf-perl)
;;}}}
+;;{{{ PHP in HTML
+
+(mmm-add-group 'html-php
+ '((html-php-output
+ :submode php-mode
+ :face mmm-output-submode-face
+ :front "<\\?php *echo "
+ :back "\\?"
+ :include-front t
+ :front-offset 5
+ :insert ((?e php-echo nil @ "<?php" @ " echo " _ " " @ "?>" @))
+ )
+ (html-php-code
+ :submode php-mode
+ :face mmm-code-submode-face
+ :front "<\\?\\(php\\)?"
+ :back "\\?>"
+ :insert ((?p php-section nil @ "<?php" @ " " _ " " @ "?>" @)
+ (?b php-block nil @ "<?php" @ "\n" _ "\n" @ "?>" @))
+ )))
+
+;;}}}
;; NOT YET UPDATED
;;{{{ HTML in PL/SQL;-COM-
@@ -343,8 +371,4 @@ and MODE is a major mode function symbol.")
(provide 'mmm-sample)
-
-;;; Local Variables:
-;;; End:
-
;;; mmm-sample.el ends here
\ No newline at end of file
