;; lzx.el
;;
;; Copyright (c) 2002 Laszlo Systems, Inc.
;; All Rights Reserved.
;;
;; This software is the proprietary information of Laszlo Systems, Inc.
;; Use is subject to license terms.
;;

;;; Description:

;; This file tells emacs to recognize *.lzx files as XML files.  With
;; a DTD (as described in the developer's guide), this will provide
;; syntax-directed editing and validation of XML entities in LZX
;; files.

;; If mmm-mode is installed, this file will also create an mmm submode
;; to recognize the content of <method> and <script> tags as
;; Javascript, and direct mmm to use this submode for *.lzx files.
;; This provides syntax coloring and intelligent indentation and
;; navigation for Javascript code within LZX files.

;;; Installation:

;; Copy this file into a directory on the load-path, optionally
;; byte-compile it (using M-x byte-compile-file), and place the
;; following lines into your .emacs:
;;
;;      (add-to-list 'load-path "path/to/mmm-mode-0.4.7")
;;      (load-library "mmm-mode")
;;      (require 'mmm-mode)
;;	(require 'lzx)
;;
;; (If you don't wish to use mmm mode, only the last line is
;; required.)
;;
;; If you want mmm mode to be invoked automatically when you open a file, add:
;;
;;      (mmm-add-find-file-hook)
;;
;; to your .emacs file.

(provide 'lzx)

(when (fboundp 'xml-mode)
  (setq auto-mode-alist
	(append '(("\\.lz[lx]$" . xml-mode))
                auto-mode-alist)))

(when (fboundp 'mmm-mode)
  (mmm-add-group
   'lzx
   '(
     (js-method-cdata
      :submode javascript
      :face mmm-code-submode-face
      :front "<method[^>]*>[ \t\n]*<!\\[CDATA\\[[ \t]*\n?"
      :back "[ \t]*]]>[ \t\n]*</method>"
      :insert ((?j js-tag nil @ "<method language=\"JavaScript\">"
		   @ "\n" _ "\n" @ "</method>" @))
      )
     (js-method
      :submode javascript
      :face mmm-code-submode-face
      :front "<method[^>]*>[ \t]*\n?"
      :back "[ \t]*</method>"
      :insert ((?j js-tag nil @ "<method language=\"JavaScript\">"
		   @ "\n" _ "\n" @ "</method>" @))
      )
     (js-script-cdata
      :submode javascript
      :face mmm-code-submode-face
      :front "<script[^>]*>[ \t\n]*<!\\[CDATA\\[[ \t]*\n?"
      :back "[ \t]*]]>[ \t\n]*</script>"
      :insert ((?j js-tag nil @ "<script language=\"JavaScript\">"
		   @ "\n" _ "\n" @ "</script>" @))
      )
     (js-script
      :submode javascript
      :face mmm-code-submode-face
      :front "<script[^>]*>[ \t]*\n?"
      :back "[ \t]*</script>"
      :insert ((?j js-tag nil @ "<script language=\"JavaScript\">"
		   @ "\n" _ "\n" @ "</script>" @))
      )
     (js-inline
      :submode javascript
      :face mmm-code-submode-face
      :front "on\w+=\""
      :back "\"")))

  (mmm-add-mode-ext-class 'xml-mode "\\.lz[lx]\\'" 'lzx)
  )