blob: 867bf5330407e838d583c3c985ca060c1a64bdc7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
;; NXHTML
;;(load (concat vendor-path "/nxhtml/autostart.el"))
(defconst mumamo-actionscript-tag-start-regex
(rx "<mx:Script>" (0+ space) "<![CDATA["))
(defconst mumamo-actionscript-tag-end-regex
(rx "]]>" (0+ space) "</mx:Script>"))
;; (defun mumamo-search-bw-exc-start-inlined-actionscript (pos min)
;; (let ((exc-start (mumamo-chunk-start-bw-re pos min mumamo-actionscript-tag-start-regex)))
;; (and exc-start
;; (<= exc-start pos)
;; (cons exc-start 'espresso-mode))))
;; (defun mumamo-search-bw-exc-end-inlined-actionscript (pos min)
;; (mumamo-chunk-end-bw-re pos min mumamo-actionscript-tag-end-regex))
;; (defun mumamo-search-fw-exc-start-inlined-actionscript-old (pos max)
;; (mumamo-chunk-start-fw-re pos max mumamo-actionscript-tag-start-regex))
(defun mumamo-search-fw-exc-start-inlined-actionscript (pos max)
(let ((where (mumamo-chunk-start-fw-re pos max mumamo-actionscript-tag-start-regex)))
(when where
(list where 'js-mode))))
(defun mumamo-search-fw-exc-end-inlined-actionscript (pos max)
(mumamo-chunk-end-fw-re pos max mumamo-actionscript-tag-end-regex))
(defun mumamo-chunk-inlined-actionscript (pos min max)
;; (mumamo-find-possible-chunk pos min max
;; 'mumamo-search-bw-exc-start-inlined-actionscript
;; 'mumamo-search-bw-exc-end-inlined-actionscript
;; 'mumamo-search-fw-exc-start-inlined-actionscript-old
;; 'mumamo-search-fw-exc-end-inlined-actionscript)
(mumamo-possible-chunk-forward pos max
'mumamo-search-fw-exc-start-inlined-actionscript
'mumamo-search-fw-exc-end-inlined-actionscript))
(define-mumamo-multi-major-mode mxml-actionscript-mumamo-mode
"Turn on multiple major modes for MXML with main mode `nxml-mode'.
This covers inlined style and script for mxml."
("nXml Family" nxml-mode (mumamo-chunk-inlined-actionscript)))
(add-to-list 'auto-mode-alist '("\\.mxml$" . mxml-actionscript-mumamo-mode))
|